Помощь - Поиск - Пользователи - Календарь
Полная версия: Решение уравнения
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kosmik
Написать программу решения уравнения для случая n делений.
Ниже прведен пример для n=3
1993=1+8:(1+8:(1+8:(1+8*x)))

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

Точнее мыслей уже никаких нет.
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.

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 мин.
Хотя, кажется, тут перебором не получится..
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;


Так не проще? smile.gif

И еще: сдвигай тело цикла вправо, если пишешь его на другой строке:
  for i:=1 to n+1 do
if i<n+1 then LevChast:=8/(LevChast-1) else x:=(LevChast-1)/8;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.