Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [TPascal] Что от меня требуется?

Автор: XenOS12 2.12.2010, 20:57

http://www.imageup.ru/img52/untitled-1496791.jpg.html

Что от меня требуют в задании?

Автор: LexuSS 2.12.2010, 21:23

Смею предположить что нужно найти решение )))
ЗЫ в первом случае получается 1/3

Автор: Predator_2004 2.12.2010, 21:31

Судя по заголовку "TPascal" от вас требуется написать две рекурсивные функции принимающие два входных параметра Xo и N, реализующие две указанные в вашем варианте формулы.

Автор: XenOS12 2.12.2010, 21:33

Что делать?) Вместо n подставить 1? Зачем дается x0? и его разница от большого X?

Автор: Predator_2004 2.12.2010, 21:38

У вас рекурсивная последовательность в которой каждый член вычисляется с помощью предыдущего. Хо дан для вычисления первого члена, зная его можно вычислить второй и так далее до N. А на вопрос

Цитата

Что делать?)

отвечу так: слушать преподавателя и записывать. Предполагаю что условие звучит так как я его описал.

Автор: Burka 3.12.2010, 15:04

А где тут рекурсия? просто посчитать сумму корней моделуей x-ов, где дана формула расчета x.
То есть в цикле от 1 до 10 мы считаем

upd
А ну хотя да smile

просто суммируешь в переменной s все значения х, вызывая функцию подсчета значений с параметрами n и s(x-1)

Автор: Elerond 3.12.2010, 15:07

Кажется так:

Код


uses crt;

function step(x: real; n:word):real;
begin
  if n=1 then step:=x else step:=step(x, n-1)*x;
end;


function X(n: word): real;
begin
  if n=1 then X:=step(2-1, n)/(2*n+1) else X:=step(X(n-1)-1, n)/(2*n+1);
end;

function Z(n: word):real;
begin
  if n=0 then Z:=0 else Z:=Z(n-1)+sqrt(abs(X(n)));
end;

var
  n: word;
begin
  clrscr;
  writeln('Enter n:');
  readln(n);
  writeln('X(n)= ', X(n):10:7);
  writeln('Z=    ', Z(10):10:7);
readln;
end.

Автор: Rodman 3.12.2010, 21:09

M
Rodman

Модератор: Название темы должно отражать ее суть!