Урок 13. Цикл for (продолжение)

1. Выполните задания с циклом for:

Чему будет равно значение переменно s после выполнения программы?
var s, i: integer;

begin

s:=0;

for i:=1 to 10 do

s:=s+i;

s:=s*10;

end.
2. Рассмотрим решение ДЗ
Решение задачи for19.pas:
var i: integer;
n:real;
begin
writeln('Найти N!');
write('Введите число N: ');
readln(n);
for  i:=1 to trunc(n) do  n:=n*i;
writeln('N!=',n:20:0);
end.


Решение задачи for20.pas:
var i,n: integer;
s,p:real;
begin
writeln('Найти 1!+2!+... N!');
write('Введите число N: ');
readln(n);
p:=1; s:=0;
for  i:=1 to n do  begin p:=p*i; s:=s+p;   end;
writeln('1!+2!+... N!',s:20:0);
end.


Решение задачи for24.pas:
var n,i: integer;
x,s,ai:real;
begin
writeln('Найти X - X^2 /(2!)+ X^4 /(4!)- ... +(-1)^N*X^(2*N)/((2*N)!)');
write('Введите число N: ');
readln(n);
write('Введите значение x: ');
readln(x);
ai:=1;
for  i:=1 to n do
begin
     s:=s+ai;
     ai:=-ai*x*x/(2*i-1)/(2*i)
end;
writeln (s);
end.

3. Решение задач
Напишите самостоятельно программу для решения задачи for25.pas.

4. Домашнее задание
Решите задачи for21.pas, for26.pas.