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

Операторы повторения

Отработка навыков использования операторов ветвления

Написать программу, которая проверяет, является ли четным введенное с клавиатуры число	Program M2; Var n:integer; Begin Readln(n); Write(‘число’, n,’-‘); If n mod 2=0 then writeln(‘четное’) else writeln(‘нечетное’); End.
Написать программу, которая запрашивает номер дня недели и выводит название дня недели.	Program M3; Var day: integer; Begin Writeln (‘Введите номер месяца от 1 – 12); Readln(day); Case day of 1: writeln(‘Понедельник’); 2: writeln(‘Вторник’); 3: writeln(‘Среда’); 4: writeln(‘Четверг’); 5: writeln(‘Пятница’); 6: writeln(‘Суббота’); 7: writeln(‘Воскресенье’); else writeln(‘число д.б. от 1 до 7’); end; end.

Очень часто приходится повторять определенную часть алгоритма для различных значений аргумента. Для организации таких процессов используется алгоритмы с циклической структурой. На языке программирования – операторы повторения. Они составляются по правилам на основе различных закономерностей. Для выполнения процессов повторения на языке Паскаль предусмотрены три вида операторов цикла: арифметический цикл (параметрический цикл) - FOR, цикл с предусловием – WHILE и цикл с постусловием – REPEAT.

Используется, когда известно, сколько раз выполняется циклическая часть программы.

Блок-схемаоператора FOR

Формат записи: for <параметр цикла>:=<начало> to/downto <конец> do <оператор>;

для до делать

параметр цикла - числовая переменная типа integer

начало, конец - арифметическое выражение

to - используется когда начало меньше конца

downto - используется когда начало больше конца

оператор - тело цикла, любой оператор, в том числе и составной

Принцип работы:

§ Параметру присваивается значение начало;

§ Выполняется оператор - тело цикла;

§ Затем параметр сравнивается с концом;

§ Если параметр больше/меньше конца, то начинает работать следующий оператор за оператором цикла, в противном случае к параметру прибавляется/отнимается единица;

§ Снова выполняется оператор;

§ Так продолжается пока параметр не станет больше/меньше конца.

Дата добавления: 2017-01-14