Если A[i,j]>JMax

то JMax:=A[i, j]

Все

Кц

если K=JMax | условие прерывания цикла

то Flag:="Да"

иначе j:=j+1

Все

Кц

если Flag="Да"

то Otvet:= "Встречается"

иначе Otvet:= "Не встречается"

Все

Кон

Исполнение алгоритмаБлок-схема (фрагмент)

Обозначение проверяемого условия:

(j<=M) и (Flag = "Нет") => (1)

Turbo Pascal

Program Checking;

Uses Crt;

Var A: Array[1..10, 1..10] of Integer;

N, M, i, j: Integer;

K: Integer; {заданное число}

JMax: Integer; {максимальный элемент столбца}

Flag: Boolean;

{---------------------------------------------------}

Procedure InputOutput; {описание процедуры ввода-вывода}

Begin ClrScr;

Write('Введите целое K = '); ReadLn(K); WriteLn;

WriteLn('Введите целочисленную матрицу А');

Write('Количество строк - '); ReadLn(N);

Write('Количество столбцов - '); ReadLn(M);

For i:= 1 to N do

For j:= 1 to M do

begin Write('A[', i, ', ', j, '] = ');

ReadLn(A[i, j]);

end; ClrScr;

WriteLn('Исходная матрица:'); WriteLn;

For i:= 1 to N do

begin

For j:= 1 to M do Write(A[i, j]: 4);

WriteLn;

end; WriteLn;

End; { of InputOutput }

{--------------------------------------------}

Procedure YesOrNot(Var Flag:Boolean); {описание процедуры решения задачи}

Begin

Flag:=FALSE; j:=1;

While (j<=M) and not Flag do {цикл по столбцам с прерыванием}

begin JMax:=A[1, j];

For i:= 2 to N do {цикл нахождения JMax}

If A[i, j]>JMax then JMax:=A[i, j];

If K=JMax then Flag:=TRUE else j:=j+1; {условие прерывания}

end;

End;

{--------------------------------------------}

BEGIN

InputOutput; {вызов процедуры ввода-вывода исходных данных}

YesOrNot(Flag); {вызов процедуры решения задачи}

Write('О т в е т: число ', K);

If Flag then Write(' встречается')

else Write(' не встречается');

WriteLn(' среди максимальных элементов столбцов матрицы');

ReadLn;

END.

Пример 6.3. Проверить, является ли заданная целочисленная матрица A(N, N)

Не нашли, что искали? Воспользуйтесь поиском: