Информатика. 10-11 классы. 2 книга. Шауцукова Л.З

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

ClrScr;

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;

WriteLn; WriteLn('Исходная матрица :'); For i := 1 to N do

j:=1; Flag:=FALSE;

While (j<=M) and not Flag do

If A[i, j]=0 then Flag:=TRUE else j:=j+1;

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

WriteLn('Количество строк, содержащих нули, равно ', K); ReadLn

END.

Пример 6.2. Дана целочисленная матрица A(N, M). Определить, встречается ли заданное целое K среди максимальных элементов столбцов этой матрицы.

Система тестов

| цикл по столбцам с прерыванием

JMax:=A[1,j]

нц для i от 2 до N | цикл нахождения

JMax

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

то JMax:=A[i, j]

все

кц

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

то Flag:="Да" иначе j:=j+1

все

кц

если Flag="Да"

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

все

кон

теста

{---------------------------------------------------} 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;

данных}

YesOrNot(Flag); {вызов процедуры решения задачи} Write('О т в е т : число ', K );

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

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

END.

Пример 6.3. Проверить, является ли заданная целочисленная матрица A(N, N) "магическим квадратом" (это значит, что суммы чисел во всех её строках, всех столбцах и двух диагоналях одинаковы).

Система тестов

Школьный АЯ

алг Магический квадрат (арг цел N, арг цел таб A[1:N, 1:N], рез лит Otvet)

дано | N>0

нач цел i, j, St, S, лит Flag

St:=0 | вычисление суммы элементов главной диагонали

нц для i от 1 до N | в качестве эталонной суммы St St:=St+A[i, i]

кц

Flag:="Да"; i:=1

нц пока (i<=N) и (Flag="Да") | вычисление сумм элементов строк

S:=0

нц для j от 1 до N S:=S+A[i, j]

кц

если S<>St | сравнение суммы элементов текущей строки с эталонной

то Flag:="Нет" иначе i:=i+1

все

кц

j:=1

нц пока (j<=N) и (Flag="Да") | вычисление сумм элементов столбцов

S:=0

нц для i от 1 до N S:=S+A[i, j]

кц

если S<>St |сравнение суммы элементов текущего

то Flag:="Нет" |столбца с эталонной суммой

иначе j:=j+1

все

кц

если Flag="Да"

то S:=0 | вычисление суммы элементов побочной диагонали

нц для i от 1 до N S:=S+A[i, N+1-i]

кц

если S<>St | сравнение суммы с эталонной

то Flag:="Нет"

все

все

если Flag="Да"

то Otvet := "Это магический квадрат." иначе Otvet := "Это не магический квадрат."

все

кон

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

Вычисление суммы элементов главной диагонали в качестве эталонной суммы

Вычисление сумм элементов строк и сравнение их с эталонной суммой

Блок-схема (продолжение)

Вычисление сумм элементов столбцов и сравнение их с эталонной суммой

Вычисление суммы элементов побочной диагонали и сравнение ее с эталонной суммой

Исполнение алгоритма

(в таблице отражен только конечный результат работы циклов типа для, в которых вычисляются суммы)

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

(i<=N) и (Flag = "ДА" )=> (1) (j<=N) и (Flag = "ДА" )=> (2)

Flag = "ДА" => (3)

Turbo Pascal

Program MagicSquare;

Uses Crt;

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

i, j, N : Integer;

Standard, S : Integer; {Standard - сумма-эталон, S - текущая

процедуры, }

{в которой выясняется, является ли квадрат

"магическим"}

Begin {вычисление суммы элементов главной диагонали} {в качестве эталонной суммы}

Standard:=0;

For i := 1 to N do Standard := Standard + A[i,i]; Flag:=TRUE; i:=1;

While (i<=N) and Flag do {вычисление сумм элементов строк} begin

S:=0;

For j := 1 to N do S := S+A[i, j];

If S<>Standard then Flag := FALSE else i:=i+1

end;

j:=1;

While (j<=N) and Flag do {вычисление сумм элементов столбцов} begin

S:=0;

For i := 1 to N do S:=S+A[i, j];

If S<>Standard then Flag := FALSE else j := j+1 end;

If Flag then begin

S:=0; {вычисление суммы элементов побочной диагонали} For i := 1 to N do S := S+A[i, N+1-i];

If S<>Standard then Flag := FALSE; end;

Пример 6.4. Дана матрица A(N, N). Если хотя бы один элемент строки матрицы отрицателен, то все элементы этой строки заменить нулями.

Тест

Данные Результат

3

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

Write(’Количество строк и столбцов – ’); ReadLn(N); For i := 1 to N do

For j := 1 to N do

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

end; ClrScr;

WriteLn(’ Исходная матрица :’); WriteLn; For i := 1 to N do

If A[i, j]<0 then Flag:=TRUE else j:=j+1; {элемента строки}

If Flag then {обнуление строки, содержашей}

For j := 1 to N do A[i, j] := 0 {отрицательные

Procedure OutRes; {описание процедуры вывода матрицы-результата} Begin

WriteLn(’ Матрица-результат :’); WriteLn; For i := 1 to N do

begin

For j := 1 to N do Write(A[i, j]:5:1); WriteLn