Циклический вычислительный процесс
Помогите пожалуйста написать программу для Turbo Pascal. Тема: Циклический вычислительный процесс. ( ! - это факториал )
Цитата: vadimsheva
Помогите пожалуйста написать программу для Turbo Pascal. Тема: Циклический вычислительный процесс. ( ! - это факториал )
Что не получается-то? Что уже есть сделанного?
Вот что-то есть. Но я не знаю что я праивльно факториал записал.
var
a,i,b,p:integer;
s:real;
begin
read(a,b);
s:=0;
p:=i+1;
for i:=1 to 20 do
begin
p:=p*(i+1);
s:=s+((a*b)/p);
end;
writeln ('s=', s:5:2);
readln;
end.
var
a,i,b,p:integer;
s:real;
begin
read(a,b);
s:=0;
p:=i+1;
for i:=1 to 20 do
begin
p:=p*(i+1);
s:=s+((a*b)/p);
end;
writeln ('s=', s:5:2);
readln;
end.
Цитата:
Но я не знаю что я праивльно факториал записал.
Что?
Всё работает же.
Цитата: Alm3n
Что?
Всё работает же.
Всё работает же.
А работает правильно? )
Цитата: vadimsheva
А работает правильно? )
А на бумажке посчитать и результаты сверить?
Цитата: Alm3n
А на бумажке посчитать и результаты сверить?
Ладно, спасибо за помощь)