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

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

Форум программистов > Центр помощи > [Delphi] Решение задач посдерством рекурсии

Автор: KycTo 15.6.2008, 23:11

1. Вычислить несколько значений функции Аккермана для неотрицательных чисел M и N

A(n,m)=(фигурная скобка ) {m+1                             n=0
                {A(n-1, 1)                      n≠0 , m=0
                {A(n-1,A(n,m-1)           n>0 , m≥0

2.

Условие незнаю мне передали только это
                                           ______________
t=(1/a + a + a² + 1,75)p=√1/c + c + c² + ab

Автор: dimafeng 16.6.2008, 15:03

Цитата

Условие незнаю мне передали только это

Очень интересно )

Автор: Palladin 16.6.2008, 15:36

Ну видать на паре небыл, друг задание переписал только и принес smile

P.S. "Аккермана", я б мот и решил, вот только незнаю кто это и что за метод smile

Автор: THandle 18.6.2008, 00:44

Если правильно понял, то:

1.

Код


function AkkerMann(n, m : integer) : integer;
begin
  if n = 0 then
    result := m + 1
  else
  if ((n <> 0) and (m = 0)) then
    result := AkkerMann(n - 1, 1)
  else
  if ((n > 0) and (m >= 0)) then
    result :=  AkkerMann(n - 1, AkkerMann(n, m - 1));
end;

Код



function t(a : integer) : double;
begin
  result := (1 / a + a + a * a + 1.75);
end;

Код


function p(a, b, c : integer) : double;
begin
  result := Sqrt(1 / c + c + c * c + a * b)
end;