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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Пример 2.3. В баскетбольную команду могут быть приняты ученики, рост которых
превышает 170 см. Составьте список кандидатов в команду из учеников класса.
Система тестов
Номер
теста
Проверяемый
случай
Число
учеников
Фамилии Рост Результаты
1
Есть
кандидаты
3
Кулов
Чехин
Уваров
171
165
178
Кулов
Уваров
2
Нет
кандидатов
2
Ершов
Иванов
170
165
Нет
кандидатов
Школьный АЯ
алг Баскетбол (арг цел N, арг лит таб Фам[1:N], арг вещ
таб Рост[1:N], рез лит таб Канд [1:N] )
нач цел i, k
k:=0
нц для i от 1 до N | запись фамилий кандидатов в таблицу Канд
если Рост[i]>170
то k:=k+1; Канд [k] := Фам [i]
все
кц
если k=0
то вывод "В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ."
иначе нц для i от 1 до k
вывод Канд [i]
кц
все
кон
Исполнение алгоритма
N теста i
Рост[i] >
170
K Кондидаты в команду
1
1
2
3
+
-
+
0
1
2
Кулов
Уваров
2
1
2
-
-
0 -
TurboPascal
Program BascetBall;
Uses Crt;
Var
SurName : Array [1..30] of String; { фамилии учеников }
Height : Array [1..30] of Real; { рост учеников }
Cand : Array [1..30] of String; { фамилии кандидатов } 
Пример 2.3. В баскетбольную команду могут быть приняты ученики, рост которых
 превышает 170 см. Составьте список кандидатов в команду из учеников класса.

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

     Номер        Проверяемый      Число
                                              Фамилии      Рост      Результаты
      теста          случай       учеников
                                              Кулов        171
                     Есть                                             Кулов
        1                               3     Чехин        165
                   кандидаты                                          Уваров
                                              Уваров       178
                      Нет                     Ершов        170          Нет
        2                               2
                   кандидатов                 Иванов       165       кандидатов

Школьный АЯ
алг Баскетбол (арг цел N, арг лит таб Фам[1:N], арг вещ
                 таб Рост[1:N], рез лит таб Канд [1:N] )
нач цел i, k
  k:=0
  нц для i от 1 до N | запись фамилий кандидатов в таблицу Канд
     если Рост[i]>170
       то k:=k+1; Канд [k] := Фам [i]
     все
  кц
  если k=0
     то вывод "В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ."
     иначе нц для i от 1 до k
              вывод Канд [i]
           кц
 все
кон
                          Исполнение алгоритма

                                Рост[i] >
       N теста          i                     K      Кондидаты в команду
                                   170
                        1           +         0
                                                           Кулов
              1         2           -         1
                                                           Уваров
                        3           +         2
                        1           -
              2                               0                  -
                        2           -

TurboPascal
Program BascetBall;
  Uses Crt;
  Var
      SurName : Array [1..30] of String;               { фамилии учеников }
      Height : Array [1..30] of Real;                  { рост учеников }
      Cand    : Array [1..30] of String;               { фамилии кандидатов }

Страницы