Помогите решить задачу на Турбо Паскале!

Тема в разделе "Delphi - FAQ", создана пользователем Maxxy, 12 апр 2007.

Статус темы:
Закрыта.
  1. Maxxy

    Maxxy Гость

    Репутация:
    0
    Помогите плиз дорешать задачку

    Рекурсия
    Описать рекурсивную функцию MinRec(A,N) вещественного типа, которая
    находит минимальный элемент вещественного массива A размера N, не
    используя оператор цикла. С помощью функции MinRec найти минимальные
    элементы массивов A, B, C размера NA, NB, NC соответственно.


    Program Recursiya;
    type
    Intarray=array[1..100] of integer;
    var
    N:Integer;
    A:Intarray;
    Function MinRec(var A : Intarray;N: Integer): integer;
    begin
    If N=1 then
    MinRec:=A[1]
    else MinRec:=MinRec(A,N-1)
    end;
    begin
    N:=3;
    A[1]:=3; A[2]:=2; A[3]:=1;
    Writeln('=',FindSum(A,3));
    end.

    В этом случае выдает "=3",а мне надо чтобы ответ был =1 (одному)
     
  2. Ogion7

    Ogion7 Гость

    Репутация:
    0
    Код (Text):
    If N=1 then
    MinRec:=A[1]
    else
    begin
    if MinRec(A,N-1)>A(N) then
    MinRec:=A(N)
    else MinRec:=A(N-1)
    end;
    end;
    не проверял
     
Загрузка...
Похожие Темы - Помогите решить задачу
  1. Makc
    Ответов:
    4
    Просмотров:
    252
  2. GREED
    Ответов:
    5
    Просмотров:
    908
  3. vovanabali
    Ответов:
    1
    Просмотров:
    772
  4. merrs
    Ответов:
    1
    Просмотров:
    1.393
  5. Kugotovr23
    Ответов:
    1
    Просмотров:
    1.371
Статус темы:
Закрыта.

Поделиться этой страницей