Реферат: Основы языка Паскаль

PROGRAM PRIM;

VAR

K: integer;

S : integer;

BEGIN

S: =0;

нет

K: =0;

WHILE S<=100 DO

да

BEGIN

K: = K+1;

S: = S+ K;

END;

writeln (‘кол-во слагаемых равно’, K);

END.

Конструкция цикла с последующей проверкой условия

Формат данного оператора следующий:

REPEAT

тело цикла

UNTIL <условие>;

Служебное слово REPEAT (повторять) открывает тело цикла, затем выполняются последовательно операторы тела цикла и проверяется условие выхода из него.

Переводится конструкция так: «Повторять до тех пор, пока условие не станет истиной».

Необходимо помнить, что:

1. тело цикла выполняется хотя бы один раз в любом случае;

2. в ходе выполнения цикла должны прийти к истинности условия.

Пример: Вычислить сумму квадратов натуральных чисел до тех пор, пока квадрат очередного числа не превысит 100.

n = n + 1

S = s + n2

n =1

S = 0

PROGRAM ZIKL_DO;

VAR

s: integer;

n: integer;

BEGIN

s: =0;

n: =1;