Pascal [Задачи] - Помощь студентам

Konteeks · 21.07.2013, 13:49

Привет всем

Нужно решить одну задачу:

Найти член ряд a a[n]=2+ 1/a[n-1], a[1]=2 удовлетворяет условию |a[n]-a[n-1]| <eps (eps=1/1000)

Stilet · 21.07.2013, 13:55

Код:

var an,a:double;
begin
 a=2;
 repeat
  an=a; write(an:5:2);
  a=2+1/an;
 until abs(a-an)<(0.0001);
 writeln('Искомое: ',a:5:2);
end.

Идея ясна?

Konteeks · 21.07.2013, 19:31

Не совсем.

Как сделать чтобы вводить значение?

Stilet · 21.07.2013, 21:13

Цитата:

Как сделать чтобы вводить значение?

Используй Readln(Имя переменки куда вводится значение)

Konteeks · 22.07.2013, 00:30

Выдает постоянно какую либо ошибку...
В готовом в виде может кто выложить?

Вадим Мошев · 22.07.2013, 00:48

Цитата:

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

Выдает постоянно какую либо ошибку...

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

21.07.2013, 13:49	#1
Konteeks Регистрация: 18.07.2013 Сообщений: 7	Pascal [Задачи] Привет всем Нужно решить одну задачу: Найти член ряд a a[n]=2+ 1/a[n-1], a[1]=2 удовлетворяет условию \|a[n]-a[n-1]\| <eps (eps=1/1000)

21.07.2013, 13:55	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `var an,a:double; begin a=2; repeat an=a; write(an:5:2); a=2+1/an; until abs(a-an)<(0.0001); writeln('Искомое: ',a:5:2); end.` Идея ясна? I'm learning to live...

21.07.2013, 19:31	#3
Konteeks Регистрация: 18.07.2013 Сообщений: 7	Не совсем. Как сделать чтобы вводить значение? Последний раз редактировалось Konteeks; 21.07.2013 в 19:38.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задачи на Pascal	Ganty	Помощь студентам	1	07.06.2011 13:31
Задачи по Pascal	PR0Z0N	Помощь студентам	4	28.05.2009 20:23
а free pascal не читает задачи которые написаны на turbo pascal?	demonara	Паскаль, Turbo Pascal, PascalABC.NET	3	25.05.2009 16:28
2 задачи Pascal	konfetka	Паскаль, Turbo Pascal, PascalABC.NET	2	29.04.2009 20:47

22.07.2013, 00:30	#5
Konteeks Регистрация: 18.07.2013 Сообщений: 7	Выдает постоянно какую либо ошибку... В готовом в виде может кто выложить?