Лаба по паскалю.

Короче пишу такую х*йню, потому что меня за*бал DJ Runet. Я ему написал лабу, а он п*здит что она не правильная. Короче дан двумерный массив. Надо найти сумму элементов тех строк в которых есть отрицательные элементы. Оформить в виде функции. Вот код программы с коментариями. А теперь DJ Runet скажи что там тебе бабуля говорила...

цитата:

program lab05; uses crt; const m=7;n=5; <- Задаем размеры матрицы m - число столбцов n - строк type matrix = array[1..m,1..n] of integer; <- создаем тип "Матрица" var A: matrix; i,j:integer; f: text; Function summa(M: matrix; cols,rows: integer): integer; <- Функция суммы. В скобках задаем параметры передаваемые подпрограмме M - матрицаь, cols и rows - размеры матрицы var i,j,sum,x: integer; <- переменные подпрограммы. begin sum:=0; for j:=1 to rows do begin <- проходимся по строкам for i:=1 to cols do <- проходимся по элементам строки if M[i,j] < 0 then begin <- если элемент меньше нуля то: for x:= 1 to cols do inc(sum,M[x,j]); <- складываем все элементы i:= cols end; end; summa:=sum; <- передача суммы всех строк значению функции end; BEGIN clrscr; Randomize; assign(f,'results.txt'); rewrite(f); writeln(f,' Исходная матрица'); далее мы присваеваем каждому элементу матрицы A случайное число и выводим в файл for j:= 1 to n do begin for i:= 1 to m do begin A[i,j]:=random(14)-4; write(f,A[i,j]:3); end; writeln(f); end; Сделали writeln(f); write(f,'Сумма элементов строк в которых есть '); write(f,'отрицательные элементы равна ',summa(A,m,n),'.'); в строке над этой мы использовали такую штуку: summa(A,m,n) Где A - матрица, m и n - размеры матрицы. Эти значения передаются функции summa, которая возвращает сумму элементов строк в которых есть отрицательные элементы. close(f); END. <-- Результаты выполнения программы --> Исходная матрица -2 3 6 7 3 0 5 -3 -1 0 -2 7 -4 1 -1 0 5 8 6 7 0 3 -2 1 -4 2 9 8 5 -4 1 0 1 8 4 Сумма элементов строк в которых есть отрицательные элементы равна 77.

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)

Сообщение отредактировано 1 раз(а), редактировал Imm , 07.01.2004 в 10:07.

она сказала что ты i c j перепутал т.е. считал не считал не строк а столбцы

__________________
Уходя - гасите всех.

ИМХО тривиальная задачка. Вот только объясните лентяю, не фтыкавшему в прогу и не знающему Паскаль: а нафига козе баян - нафига случайные числа?

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

тебе этого не понять

да, Immoralis, кстати она сказала чтобы числа сразу задавали и чтоб не во всех строках должны быть отрицательные числа

__________________
Уходя - гасите всех.

Да, Паскаль для меня сложный слишком

!!!

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

цитата:

она сказала что ты i c j перепутал т.е. считал не считал не строк а столбцы

Я такого не заметил.. впаривать надо уметь, дружок
у меня подозрение, что ты не до конца ознакомился с алгоритмом лабы... тетя-препод глюконула, а ты не смог ее на путь истинный наставить...

теперь о косяках

цитата:

i:= cols

так цикл не завершают..
Хороший препод за такое задницу надерет (хоть это и работает)
надо писать, например break..

цитата:

и чтоб не во всех строках должны быть отрицательные числа

Верное замечание...

__________________
Xριστος ανεστη εκ νεκρων
Θανατω θανατον πατησας.
Και τοις εν τοις μνημασι
Ζωην χαρισαμενος.

я то в паскале не рублю них поэтому на её восклицания У ТЯ НЕПРАВИЛЬНО я ни чё не могу сказать как толко согласиться и сказать "ладно, я дома посмотрю шо неправильно - исправлю и потом принесу"
вот так!

__________________
Уходя - гасите всех.

Можно в принципе и не про дома говорить, а щас разберемся и отходить
а потом с программированием преподы сами часто туго догоняют, давно подмечено. Приходилось иной раз с пеной у рта доказывать, особенно если препод этого в жизни не видел

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

fastkill, по поводу break согласен. Что-то я сглюканул.
2Runet
Возьми подправь числа сам какие хочешь, только от -4 до 9. И еще скажи бабуле чтоб она шла нах... Я ей все свои лабы сдал с таким же методом задавания элементов массива. Дура она короче...

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)

Re: насчет случайных чисел

Конечно, когда тестишь прогу вводить матрицы типа 5х5 впадлу -для этого можно использовать Random. Но когда сдаешь, не поленись, введи руками ( Преподы это ОЧЕНЬ любят)

__________________
В правде нет страха...
Правда и страх несовместимы...
Д. С. Лихачёв

цитата:

Immoralis пишет fastkill, по поводу break согласен. Что-то я сглюканул. 2Runet Возьми подправь числа сам какие хочешь, только от -4 до 9. И еще скажи бабуле чтоб она шла нах... Я ей все свои лабы сдал с таким же методом задавания элементов массива. Дура она короче...

ну тогда поправь мне и пришли на мыло
с уже введенными числами и с нориально завершённым циклом!

__________________
Уходя - гасите всех.

Сделал... Тема закрыта.

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)