Question

Program pl;
Var a,b:integer;
procedure fl (x,y:integer);
begin
y:=2*x+3;
end;
procedure f2 (var x, y:integer);
begin
x:=3*y+1;
end;
begin
fl(b,a)
end.
a:=2; b:=3;
writeln (‘а=,a,’ b=’,b)
end.

Answer 1

Ответ:

a=2  и b=3

Объяснение:

Смотрим, наблюдаем.

Что происходит в коде?

// - это означает комментарий, который никак не читается компилятором

Program pl; // Называем программу "pl"

Var a,b:integer; // Объявляем переменные. То есть, например,  a -это место в памяти компа, мы присвоили ей тип интеджер, что дает нам права присваивать этой переменной исклчительно целочисленные значения, например, 2, -8

procedure fl (x,y:integer); // Создаем процедуру под названием fl. Что такое процедура? Набор действий, которые позже можно выполнить из этой процедуры.

begin

y:=2*x+3;

end;

procedure f2 (var x, y:integer);

begin

x:=3*y+1;

end;

begin

fl(b,a); Мы вызвали эту процедуру (fl) x присваиваем значение b, у значение а. Но так как к данному моменту а и b пусты, ничего не происходит...

end;

a:=2; b:=3;

writeln (‘а=,a,’ b=’,b) // Так как ваш препод не смог грамотно построить задачу, а, по-прежнему, равно 2, а б, по-прежнему, равно 3.

end.