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

Лабораторная работа 9.

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

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

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

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

REPEAT

<Оператор 1>;

<Оператор 2>;  . .

<Оператор N>;

UNTIL<условие>;

В этой структуре:

<Оператор 1>; <Оператор 2>; . . . <Оператор N>; - тело цикла.

<условие> - логическое выражение, ложность которого проверяется после выполнения тела цикла.

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

Выполняются операторы, следующие за служебным словом REPEAT. Пос­ле этого проверяется условие. Если условие ложно, то происходит возв­рат к выполнению операторов, следующих за служебным словом REPEAT, и снова проверяется условие. Если условие истинно, то выполнение тела цикла прекращается.

В "жаргонном" переводе на русский язык, оператор цикла с постус­ловием "звучит" так:

Повторять тело цикла пока не выполнится условие.

В цикле REPEAT тело цикла выполняется по крайней мере один раз.

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

{Усовершенствованная программа, вычисляющая сумму двух чисел}

Program ЕХ1;

Var х, у, sum.:  real; t: byte;

Begin

REPEAT

Writeln(^‘Bведите числа x и у.’);

Readln(x, у); 

sum := x + у;

Writeln(‘Сумма чисел равна ‘, sum);

Write(‘Завершить программу? 1-да, 2-нет :’);

Readln(t);

UNTIL t = 1;

End.

{Bычисление суммы S = 1 + 1/2 + 1/3 + ... + 1/50}

Program EX2;

Var n: integer; s: real;

Begin

s:= 0;

n:= 1;

REPEAT

s:= s + 1/n;

n := n + 1;

UNTIL n > 50;

Writeln(‘ Результат суммирования ... ‘,s);

End.

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

1 Что представляет собой тело цикла оператора цикла с постусловием?

2 Сколько раз выполняется оператор цикла с постусловием?

3 Как осуществляется выход из оператора цикла с постусловием?

4 Объясните структуру оператора цикла с постусловием.

5 Объясните порядок выполнения оператора цикла с постусловием.

6 Объясните блок-схему оператора цикла с постусловием.

7 Приведите примеры применения оператора цикла с постусловием.