Приклад циклічної програми

Обчислити значення виразу, що містить суму і добуток

Лістинг програми:

program SumaDobutok; uses Crt; var i: integer;

suma, dob, y: real;

fact: longint;

begin

clrscr;

suma:=0; {Спочатку сума дорівнює нулю, а добуток одиниці}

dob:=1;

fact:=1;

for i:= 1 to 25 do begin

fact:= fact*i; {Обчислюємо факторіал (fact=1*2*3*…*f}

suma: = suma+5*sqr(i)/fact; {Обчислюємо суму та} dob:=dob*sqr(i); {добуток}

end;

y:=suma+dob;

writeln(‘y=’, y:7:2);

readln

end.

Блок - схема програми:

Викладач ____________ М. О. Пашко

9