Оператор цикла.
Операторы цикла используются в том случае, если необходимо повторить какие-либо однотипные действия несколько раз
Оператор цикла с параметром
Эту разновидность оператора цикла удобно использовать, если число повторений известно наперед. Кроме того, циклы с параметром позволяют задать автоматическое изменение значения некоторой величины и использовать эту величину в последовательных итерациях.
for <переменная цикла> := <начальное значение> to <конечное значение> do
begin
<оператор>;
<оператор>;
….
end:
Пример. Программа выводит на экран 10 раз слово ‘текст’
Code
Program N1;
Var
i: byte;
Begin
for i:=1 to 10 do
begin
writeln (‘текст’);
end;
End.
Программа, создающая на экране эффект перемещающегося окна
Program N2;
uses crt;
var
i: byte;
BEGIN
textbackground (0);
clrscr; {- первоначальная очистка экрана и заливка черным цветом}
writeln ('Перемещение окна'); for i:=1 to 20 do
begin
window (i,6,i+10,16);
textbackground(blue); {создание окна в левой части экрана}
textcolor (red);
clrscr;
readln; {команда ждет нажатия кнопки ‘Enter’}
textbackground (0); {заливка окна черным цветом (окно пропадает)}
clrscr;
end;
writeln ('Программа завершена');
END.
Наберите эту программу и запустите. При каждом нажатии кнопки ‘Enter’ окно будет перемещаться вправо
Задание на урок
Задание 1. Набрать и выполнить программу номер1.
Задание 2. Переделать программу номер1 так, чтоб она многократного выводила на экран ваше имя.
Задание 3. Набрать и запустить программу номер2. Внести в нее изменения:
а) изменить цвет и размер перемещаемого окна (цвет – красный, размер – 15х15)
б) изменить направление перемещения окна (справа – налево или сверху – вниз)
Домашнее задание
Проработать параграф 39 по учебнику Семакина.