Практическая работа "Программирование циклических алгоритмов"

1. Программирование циклов с заданным условием продолжения работы

program n_14;

var x, y, q, r: integer;

begin

writeln ('Частное и остаток')

write ('Введите делимое x');

readln (x);

write ('Введите делитель y');

read (y);

r:=x;

q:=0;

while r=y do

begin

r:=r-y;

q:=q+1

end;

writeln ('Частное q=', q);

writeln ('Остаток r=', r)

end.

2. Программирование циклов с заданным условием окончания работы

program n_15;

var i: integer; x: realn;

begin

writeln ('График тренировок');

i:=1;

x:=10;

repeat

i:=i+1;

x:=x+0.1*x;

until x=25;

writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 25 км')

end.

3. Программирование циклов с заданным числом повторений

program n_16;

var i,n:integer;a,y:real;

begin

writeln ('Возведение в степень');

write ('Введите основание a');

readln (a)

write ('Введите показатель n');

readln (n);

y:=1;

for i:=1 to n do y:=y*a;

writeln ('y=', y)

end.

4.

program n_17;

var n, k1, k2: integer;

begin

k1:=0;

k2:=0;

repeat

write ('Введите целое число');

realn (n);

if n0 then k1:=k1+1;

if n