Процедуры и функции Опции

[Bokul]

Как зделать чтобы функция или процедура возвращала несколько значений через свои
переменные.

[GoodWind]

обьяви эти параметры как переменные:

Код

function abcd(var a,b:integer):integer;

теперь внутри функции/процедуры можешь менять значение переменных a и b

[Bokul]

нет, я хочу чтобы функция/процедура не опирирувала ее переменными, а
возвращала ответ через них.

Код

procedure ddd(a,b:byte);
begin
a:=3;
b:=4;
end;

var a,b:byte;
begin
ddd(a,b);
writeln('a = ',a);
write('b = ',b);
readln;
end.

А так не выходит...

Сообщение отредактировано: GoodWind - 27.12.2005 3:38

[volvo]

Тебе же сказали, Var добавь !!!

procedure ddd(var a, b: byte);
begin
  a:=3;
  b:=4;
end;

[Bokul]

Аааа..... я первый раз не заметил
Спасибо