решённая задача, требуется корректировка Опции

[Ksander]

решил задачу да неправильно, не знаю в чём причина, уже всё перепробовал,ответ есть, но только он неправильный
текст такой:1+((2 в степени n)/(2 в степени n+1)),и всё это в цикле,который начинается с 1/2... и т.д.

Код

uses crt;
var n,i,j:byte;
     znam,chisl,sum:real;
begin
clrscr;
write('n=');
readln(n);
znam:=1;
for i:=1 to n do
  begin
  sum:=exp(i*ln(2))/exp((i+1)*ln(2));
  znam:=znam+sum;
  end;
  while n>=1 do
     begin
     chisl:=1;
     sum:=0;
     for i:=1 to n-1 do
 begin
 sum:=exp(i*ln(2))/exp((i+1)*ln(2));
 chisl:=chisl+sum;
 end;
     znam:=chisl/znam;
     n:=n-1;
     end;
writeln('otvet=',znam:2:6);
readkey
end.

Не забываем заключать код программы в соответсвтующие теги!

Сообщение отредактировано: APAL - 17.08.2004 18:38

[Бродяжник]

Решить как будто бы можно. Алгоритм нужно строить "снизу вверх", то есть от самого нижнего знаменателя. И будет всего один цикл типа
FOR I:=N DOWNTO 0 DO
(Примерно так.) Сам расчет строится по принципу
1. Вначале R := 2^(n+1)
2. Далее для всех i от n до 0 делаем следующее:
R := 1 + ((2^i)/R)
В итоге должна получиться та же формула, что и у Вас, но еще +1. Эту единицу можно в конце вычесть, если нужно. Программу пишите сами. Когда напишете, можем поправить. Удачи!