Рекурсия

Тема в разделе "Общие вопросы по С и С++", создана пользователем Maxxy, 29 окт 2007.

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

    Maxxy Гость

    Народ,кто может переделывать (готовый) код с Pascal на Си?
     
  2. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Помести тему в "Предложения поработать" - желающие сразу найдутся
     
  3. Maxxy

    Maxxy Гость

    Народ,ну помогите пожалуйста,всего лишь одна задачка,нужно в Си переписать и всех делов!

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

    Код (Text):
    Program recursia;
    Type
    Intarray=array[1..10] of integer;
    Var
    A,B,C:intarray;
    i:byte;
    Function MinRec(Var A:intarray; N,X:byte):integer;
    Begin
    if N=1 then
    if A[x]>A[N] then
    MinRec:=A[N]
    else MinRec:=A[x]
    else
    Begin
    if A[x]>=A[N] then X:=N;
    MinRec:=MinRec(A,N-1,X);
    end;
    end;
    Begin
    For i:=1 to 10 do
    Begin
    A[i]:=random(10)-random(10);
    Write(A[i]:4);
    end;
    Writeln('min=',MinRec(A,10,10));
    end;
    Begin
    For i:=1 to 10 do
    Begin
    B[i]:=random(10)-random(10);
    Write(B[i]:4);
    end;
    Writeln('min=',MinRec(B,10,10));
    end;
    Begin
    For i:=1 to 10 do
    Begin
    C[i]:=random(10)-random(10);
    Write(C[i]:4);
    end;
    Writeln('min=',MinRec(C,10,10));
    end.
     
Загрузка...
Похожие Темы - Рекурсия
  1. vera2014
    Ответов:
    0
    Просмотров:
    1.075
  2. 95процентов
    Ответов:
    7
    Просмотров:
    1.912
  3. 95процентов
    Ответов:
    0
    Просмотров:
    946
  4. 95процентов
    Ответов:
    0
    Просмотров:
    1.015
  5. vladis222
    Ответов:
    10
    Просмотров:
    2.385
Статус темы:
Закрыта.

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