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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Pascal
i:=1; S:=0;
While i<=N do
begin S:=S+A[i];
i:=i+2
end;
A(N)
с нечетными индексами.
Число таких элементов
заранее известно. Шаг
параметра цикла равен
двум
Для организации циклов типа пока можно также использовать:
• в языке Pascal оператор цикла с постусловием Repeat...until:
Repeat
тело цикла
until <условие
завершения>
Повторять тело цикла до тех пор, пока не
выполнится условие завершения цикла.
Пример 4.1. Определить, является ли заданная последовательность чисел a
1
, a
2
, ... ,
a
N
монотонно убывающей.
Система тестов
Данные Результат Номер
теста
Проверяемый
случай
N Вектор А Otvet
1 Является 3 (3, 2, 1) 'Да'
2 Не является 3 (2, 3, 1) 'Нет'
Школьный АЯ
алг Убывание (арг цел N, арг вещ таб
A[1:N],
рез лит Otvet)
нач цел i
i:=1; Otvet:="Да"
нц пока (i<=N–1) и (Otvet="Да")
если A[i] < A[i+1]
то Otvet := "Нет"
иначе i:=i+1
все
кц
кон
Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N-1) и (Otvet = "Да") => (1)
A[i] < A[i+1] => (2)
N i Otvet (1) (2)
Блок-схема
(фрагмент) 
                                                                A(N)
                                       i:=1; S:=0;
          Pascal                                                с нечетными индексами.
                                       While i<=N do
                                         begin S:=S+A[i];       Число таких элементов
                                               i:=i+2           заранее известно. Шаг
                                         end;                   параметра цикла равен
                                                                двум

Для организации циклов типа пока можно также использовать:

   •    в языке Pascal оператор цикла с постусловием Repeat...until:



        Repeat                         Повторять тело цикла до тех пор, пока не
          тело цикла                   выполнится условие завершения цикла.
        until <условие
        завершения>


Пример 4.1. Определить, является ли заданная последовательность чисел a1 , a2 , ... ,
                            aN монотонно убывающей.

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

       Номер       Проверяемый                   Данные                Результат
       теста          случай
                                       N           Вектор А              Otvet

         1          Является           3            (3, 2, 1)            'Да'

         2         Не является         3            (2, 3, 1)            'Нет'

Школьный АЯ
алг Убывание (арг цел N, арг вещ таб
A[1:N],
                 рез лит Otvet)
нач цел i
  i:=1; Otvet:="Да"
  нц пока (i<=N–1) и (Otvet="Да")
     если A[i] < A[i+1]
         то Otvet := "Нет"
         иначе i:=i+1                                             Блок-схема
     все                                                          (фрагмент)
  кц
кон
Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N-1) и (Otvet = "Да") => (1)
A[i] < A[i+1] => (2)

   N         i      Otvet        (1)       (2)

Страницы