Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 30 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

K := 0 | подсчет количества вхождений Amax
нц для i от 1 до N
нц для j от 1 до M
если A[i, j] = Amax
то K := K+1
все
кц
кц
кон
Исполнение алгоритма
i j A[i,j]>Amax Amax
1
2
1
2
3
1
2
3
-
+
+
-
-
-
1
2
5
(продолжение)
i j A[i,j]=Amax K
1
2
1
2
3
1
2
3
-
-
+
+
-
+
0
1
2
3
Блок-схема (фрагмент)
Turbo Pascal
Program NumberOfMaximums;
Uses Crt;
Type Mas = Array [1..10, 1..10] of Integer;
Var A : Mas;
N, M, K, Amax, i, j : Integer; {K - искомый результат}
{--------------------------------------------}
Procedure InputOutput(Var A : Mas);
Begin {описание процедуры ввода-вывода матрицы}
ClrScr;
Write('Количество строк - '); ReadLn(N); 
  K := 0 |       подсчет количества вхождений Amax
  нц для i       от 1 до N
     нц для      j от 1 до M
        если     A[i, j] = Amax
          то     K := K+1
        все
     кц
  кц
кон
                                             Блок-схема (фрагмент)




       Исполнение алгоритма
     i   j A[i,j]>Amax Amax
                                 1
     1       1           -
             2           +       2
             3           +       5
     2       1           -
             2           -
             3           -

          (продолжение)
     i   j A[i,j]=Amax       K
     1   1           -       0
         2           -
         3           +       1
     2   1           +       2
         2           -
         3           +       3




Turbo Pascal
Program NumberOfMaximums;
  Uses Crt;
  Type Mas = Array [1..10, 1..10] of Integer;
  Var A                    : Mas;
       N, M, K, Amax, i, j : Integer; {K - искомый результат}
{--------------------------------------------}
  Procedure InputOutput(Var A : Mas);
    Begin {описание процедуры ввода-вывода матрицы}
       ClrScr;
       Write('Количество строк - '); ReadLn(N);

Страницы