Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal
Формулировка задачи:
1)Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента.(с использованием Procedure или Function) знаю, что легко, но не работает программа через Procedure
Решение задачи: «Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента»
textual
Листинг программы
Const ColCount = 3; Type TRowArray = array[1..ColCount] of Integer; function TestRow(Row: TRowArray): Boolean; Var i: Integer; begin TestRow := True; for i := 1 to ColCount do if Row[i] < 0 then Exit; TestRow := False; end; Var Arr: array[1..ColCount] of TRowArray; i,j: Integer; begin Randomize; for i := 1 to ColCount do begin for j := 1 to ColCount do begin Arr[i,j] := -1+Random(11); Write(Arr[i,j]:3); end; WriteLn; end; for i := 1 to ColCount do if TestRow(Arr[i]) then begin WriteLn(i); Break; end; ReadLn; end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания программ на ПК. Константа ColCount определяет количество столбцов в матрице. Тип TRowArray представляет собой массив целых чисел. Функция TestRow проверяет, содержит ли строка матрицы отрицательные элементы. Переменные i и j используются для прохода по матрице. В цикле создается случайная матрица, заполненная числами от -1 до 10. Затем происходит проверка каждой строки матрицы на наличие отрицательных элементов. Если строка проходит проверку, то выводится ее номер. В конце программы выводится номер первой строки, удовлетворяющей условию.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д