Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

i:integer ;

begin

writeln ('Вычисление суммы значений функции');

h:=(b-a)/(n-1);

writeln (' a = ',a);

writeln (' b = ',b);

writeln (' n = ',n);

writeln (' h = ',h:0:8);

writeln ;

{цикл "while"}

writeln ('1. Цикл "while"');

x:=a;

s:=0;

i:=1;

while i<=10 do

begin

s:=s+sin (x+3)/exp (2/5*ln (x+3));

x:=x+h;

i:=i+1;

end ;

write (' Значение s: ');

writeln (s:0:8);

{цикл "repeat"}

writeln ('2. Цикл "repeat"');

x:=a;

s:=0;

i:=1;

repeat

s:=s+sin (x+3)/exp (2/5*ln (x+3));