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

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 08/20/2020 - 13:06

Forums:

Задача №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.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 5414 reads
vedro-compota's picture

vedro-compota

Wed, 08/26/2020 - 19:20 

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

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

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

gani84's picture

gani84

Thu, 10/08/2020 - 19:06

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

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

vedro-compota

Thu, 10/08/2020 - 19:14

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

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

gani84's picture

gani84

Mon, 10/19/2020 - 19:06 

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

vedro-compota

Mon, 10/19/2020 - 19:13

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

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