Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Циклы

Автор: koshkarjov 1.3.2010, 23:14

Программа должна предусматривать ввод исходных данных с клавиатуры и вывод результата на экран.
Определить число e – основание натуральных логарифмов с помощью ряда:
user posted image

для всех значений n от 1 до 20. Для каждого случая напечатать n и соответствующее приближение e.

Автор: Sanaff 1.3.2010, 23:27

В чём сложности? где вопрос? Или надо написать программу за вас?

Автор: koshkarjov 2.3.2010, 19:21

Как реализовать данный цикл? Можно пример?

Автор: Sanaff 2.3.2010, 20:07

Цикл:

Код


program exx;
var e,s,f : real ;
var i : integer;
begin
f:=1;
s:=1;

  for i:=1 to 20 do
  begin
    f:=f*i;
    s:=s + 1/f ;
  end;

end.

Автор: koshkarjov 3.3.2010, 12:05

Спасибо!

Готовая программка, если кому надо будет smile

Код


program lab3;
var e,sum,m,n:integer;
function factorial(k:integer):longint;
var i,f:longint;
begin
f:=1;
for i:=1 to k do
f:=f*i;
factorial:=f;
end;
begin
for n:=1 to 2 do
begin
m:=factorial(n);
writeln(1+(1/m));
end;
writeln;
writeln('[ Нажмите [ENTER] для выхода ]');
readln;
end.