Оператор цикла с постусловием (используется, если число повторений заранее неизвестно).

Repeat Оператор1; Оператор2; … оператор N until условие;

repeat - повторять Оператор1 …операторN - последовательность операторов внутри цикла (тело цикла) Until - до Условие - логическое выражение

Вычислить значение переменной Y=, при заданном значении N.

Листинг программы

Program summa3;

Var N, i: integer;

Y: real;

Begin

Y:=0; i:=1;

Repeat

Y:=Y+1/i;

i:=i+1

Until i>N;

Writeln(‘Y = ’, Y);

End.

Зарисуем блок-схему вычисления значение переменной Y=.

Оператор цикла с предусловием

While условие do оператор ;

While – пока; Do - делать Условие – логическое выражение Оператор – тело цикла

Подсчитать сумму всех нечетных чисел от 101 до 301.

Листинг программы

Program summa4;

Var s, i: integer;

Begin

s:=0; i:=101;

While i<=301 do

Begin

s:=s+i;

i:=i+2;

End;

Writeln(‘сумма трехзначных нечетных= ’, s);

End.

Зарисуем блок-схему вычисления сумму всех нечетных чисел от 101 до 301 (см. выше).

Задания для самостоятельного выполнения

Задание 1. Напечатать «столбиком»:

- все целые числа от 20 до 35;

- квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры, b>=10).

Составить программу и зарисовать блок-схему.

Задание 2. Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, 4, …, 20 штук этого товара.

Составить программу и зарисовать блок-схему.

Задание 3. Используя, оператор цикла с предусловием, протабулировать кусочную функцию y на отрезке от -6.1 до 6.2 с шагом 0.4

Составить программу и зарисовать блок-схему.

Задание 4. Используя, оператор цикла с постусловием, протабулировать кусочную функцию y из задания 39 на отрезке от -6.1 до 6.2 с шагом 0.4

Составить программу и зарисовать блок-схему.

^*Задание 5. Дано вещественное число Х и натуральное N. Составить алгоритм вычисления Х^N. Написать программу и составить блок-схему.

^*Задание 6. Последовательно вводятся N целых чисел. Найти максимальное из них. Составить программу и зарисовать блок-схему.

Контрольные вопросы

1. Цикл? Разновидности циклической структуры?

2. Тело цикла?

3. Операторы цикла с постусловием.

4. Операторы цикла с предусловием.

5. Операторы цикла- пересчет.

6. Особенности цикла ПОКА.

7. Сколько раз выполнится оператор цикла repeat, если условие после слова until истинно при входе в цикл.

8. В чем особенность описания различных циклов в блок-схеме?

9. Как организовать форматный вывод на экран для типа real?

10. Что представляет собой экспоненциальная запись числа?

11. Что произойдет при выполнении программы «Составление таблицы значений функции», если оператор вывода значения функции на экран вынести за цикл?