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

[Kosmik]

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

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

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

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

[Kosmik]

Появились кое-какие мысли, подсказали, получилась программка только она выдает немного не правильный результат.....может кто-то знает в чем ошибка?

Program uravnenie; 
Var 
i,n:integer; 
x:real; 
LevChast:real; 
Begin 
  Writeln ('Введите четырехзначное число'); 
  readln (LevChast); 
  Writeln ('Введите n'); 
  readln (n); 
  for i:=1 to n do 
  if i<n then LevChast:=8/(LevChast-1) else x:=(LevChast-1)/8; 
  writeln('x=',x:5:3); 
  readln; 
end.

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

[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

[sheka]

можна просто постоянно(n раз) от левой стороны отнимать 1, а потом ее делить на 8. вот так и получится х.
в чем, собственно, проблема?

[Kosmik]

Все, ошибка нашлась, помогли:)
щас выложу правильно работающую программу:)

Program uravnenie; 
Var 
i,n:integer; 
x:real; 
LevChast:real; 
Begin 
  Writeln ('Введите четырехзначное число'); 
  readln (LevChast); 
  Writeln ('Введите n'); 
  readln (n); 
  for i:=1 to n+1 do 
  if i<n+1 then LevChast:=8/(LevChast-1) else x:=(LevChast-1)/8; 
  writeln('x=',x:5:8); 
  readln; 
end.

[Lapp]

Kosmik, немного странно ты поступаешь в цикле. Если тебе нужно последний прогон сделать по-другому - зачем тогда вообще его включать в цикл? Сравни:
у тебя:

  for i:=1 to n+1 do
  if i<n+1 then LevChast:=8/(LevChast-1) else x:=(LevChast-1)/8;

, а нужно:

  for i:=1 to n do LevChast:=8/(LevChast-1);
  x:=(LevChast-1)/8; 

Так не проще?

И еще: сдвигай тело цикла вправо, если пишешь его на другой строке:

  for i:=1 to n+1 do
    if i<n+1 then LevChast:=8/(LevChast-1) else x:=(LevChast-1)/8;