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

UptoLike

ВУЗ: 

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

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

Рубрика: 

нач цел i, j, лит Flag
i:=1; Flag:="Нет"
нц пока (i<=N) и (Flag="Нет")
|цикл по игрокам
"Спартака"
j:=1
нц пока (j<=M) и (Flag="Нет")
|цикл по игрокам "Зенита"
если S[i]=Z[j] |проверка
равенства ростов
то Flag:="Да"
иначе j:=j+1
все
кц
i:=i+1
кц
если Flag="Да"
то Otvet:="Есть игроки
одинакового роста"
иначе Otvet:="Нет игроков
одинакового роста"
все
кон
Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N) и (Flag = "Нет") => (1)
(j < i) и (Flag = "Нет") => (2)
Номер
теста
i Flag (1) j (2) S[i]=Z[j] Otvet
1
"Нет"
"Да"
+
1
2
+
-
-(кц)
-
+
1
2 -(кц) "Есть"
1 "Нет" + 1
2
3
+
+
-(кц)
-
-
2 + 1
2
3
+
+
-(кц)
-
-
2
3 -(кц) "Нет"
Turbo Pascal 
нач цел i, j, лит Flag
  i:=1; Flag:="Нет"
  нц пока (i<=N) и (Flag="Нет")
           |цикл по игрокам
"Спартака"
    j:=1
     нц пока (j<=M) и (Flag="Нет")
           |цикл по игрокам "Зенита"
        если S[i]=Z[j] |проверка
равенства ростов
          то Flag:="Да"
          иначе j:=j+1
        все
     кц
    i:=i+1
  кц
  если Flag="Да"
     то Otvet:="Есть игроки
одинакового роста"
     иначе Otvet:="Нет игроков
одинакового роста"
  все
кон




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

                       Обозначения проверяемых условий:
                   (i <= N) и (Flag = "Нет") => (1)
                    (j < i) и (Flag = "Нет") => (2)
      Номер
               i    Flag     (1)    j    (2)      S[i]=Z[j] Otvet
       теста
               1   "Нет"      +     1     +          -
                   "Да"             2     -          +
         1                              -(кц)
               2            -(кц)                          "Есть"
               1   "Нет"      +     1     +          -
                                    2     +          -
                                    3   -(кц)

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


Turbo Pascal

Страницы