Решение уравнения Опции

[Kosmik]

Написать программу решения уравнения для случая n делений.
Ниже прведен пример для n=3
1993=1+8:(1+8:(1+8:(1+8*x)))

Подскажите мне пожалуйста...как записать мне это уравнение. А то я что-то от приходящих мыслей выпала в осадок

Точнее мыслей уже никаких нет.

Сообщение отредактировано: Kosmik - 25.11.2009 0:20

[Unconnected]

Я попробовал сделать перебором, не знаю правда, верно ли получилось, вот:

var n,i:byte;
    lev,res:integer;

function find(x,n:byte):real;
var i:byte;
    s:real;
begin
  s:=1+(8*x);
  for i:=1 to n do s:=1+(8/s);
  find:=s;
end;

begin
  writeln('Vvedite 4-znachnoe chislo');
  readln(lev);
  writeln('Vvedite N');
  readln(n);
  res:=0;
  repeat
    inc(res);
  until (find(res,n)=lev);
  writeln(lev);
  readln;
end.

При N=3 и левой части = 1993 корней не находит, думаю, может надо приращивать к res по 0.1 или меньше..

Добавлено через 17 мин.
Хотя, кажется, тут перебором не получится..

Сообщение отредактировано: Unconnected - 25.11.2009 3:43