Рекурсивные алгоритмы в Паскале.

[profan]

Помогите, пожалуйста, разобраться с задачами на Паскале. Должны выполняться с помощью рекурсии.
1)Последовательность полиномов Лагерра L0(х),...,Ln(x) определяется следующим образом L0(X) = 1, L1(X) = x–l,
Lk(x) = (x–2k+l)*Lk-1(x)+(k–1)2*Lk-2(x) Вычислить L8(20)
2)Удалить из массива заданный элемент. Массив задается, затем упорядочивается методом пузырька, далее бинарный поиск.
Заранее большое спасибо тому, кто не пожалеет своего времени на помощь профану в Паскале)

[RUSt88]

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

[D61C76h]

Вроде бы сделал первую. Расчетные формулы взял с Википедии.

var res, xp:Real;
    i:Integer;  

function L(n:Integer; x:Real):Real;
begin
  if n > 1 then
     L := ((2*(n-1)+1-x)*L(n-1,x)-(n-1)*L(n-2,x))/n
  else
   case n of
     0 : L := 1;
     1 : L := 1-x;  
   end;             
end;

begin
  Write('Введите значение X: ');
  Readln(xp);
  write('Введите номер полинома: ');
  Readln(i);
  res := L(i, xp);
  Writeln('Результат:  ', res);
  Readln;
end.

[D61C76h]

В переменную xp вводишь 20, а в i - 8, согласно твоему условию.

[profan]

Хм...Спасибо)Вопрос по поводу второй задачи.Она настолько сложнее первой, что именно ее предлагают купить?Не, я конечно понимаю, что в наше время время - деньги, но почему выбор пал именно на нее?

[Grag]

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

Хм...Спасибо)Вопрос по поводу второй задачи.Она настолько сложнее первой, что именно ее предлагают купить?Не, я конечно понимаю, что в наше время время - деньги, но почему выбор пал именно на нее?

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

[Serge_Bliznykov]

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

Да ну.. прямо так и сложнее?... ну ладно, с утверждением "немногим" соглашусь...

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

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

Вы немного не поняли.. Первую Вам D61C76h сделал исключительно по доброте душевной... (ну, может ему было интересно решить эту задачу.. или положительную репутацию человек зарабатывает... или просто Вас пожалел)...

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

теперь по сути.
что не получается?
ввод массива?
сортировка пузырьком?
(поиск по форуму:
Поиск: Ключевые слова: пузырьком ; Раздел: Паскаль )

бинарный (двоичный) поиск?
Двоичный (бинарный) поиск элемента в массиве
или на Wiki: Двоичный поиск

дерзайте и всё у Вас получится...

[Google2010]

 {сортировка пузырьком}
 for i := 1 to n do
   for j := 1 to n - 1 do
if a[j]>a[j+1] then
  begin
   p:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=p;
  end;
  readln(x);
  {бинарный поиск}
  i := 1;  
  j := n;  
  while i <= j do begin
    k := i + (j - i) div 2; 
    if x > a[k] then
      i := k + 1
    else if x < a[k] then
      j := k - 1
    else
      break; 
  end;
  {удаление элемента}
if a[k]=x then begin
  n:=n-1;
  for i:=k to n do
   a[i]:=a[i+1];end;

[Serge_Bliznykov]

Google2010, ну, в целом неплохо!

пара замечаний.
1) в сортировке пузырьком не зачем вложенный цикл каждый раз гонять до конца массива, ведь там уже стоят наибольшие элементы..
лучше так:

 {сортировка пузырьком}
 for i := 1 to n-1 do
   for j := 1 to n - i do

2) нет проверки того, что бинарный поиск нашёл нужный элемент x