Не смотря на то, что есть еще другие операторы цикла, обычно вводят и выводят массивы с помощью оператора цикла с параметром.

6.2. Применение оператора цикла с постусловием

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

repeat

S1;S2;...;Sn

until B

где S1, S2, ..., Sn - любые операторы;

B - логическое выражение.

Перед UNTIL точку с запятой (;) можно не ставить.

Последовательность операторов S1;S2;...;Sn выполняется один или более раз. Процесс завершается, когда после очередного выполнения заданной последовательности операторов S1;S2;...;Sn логическое выражение В впервые примет значение true (истина). Итак, В - это условие выхода из цикла.

В версии Turbo Pascal 7.0 для прекращения цикла можно использовать процедуру Break, которая передает управление следующему за этим циклом оператору, а также можно использовать процедуру Continue, которая прекращает текущую итерацию ближайшего охватывающего цикла и вызывает следующую итерацию.

Пример 1

Организовать обратный счет при запуске ракеты: 10,9,8,...,1,0.

_{Решение}

Var

sec:integer;

Begin

sec:=10;

REPEAT

Writeln(sec);

sec:=sec-1

UNTIL sec=0;

Writeln('ZERO')

End.

Напишем структурную схему для данной программы:

Задания

№1. Определить значение переменной S после выполнения следующих операторов:

S:=0;

i:=1;

Repeat

s:=s+1/i;

i:=i-1

Until i<=1;

№2. Найти U - первый отрицательный член последовательности Сos(Ctg n), n=1,2,3,...

№3. Вычислить Y - первое из чисел Sinx, SinSinx, SinSinSinx, ... , меньшее по модулю 10-4.

№4. Определить значение функции

y=Sinx+Cosx

на интервале [0,π] с шагом h.

№5. Определить значение функции

на интервале [-π, π] с шагом h.

№6. Написать программу для вычисления величины

y=Sin1+Sin1,1+Sin1,2+...+Sin2.

№7. Дано положительное число Eps. Последовательность a1, a2, a3,... образована по следующему закону:

Надо найти первый член а_n последовательности, для которого выполнится условие

|a_n-a_n-1|<Eps.

Написать программу для выполнения этого задания.

№8. Числа Фибоначчи (f_n) определяются формулами:

f₀=f₁=1; f_n =f_n-1+f_n-2 при n=2,3,...

а) определить f - сороковое число Фибоначчи (использовать цикл с параметром);

б) найти f - первое число Фибоначчи, большее m (m>1);

в) найти s - сумму всех чисел Фибоначчи, которые не превосходят 1000.

№9. Осуществить ввод чисел до первого нулевого. Распечатать введенные числа в два столбика: 1-й столбик положительные числа, 2-й столбик - отрицательные числа. Каждый столбик подчеркнуть и написать сумму чисел данного столбика.

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

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

WHILE z DO s

где z - логическое выражение;

s - оператор.

Пока логическое выражение z принимает значение «истина», будет выполняться оператор s.

Перед каждым выполнением оператора s вычисляется значение логического выражения z. Оператор s выполняется только в том случае, когда z принимает значение «истина» (т.е. z - это условие работы цикла). Если z – «ложь» при первом же его вычислении, то оператор s не выполнится ни разу.

В версии Turbo Pascal 7.0 для прекращения цикла можно использовать процедуру Break, а для прекращения текущей итерации процедуру Continue.