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

UptoLike

ВУЗ: 

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

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

Рубрика: 

если (A[i, i]>0) и (mod(A[i, i], 2)=1) | условие завершения
цикла
то Flag := "Да"
иначе i:=i+1
все
кц
если Flag = "Да"
то Текст := "Есть такие"
иначе Текст := "Нет таких"
все
кон
Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N) и (Flag = "Нет") => (1)
(A[i, i] > 0) и (mod(A[i, i], 2) = 1) =>
(2)
N
теста
i Flag (1) (2) Текст
1 1
2
"Нет"
"Да"
+
+
-
(кц)
-
+
"Есть
такие"
2 1
2
3
"Нет" +
+
-
(кц)
-
-
"Нет
таких"
Блок-схема (фрагмент)
Turbo Pascal
Program Diagonal;
Uses Crt;
Type Mas = Array [1..10, 1..10] of Integer;
Var A : Mas;
N, i, j : Integer;
Flag : Boolean;
{-----------------------------------}
Procedure InputOutput(Var A : Mas); {описание процедуры ввода-
}
Begin {вывода исходных данных
}
ClrScr;
Write(’Количество строк и столбцов – ’); Read(N);
For i := 1 to N do 
     если (A[i, i]>0) и (mod(A[i, i], 2)=1) | условие завершения
цикла
       то Flag := "Да"
       иначе i:=i+1
     все
  кц
  если Flag = "Да"
     то Текст := "Есть такие"
     иначе Текст := "Нет таких"
  все
кон
                                                 Блок-схема (фрагмент)

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

Обозначения проверяемых условий:
(i <= N) и (Flag = "Нет") => (1)
(A[i, i] > 0) и (mod(A[i, i], 2) = 1)    =>
(2)

   N       i     Flag    (1)    (2)   Текст
 теста

   1       1     "Нет"     +     -     "Есть
           2      "Да"     +     +    такие"
                           -
                         (кц)

   2       1     "Нет"     +     -     "Нет
           2               +     -    таких"
           3               -
                         (кц)




Turbo Pascal
Program Diagonal;
  Uses Crt;
  Type Mas = Array [1..10, 1..10] of Integer;
  Var A          : Mas;
         N, i, j : Integer;
         Flag    : Boolean;
{-----------------------------------}
Procedure InputOutput(Var A : Mas);   {описание процедуры ввода-
}
 Begin                                {вывода исходных данных
}
   ClrScr;
   Write(’Количество строк и столбцов – ’); Read(N);
   For i := 1 to N do

Страницы