Просьба переделать программу для паскаль. Чтобы она выполняла туже функцыю но выглядела по другому. Зарание спасибо.

[Danilzp]

uses crt;

var genres : real;
var e, res1, res2:real;
var i:integer;


begin
genres:=0;
write ('Введите значение e:');
read(e);

if e<0 then
write('go back');

i:=1;

res1 := 1/(i*(i+1));
res2 := 1/((i+1)*(i+2));

while abs(res2-res1)<=e do
begin
res1 := 1/(i*(i+1));
res2 := 1/((i+1)*(i+2));
genres := genres + res1;
i := i + 1;



end;

write (genres);



end.

[digitalis]

Как - по другому? В платье с цветочками ?

uses crt;

var genres : real;
var e, res1, res2:real;
var i:integer;

begin
  genres:=0;
  write ('Введите значение e:');
  read(e);

  if e<0 then
  write('go back');

  i:=1;

  res1 := 0;
  res2 := 0;

  while abs(res2-res1)<=e do
    begin
       res1 := 1/(i*(i+1));
       res2 := 1/((i+1)*(i+2));
       genres := genres + res1;
       i := i + 1;
    end;

  write (genres);
end.

Так годится ?

[Danilzp]

нет

[digitalis]

А что не так? Выкладывай свои секретные мысли об "по другому" . В моём представлении - по другому - это в т.ч. и нормально оформленное, с отступами для нормального распознавания блоков.
Программа неправильная. Задание не приводится (секретно, видимо), но работать прога не будет. Поскольку разность всё время уменьшается, то цикл или не сработает ни разу, или будет работать бесконечно. Похоже, должно быть
while abs(res2-res1)>=e do
или что то же самое
while res1-res2>=e do
Как-то так:

  res1 := 1/2;
  res2 := 1/6;
  i := 1;
  while res1-res2 >= e do
    begin
       res1 := 1/(i*(i+1));
       res2 := 1/((i+1)*(i+2));
       genres := genres + res1;
       i := i + 1;
    end;