1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Delphi - программирование", создана пользователем 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
    Код:
    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;
    не проверял
     
Загрузка...
Статус темы:
Закрыта.

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