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

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

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

var a, b: integer;
 
procedure pishi();
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
 
begin  // тело программы
  a:=3;
  pishi();
  writeln(a);
end. 

-- эта программа в конечном итоге присваивает и выводит на экран 3 значения.

Задача: Уберите зависимость процедуры от глобальной области видимости и сделайте так, чтобы все три значения присваивались и выводились в теле процедуры.
Постарайтесь максимально сохранить использующиеся имена переменных

program Project1;

procedure pishi();
var a, b: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
  a:=3;
  writeln(a);

end;

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

решить для обновленного условия:

var b: integer;

procedure pishi();
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;

begin  // тело программы
  b:=3;
  pishi();
  writeln(b);
end. 

-- эта программа в конечном итоге присваивает и выводит на экран 3 значения.

Задача: Уберите зависимость процедуры от глобальной области видимости, при этом пусть для нового кода выполняются все требования из списка:

  • вывод программы останется тем же
  • процедура, как и раньше работает с двумя переменными
  • а тело программы как и раньше с 1 глобальной переменной
  • Постарайтесь максимально сохранить использующиеся имена переменных.

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

вывод программы останется тем же
процедура, как и раньше работает с двумя переменными
а тело программы как и раньше с 1 глобальной переменной
Постарайтесь максимально сохранить использующиеся имена переменных.

Если следовать по этим требованиям то получается что программа изначально правильная

vedro-compota's picture


program Project1;
 
procedure pishi();
var a, b: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
  a:=3;
  writeln(a);
 
end;
 
begin
pishi();
readln();
end.

-- глобальная переменная в программе должна остаться, тело также продолжает работать с ней, а вот процедура не должна уже обращаться к этой переменной

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

program Project1;
var a: integer;

procedure pishi();
var a, b: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;

begin
  a:=3;
  pishi();
  writeln(a);

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

засчитано

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