Реализация циклического алгоритма на Pascal. Цикл с предусловием. Цикл с постусловием презентация

Оператор цикла while (цикл с предусловием)
СИНТАКСИС:
while <условие> do <оператор>;
<Условие> - выражение логического типа.
<Оператор> после do называется телом цикла.
<Оператор> может быть составным (begin…end)
СЕМАНТИКА:
1. Вычисляется <условие>,
2. Если <условие> истинно (TRUE), выполняется тело цикла, в противном случае (FALSE) происходит выход из цикла.
Если <условие> всегда истинно, будет зацикливание, например: while 2>1 do write(1);
Прервать зацикливание - клавиш
или кнопку«stop» .
Тело цикла while в Pascal ABC не может быть пустым.

Задачи
1. Напечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2
Решение.
program Z1;
var k,s:real;
begin
s := 0;
while s <= 1 do begin
k := s*s;
writeln ('s=',s,' k=',k);
s := s + 0.2;
end;
end.

2. Составьте таблицу значений функции
y = 5x2 – 2x + 1 на отрезке [-5; 5] с шагом Δx = 2.
Решение.
program Z2;
var y,x:real
begin
x := -5;
while x <= 5 do begin
y := 5*x*x-2*x+1;
writeln('x=', x ,'y=', y);
x := x + 2;
end;
end.

Оператор цикла repeat
( цикл с предусловием )
СИНТАКСИС:
repeat <операторы> until <условие>
СЕМАНТИКА:
1. <Условие> вычисляется после очередной итерации цикла,
2. Если <условие> истинно (TRUE), то происходит выход из цикла.
Тело цикла оператора repeat, выполняется по крайней мере один раз.
Оператор repeat используют, когда <условие> нельзя проверить, не выполнив тело цикла. Например: проверка данных при вводе:
repeat
read(x);
until x=0;
Если условие всегда ложно (FALSE) происходит зацикливание:
repeat
write(1);
until 2=1;

3. Определить число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K.
Решение.
program Z3;
var n,s,k:integer;
begin
writeln( 'Введите K' );
readln (k);
s:=0;
n:=0;
repeat
n := n+1;
s:=s+n*n;
until s > k;
s:= s-n*n;
n:=n-1;
writeln('N= ', n, ‘ s=' ,s );
end.
Задачи

4. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом Δx=0,2.
program Z4;
Const xn=-2; xk=2; dx=0.2;
Var x, fx : Real;
Begin
x:=xn;
Writeln(' x f(x)');
Writeln('----------------');
x:=xn;
repeat
fx:=x*x*x-3*x;
Writeln(x:8:4,fx:8:4);
x := x+dx;
until x > xk;
end.

Различные варианты программирования циклического алгоритма
Для решения одной и той же задачи могут быть созданы разные программы.
Задачи
5. Организуем ввод целых чисел и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль.

program Z5a;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
write ('Введите целое число>>');
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
until n=0;
writeln ('Введено:');
writeln ('положительных чисел – ', k1);
writeln ('отрицательных чисел – ', k2)
end.
В задаче в явном виде задано условие окончания работы.
Воспользуемся оператором repeat.

Ввод осуществляется до тех пор, пока не будет введён ноль.
Работа продолжается, пока n 0.
Воспользуемся оператором while:
program Z5b;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
n:=1;
while n<>0 do begin
writeln ('Введите целое число>>');
read (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln ('Введено:');
writeln ('положительных – ', k1);
writeln ('отрицательных – ', k2)
end.

Задачи выполнить самостоятельно
c помощью цикла While:
6. Напечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2
7. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом Δx=0,2.
8. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:
x sin(x) cos(x)
---------------------------------
0.0000 0.0000 1.0000
0.1000 0.0998 0.9950