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

UptoLike

ВУЗ: 

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

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

Рубрика: 

then Flag:=TRUE
else j:=j+1;
i:=i+1
end;
End; { of Solution }
{--------------------------------------------}
Procedure OutResult;
Begin
WriteLn('О т в е т :');
Write('Среди элементов, лежащих ниже главной диагонали, ');
If Flag then WriteLn('есть отрицательные.')
else WriteLn('нет отрицательных.');
ReadLn
End; { of OutResult }
{--------------------------------------------}
BEGIN
InputOutput(A); {вызов процедуры ввода-вывода данных }
Solution(A); {вызов процедуры поиска решения задачи}
OutResult {вызов процедуры вывода результата }
END.
Пример 5.3. Выяснить, есть ли в баскетбольных командах "Спартак" и "Зенит"
игроки одинакового роста.
Система тестов
Обозначения:
N - количество игроков в команде "Спартак";
M - количество игроков в команде "Зенит";
S(N) - массив ростов игроков команды "Спартак" (см);
Z(N) - массив ростов игроков команды "Зенит" (см).
Данные Результат
Спартак Зенит
Номер
теста
Проверяемый
случай
N S(N) M Z(M)
Otvet
1 Есть
3 200
195
205
4 198
200
206
192
"Есть игроки
одинакового
роста"
2 Нет
2 200
195
2 198
201
"Нет игроков
одинакового
роста"
Школьный АЯ
алг Рост (арг цел N, M, арг целтаб
S[1:N],
Z[1:M], резлит Otvet)
Блок-схема (фрагмент) 
                then Flag:=TRUE
                else j:=j+1;
            i:=i+1
          end;
      End; { of Solution }
      {--------------------------------------------}
      Procedure OutResult;
      Begin
        WriteLn('О т в е т :');
        Write('Среди элементов, лежащих ниже главной диагонали, ');
        If Flag then WriteLn('есть отрицательные.')
                else WriteLn('нет отрицательных.');
        ReadLn
      End; { of OutResult }
      {--------------------------------------------}
      BEGIN
        InputOutput(A); {вызов процедуры ввода-вывода данных }
        Solution(A); {вызов процедуры поиска решения задачи}
        OutResult {вызов процедуры вывода результата }
      END.


        Пример 5.3. Выяснить, есть ли в баскетбольных командах "Спартак" и "Зенит"
                                 игроки одинакового роста.

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

      Обозначения:
        N - количество игроков в команде "Спартак";
        M - количество игроков в команде "Зенит";
        S(N) - массив ростов игроков команды "Спартак" (см);
        Z(N) - массив ростов игроков команды "Зенит" (см).

                                           Данные                        Результат
Номер     Проверяемый
теста        случай             Спартак               Зенит
                                                                            Otvet
                            N       S(N)          M       Z(M)

                            3        200          4        198         "Есть игроки
                                     195                   200          одинакового
  1            Есть
                                     205                   206             роста"
                                                           192

                            2        200          2        198         "Нет игроков
  2            Нет                   195                   201          одинакового
                                                                           роста"

      Школьный АЯ                                       Блок-схема (фрагмент)
      алг Рост (арг цел N, M, арг целтаб
      S[1:N],
                Z[1:M], резлит Otvet)

Страницы