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