Программа состоит из отдельных разделов или блоков, которые долж­ны располагаться в следующем порядке: [ заголовок программы; ]

Задания для самостоятельного выполнения лабораторной работы 7.


1 Нарисуйте картинку "автомобиль".
2 Нарисуйте картинку "робот".
3 Нарисуйте разноцветную "ромашку" используя процедуры рисования ок­ружности и эллипса
4 Нарисуйте три окружности с заключёнными в них треугольником, квад­ратом и звездой. Все фигуры должны быть разного цвета.
5 Нарисуйте олимпийский флаг.
6 Изобразите год вашего рождения в виде прямоугольников.
7 Нарисуйте свои инициалы в виде разноцветных прямоугольников из толстых линий.
8 Нарисуйте контур прямоугольника, в котором напишите (нарисуйте ли­ниями разного цвета) своё имя.
9 На белом фоне изобразите шаблон вашего индекса так, как он выглядит на почтовом конверте.
10 Нарисуйте разноцветную бабочку.

^{Лабораторная работа 8.}


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


Вычислительный процесс называется циклическим, если он содержит многократное повторение одних и тех же действий. Многократно повторя­емые участки вычислений называются ЦИКЛАМИ. Для программ реализации таких вычислений в TP имеется несколько типов операторов цикла.


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


Оператор цикла с предусловием организует выполнение одного (воз­можно составного) оператора неизвестное число раз. Выход из цикла осу­ществляется, если некоторое логическое выражение окажется ложным. Так как истинность логического выражения проверяется вначале, тело цикла может не выполнится ни разу.


Структура оператора.


WHILE <условие> DO <оператор>;


В этой структуре:
<условие> - логическое выражение, истинность которого проверяется вначале выполнения циклического оператора;
<оператор> - любой выполняемый оператор языка (в том числе и сос­тавной, т. е. последовательность операторов, заключённая в операторные скобки BEGIN - END).


Порядок выполнения оператора.


Пока условие истинно выполняется оператор, следующий за служебным словом DO. Как только условие становится ложно, выполнение оператора цикла прекращается.


Примеры применения:


{Вычислить сумму S = 1 + 1/2 + 1/3 + ... + 1/50, используя оператор цикла WHILE }


PROGRAM ех_1;
Var s: real; n: integer;
ВEGIN
s:=0; n:=l;
While n <= 50 do { пока значение n не превзойдёт 50 }
begin { тело цикла }
s:=s + 1/n;
n:=n + 1
end;
Writeln (‘Сумма равна: ‘,s)
END.


{ Разложение целого числа на простые множители. }
PROGRAM Ех_2;
VAR x, n.: integer;
BEGIN
Write(‘Bведите целое число’);
Readln(х);
Writeln(‘ Разложение числа ‘,х,’ на простые множители.’);
m := 2;
WHILE m<= х DO
Readln(х);
Writeln(‘ Разложение числа ‘,х,’ на простые множители.^’);
m := 2;
WHILE m <= х DO
IF ( x mod m ) = 0
THEN
Begin
Write (‘*’, m) ; x:= x div m;
End
ELSE m := m + 1;
END.


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


1 Какой вычислительный процесс называют циклическим?
2 Сколько раз выполняется оператор цикла с предусловием?
3 Как осуществляется выход из оператора цикла с предусловием?
4 Объясните структуру оператора цикла с предусловием.
5 Объясните порядок выполнения оператора цикла с предусловием.
6 Объясните блок-схему оператора цикла с предусловием.
7 Приведите примеры применения оператора цикла с предусловием.


Задания для самостоятельного выполнения лабораторной работы 8.


1 Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пе­ресекающихся окружностей.
2 Нарисовать "диагональ" экрана, состоящую из 50 разноцветных эллип­сов.
3 Нарисовать вертикальную последовательность из увеличивающихся раз­ноцветных секторов одного радиуса. Последний сектор - окружность.
4 Нарисуйте "пилу" из 40 линий разного цвета.
5 Нарисовать "веер", состоящий из 50 разноцветных линий.
6 Нарисовать "окружность", состоящую из 36 разноцветных квадратов.
7 Нарисовать "квадрат", состоящий из 20 разноцветных окружностей.
8 Нарисуйте фрагмент синусоиды, состоящий из 100 разноцветных окруж­ностей одного радиуса.
9 Вычислить значения n! для n введённого с клавиатуры.
10 Дано натуральное число N. Вычислить сумму цифр этого числа.