Рекурсия

  • Автор темы Maxxy
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Maxxy

#1
Народ,кто может переделывать (готовый) код с Pascal на Си?
 
04.09.2006
2 566
3
#2
Помести тему в "Предложения поработать" - желающие сразу найдутся
 
M

Maxxy

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

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

Код:
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.
 
Статус
Закрыто для дальнейших ответов.