Задания для самостоятельного выполнения лабораторной работы 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 Приведите примеры применения оператора цикла с предусловием.