Урок 14.1 Задача 5

Primary tabs

Submitted by kuznmax on Mon, 10/24/2022 - 18:45

Forums:

Урок 14.1 Задача 5

У вас есть код:

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end.

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

Решение:

program Project1;

procedure p2();
var a, b: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
var b: integer;
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end.
  • Log in to post comments
  • 1238 reads
vedro-compota's picture

vedro-compota

Wed, 10/26/2022 - 20:08

поведение программы изменилось, а должно остаться тем же

исправить

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

kuznmax

Mon, 10/31/2022 - 15:22 

program Project1;
var b: integer;

procedure p2(b: integer);
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;

begin
  writeln('Введите значение b:');
  readln(b);
  p2(b);

  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 11/12/2022 - 18:18

засчитано

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