Для данного вещественного X и натурального N вычислить цепную дробь

@SuperDelphi · Регистрация: 16.10.2017

Author24 — интернет-сервис помощи студентам

Для данного вещественного X и натурального N вычислить цепную дробь: x/(1+x/2(+x/(3+x/(.../(N+x))...);
Delphi 7

@ZX Spectrum-128 · 24.10.2017, 18:51

Вычислить цепную дробь
Вычислить цепную дробь...

@SuperDelphi · 24.10.2017, 19:11 **[ТС]**

Мне для delphi надо
а там на паскале написано

@D1973 · 25.10.2017, 08:42

Сообщение от SuperDelphi

там на паскале написано

А Вы разве озвучили, что именно Вам надо? Дельфи, к Вашему сведению, может создавать и консольные проекты, в которые код из паскаля переносится практически без изменений...
Как раз для Вашего случая существует пункт правил форума:

4.7 Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены

Вы же тупо выкинули текст задания (ладно, хоть версию Дельфи указать удосужились), не предприняв никаких самостоятельных действий да еще и возмущаетесь: что это мне не то решение дали! Что просили - то и получили.

@Puporev · 25.10.2017, 09:56

Из трех решений по ссылкам у меня верное решение только одно.
Вычислить цепную дробь
Дробь выглядит так.
Название: Запись.jpg
Просмотров: 23

Размер: 9.6 Кб

Название: Запись.jpg
Просмотров: 23

Размер: 9.6 Кб

Поэтому последний член будет x/(n+x).

@Puporev · 25.10.2017, 11:52

Вот такой код и программа.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,s:double;
    n,i:integer;
begin
val(Edit1.Text,n,i);
if(i<>0)or(n<1) then
 begin
  ShowMessage('Не верно введено значение N');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,x,i);
if(i<>0)or(x=-n) then
 begin
  ShowMessage('Не верно введено значение x');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
s:=x/(n+x);
for i:=n-1 downto 1 do
s:=x/(i+s);
Label4.Caption:='Значение дроби='+formatfloat('0.0000',s);
end;

@Puporev · 25.10.2017, 13:44

Еще бы узнать что это за функция представлена этой дробью.
Вот график для х от 0 до 20 при n=10.

@SuperDelphi · 26.10.2017, 20:49 **[ТС]**

Благодарю за помощь

Для данного вещественного X и натурального N вычислить цепную дробь

Решение

Решение

Решение

@SuperDelphi 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 33
		1
	Для данного вещественного X и натурального N вычислить цепную дробь 24.10.2017, 15:08. Показов 1245. Ответов 7 Метки нет (Все метки) Для данного вещественного X и натурального N вычислить цепную дробь: x/(1+x/2(+x/(3+x/(.../(N+x))...); Delphi 7 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	24.10.2017, 18:51	2
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Вычислить цепную дробь Вычислить цепную дробь... 0

@SuperDelphi 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 33
	24.10.2017, 19:11 [ТС]	3
	Мне для delphi надо а там на паскале написано 0

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,825 Записей в блоге: 3
	25.10.2017, 08:42	4
	Сообщение от SuperDelphi там на паскале написано А Вы разве озвучили, что именно Вам надо? Дельфи, к Вашему сведению, может создавать и консольные проекты, в которые код из паскаля переносится практически без изменений... Как раз для Вашего случая существует пункт правил форума: 4.7 Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены Вы же тупо выкинули текст задания (ладно, хоть версию Дельфи указать удосужились), не предприняв никаких самостоятельных действий да еще и возмущаетесь: что это мне не то решение дали! Что просили - то и получили. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.10.2017, 09:56	5
	Из трех решений по ссылкам у меня верное решение только одно. Вычислить цепную дробь Дробь выглядит так. Поэтому последний член будет x/(n+x). 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.10.2017, 13:44	7
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Еще бы узнать что это за функция представлена этой дробью. Вот график для х от 0 до 20 при n=10. Миниатюры 0

@SuperDelphi 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 33
	26.10.2017, 20:49 [ТС]	8
	Благодарю за помощь 0