Решите пожалуйста задания на Pascal'e! Темы: Рекурси и списки.

[FLINT]

Здраствуйте, не могу решить (точнее незнаю) , а сдавать надо (ну не программист и не кодер я). Добрые программеры помогите...

№1 Рекурси.
const n=40;
type vector=array[1..n] of real;
Описать функцию min(x) для определения минимального элемента вектора x, введя вспомогательную рекурсивную функцию min1(k), находящую минимум среди последних элементов вектора x, начиная с k-го.

№2 Списки.
Описать процедуру или функцию, которая добавляет в конец списка L1 все элементы списка L2.

Надеюсь надежда есть... Можно прокомментировать еще
Спасибо за внимание..

[pil69]

uses crt;
const n=40;
type vector=array[1..n] of real;
var x:vector;
i:integer;
function min(k:integer):integer;
var min1:integer;
begin
if k=1 then {это условие завершения рекурсии}
{при первом вызове функции k=40}
{при последующих вызовах к уменьшается на 1}
min:=x[1] else
begin min1:=min(k-1);
if x[k]<min1 then min:=x[k]
else min:=min1
end
end;
begin
randomize;clrscr;
for:=1 to 40 do
begin
x[i]:=random(400)-200;
write(x[i]:8)
end;
writeln; writeln('min=',min(40):4)
end.

[FLINT]

Спасибо, ток не компилирует, кто подскажет...

[Stilet]

Никто, потому как телепаты отдела распознавания ошибок методом Ктулху сегодня в гостях у друидов. И их сейчас лучше не беспокоить.

А если вообще то вот хотя бы тут есть косяк for:=1 to 40 do без переменной-счетчика не работает

[Serge_Bliznykov]

подтверждаю, решение от pil69 верное.
(ну, только тип Integer надо было заменить на real
и в цикле заполнения массива пропущена переменная цикла i

чуть-чуть подправил (чтобы рекурсия проходила среди оставшихся элементов массива (вроде по заданию так более верно)

uses crt;
const n=40;
type vector=array[1..n] of real;
var x:vector;
i:integer;

function min(k:integer):real;
var min1:real;
begin
  if k=N then {это условие завершения рекурсии}
       {при первом вызове функции k=1}
       {при последующих вызовах K увеличиваем на 1}
    min:=x[N]
  else
  begin
    min1 := min(k+1);
    if x[k]<min1
      then min:=x[k]
      else min:=min1
  end
end;

begin
  randomize;
  clrscr;
  for i:=1 to 40 do
  begin
      x[i]:=random(800);
      write(x[i]:8:2, ' ');
      if (i mod 5) = 0 then {по пять чисел в строчке}
         WriteLn;
  end;
  writeln; writeln('min=',min(1):4:2)
end.

Подчёркиваю - сама идея (алгоритм) (с) pil69

[FLINT]

Ну этот вариант уже компилирует, и выдает результат! Спасибо вам! Йиха!

Извините, а вторую задачку не кто не смотрел??