Решение задачи №3 из главы 14

Задача №3 из главы 14

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

procedure vivod(y: integer; var z: integer); // начало объявления процедуры
begin
  z := y ; // тело процедуры
end;
begin // начало тела программы
  write('Vvedite chislo: ');
  readln(a);
  vivod(a, b); { -- вызов процедуры с параметрами (аргументами)}
  writeln(b);
  readln();
end. 
vedro-compota's picture

vivod(y: integer; var z: integer);

зачем тут две переменные? достаточно одной

_____________
матфак вгу и остальная классика =)

gani84's picture

Не совсем понятно, почему не выводится результат

var
  a:integer;
procedure vivod(var z: integer); // начало объявления процедуры
begin
  z := 0 ; // тело процедуры
end;
begin // начало тела программы
  write('Vvedite chislo: ');
  readln(a);
  vivod(a); { -- вызов процедуры с параметрами (аргументами)}
  readln();
end.
vedro-compota's picture

readln() должна вызывать в процедуре

_____________
матфак вгу и остальная классика =)

gani84's picture

var
a:integer;
procedure vivod(var z: integer); // начало объявления процедуры
begin
    readln(z); // тело процедуры
end;
begin // начало тела программы
   vivod(a); { -- вызов процедуры с параметрами (аргументами)}
   writeln(a);
   readln();
end.
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)