Вычисление константы "e"

@Freasb · Регистрация: 13.09.2018

Получить число e

Pascal

program j;
var
n,i:word;
e,a:single;
begin
n:=100;
a:=1+1/n;
e:=1;
e:=e*a;
writeln(e);
end.

Где должна находиться строчка "for i:=1 to n"? Может есть еще какие-то еще ошибки?

@Puporev · 13.09.2018, 18:16

Сообщение от Freasb

Получить число e

Pascal

e:=exp(1)

;

@Joy · 13.09.2018, 18:17

@Freasb · 13.09.2018, 18:18 **[ТС]**

Это лаб работа и цель получить е с помощью программы

@Joy · 13.09.2018, 18:27

Pascal

program j;
var
  n:word;
  e,a:single;
begin
  a:=1;
  e:=1;
  for n:=1 to 100 do begin
    a:=a*1/n;
    e:=e+a;
  end;  
  writeln(e:20:6);
end.

@bormant · 14.09.2018, 00:24

Joy,
умножение на единицу -- штука зело бесполезная:

Pascal

    a:=a/n;

@Freasb 0 / 0 / 0 Регистрация: 13.09.2018 Сообщений: 2
	13.09.2018, 18:18 [ТС]	4
	Это лаб работа и цель получить е с помощью программы 0

	14.09.2018, 00:24

Решение