Помогите решить 3 задачи на языке Турбо-Паскаль

[rpg]

1. Название темы не по правилам.
2. Тема в Помощь студентам или во Фриланс?
3. Может покажете то, что у вас есть?

Модератор

1-ая задача это разветвляющейся вычислительный процесс.
2-ая задача посвящена циклу с известным числом повторений
3-я с неизвестным числом повторений, но с заданной точностью вычислений.

Данные задачи в прикреплённом файле:

[necky]

2ая задача:

var i,n,y:integer;
begin

i:=1;
y:=1;

writeln('Vvedite n');
readln(n);

 while (i<=n) do begin
y:=y*2*i;
i:=i+1;
end;

write('y=',y);

  { TODO -oUser -cConsole Main : Insert code here }
readln;
end.

Тег [CODE] или кнопка # придуманы для выделения листинга программ. Используйте их. Модератор.

function fact(i:integer):real;
var s:integer;
begin
s:=1;

while (i>0) do begin
s:=s*i;
i:=i-1;
end ;
fact:=s;

end;


function pow(i:integer;a:integer ):real;
var  s:integer;
begin
s:=1;
while(a>=1) do begin
s:=s*i ;
a:=a-1;
end;
pow:=s;
end;


----------------------------------------------

Вот основные функции, которые тебе нужны для решения 3ей задачи, попробуй написать самостоятельно. Удачи!!!

Тег [CODE] или кнопка # придуманы для выделения листинга программ. Используйте их. Модератор.

[puporev]

function fact(i:integer):real;

Факториал не может быть вещественным числом.
При чем здесь вторая функция вообще непонятно. Нужно ведь найти сумму членов ряда пока дробь >= e;
Чтоб не путали новичка приложу код.
Задача №3.

program summa;
uses crt;
var i,n:integer;e,sum:real;

function Fact(n:integer):integer;
var i:integer;p:longint;
begin
  p:=1;
  for i:=1 to n do
    p:=p*i;Fact:=p;
  end;

begin
  clrscr;
  write('e');readln(e);
  n:=1;sum:=0;
  while 0.7/Fact(2*n-1)>=e do
    begin
      sum:=sum+0.7/Fact(2*n-1);n:=n+1;
    end;
writeln('sum=',sum:8:7);readln
end.

[vit_galina]

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

Факториал не может быть вещественным числом.
[/CODE]

Тип не может быть Integer, т.к. диапозон таких чисел от -32768 до 32767, а даже при n=50 получаем число 3,04141Е+64, поэтому это переменная даже не Real, а Double