Написать программу, которая вычисляет приближенное значение числа e с заданной точностью

[quade1992]

1)Написать программу, которая вычисляет приближенное значение числа e с заданной точностью

2) Написать программу, которая вычисляет приближенное значение sin 1 градуса с заданной точностью.

[quade1992]

Для первой программы - это правильно? и помогите написать для второй

program z1;
var Sum,Sum1,e:real;
x,n:integer;
begin
writeln('Введие значение exp(x) и точность e');
read(x,e);
SumCh:=x; Sum:=1; n:=1;
while abs(Sum1)>e do
begin
Sum:=Sum+Sum1;
inc(n);
SumCh:=Sum1*x/n
end;
writeln('Значение exp(',x,')=',Sum:0:5);
writeln('Значение стандартной функции exp(',x,')=',exp(x):0:5);
end.

[Vanta11a]

SumCh:=Sum1*x/n

Переменная SumCh не объявлена => не компилируется => неправильно

Логики работы не понял. По идее должно быть так, если нужно число e (которое = 2.71828183.....):
1) Вводится начальная и конечная точки отрезка
2) Используется метод "золотого сечения" или подобный
3) PROFIT!

[val_nnm]

Тут нужно сначала пользовтаься рядом Маклорена. Потом для ряда вывести рекурентныю формулу. Ну и дальше написать программу.
1)

var s:real;
    e:real;
    element:real;
    n:integer;
Begin
  write('Введие точность вычислений ');
  readln(e);
  s := 1;
  element := 1;
  n := 0;
  repeat
    n := n+1;
    element := element/n;
    s := s + element;
  until (Abs(element)<e);
  writeln('       число e=',s:0:10);
  writeln('точное число e=',exp(1):0:10);
end.

2)

var s:real;
    e:real;
    element:real;
    x:real;
    n:integer;
Begin
  write('Введие точность вычислений ');
  readln(e);
  x := 1; { в градусах }
  x := x*pi/180; { переводим градусы в радианы }

  s := x;
  element := x;
  n := 0;
  repeat
    n := n+1;
    element := -element*x*x/((2*n)*(2*n+1));
    s := s + element;
  until (Abs(element)<e);
  writeln('       число sin(x)=',s:0:10);
  writeln('точное число sin(x)=',sin(x):0:10);
end.