лабораторная работа / лаб_4

ОПЕРАТОРЫ ЦИКЛА С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ

ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ

Формат записи оператора :

Он означает :

Repeat повторять указанные операторы

< оператор 1 >; пока условие не выполняется

. . . . . . . . . . ( это условие выхода из цикла )

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

Until <условие>;

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

ПРИМЕР ПРОГРАММЫ

СЛОЖЕНИЯ ЧИСЕЛ ОТ 1 ДО N.

Program 1SL (input, output);

Var I,N,S: integer;

BEGIN

Write (‘Введите N’) ; Read (N); {Введение знач. максим.числа}

S:= 0; I:= 0; {Обнуление нач.знач. суммы этих циклов}

Repeat

S:= S + I; {Накапливание суммы чисел}

I:= I + 1; {Подсчет числа циклов}

Until I > N;

Write (‘S= ‘, S)

END.

Программа определения внутреннего кода произвольного символа, причем программа будет повторять цикл ввода символа и печати его кода до тех пор, пока очередным символом не будет CR/

Program сod (input, output);

Var ch: char; {Введение знач. максим.числа}

Const

CR=13; {Обнуление нач.знач. суммы этих циклов}

BEGIN

Repeat

Readln(ch);

Write (‘ch= ‘, ord(ch));

Until ord (ch) =CR;

END.

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ

Формат записи оператора :

While <условие> do <оператор>;

где <оператор> - один оператор Паскаля или составной оператор (Begin ... end).

Запись оператора цикла While означает следующее:

пока выполняется условие повторять указанный оператор (здесь условие - условие выполнения цикла).

Предыдущая программа

сложения чисел от 1 до N

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

Program 2SL (input, output);

Var I,N,S : integer;

BEGIN

Write ( ‘Введите N’); Read (N);

S: = 0; I: = 0;

While I < = N do

begin

S: = S + I; I: = I + 1

end;

Write (‘ S= ‘, S )

END.

Программа для нахождения минимального, не равного 0 вещественного числа, которое после прибавления его к 1.0 еще дает результат, отличный от 1.0

Program epsilon (input, output);

Var epsilon: real;

BEGIN

Epsilon:=1;

While epsilon/2 +1 do

epsilon :=Epsilon/2;

Write (‘epsilon = ‘,epsilon );

END.