Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

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

Код

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

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

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

Код

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.

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

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

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

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