Question

Составим программу обмена местами двух чисел c=8,d=22.  program obmenDan;var c,d:integer;procedure obmen ( a,b:integer);var m:integer;beginm:=a; a:=b; b:=m;writeln(a,b);end;beginwriteln ('Введите 2 числа: ');readln(c,d);obmen(c,d);writeln(c,' ',d);end. Проанализируй и выбери верные ответы. с=8 d=22 а=8 в=22 После выполнения программы:с=?d=?a=?в=?​

Answer 1

После выполнения программы будет следующее:

с = 8

d = 22

a = 8

в = 22

Правда сам код у вас не очень хороший

Answer 2

Программа, которую вы представили, имеет ошибку в процедуре obmen. Вы используете переменную m, чтобы временно сохранить значение одной из переменных, но забыли присвоить это значение обратно. В результате, программа не выполняет обмен местами переменных a и b правильно.

Чтобы исправить программу и обменять значения c и d, вы можете использовать следующий код:

pascalCopy code
program obmenDan;
var
  c, d: integer;

procedure obmen(var a, b: integer);
var
  m: integer;
begin
  m := a;
  a := b;
  b := m;
end;

begin
  writeln('Введите 2 числа: ');
  readln(c, d);
  obmen(c, d);
  writeln('c=', c, ' d=', d);
end.

Итак, после выполнения этой исправленной программы:

• c = 22
• d = 8
• a = 22 (переменная c после обмена)
• в = 8 (переменная d после обмена)