Решаем задачи Абрамян на Паскале. Proc 10

Proc10. Описать процедуру Swap($$X$$, $$Y$$), меняющую содержимое переменных $$X$$ и $$Y$$ ($$X$$ и $$Y$$ — вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных $$A$$, $$B$$, $$C$$, $$D$$ последовательно поменять содержимое следующих пар: $$A$$ и $$B$$, $$C$$ и $$D$$, $$B$$ и $$C$$ и вывести новые значения $$A$$, $$B$$, $$C$$, $$D$$.

Решение:

program Proc10;

procedure Swap(var X,Y:Real);
begin
  X:=X+Y;
  Y:=X-Y;
  X:=X-Y;
end;

var
  A,B,C,D:Real;

begin
  Write('A :');
  Readln(A);
  Write('B :');
  Readln(B);
  Write('C :');
  Readln(C);
  Write('D :');
  Readln(D);
  Swap(A,B);
  Swap(C,D);
  Swap(B,C);
  Writeln(A,' ',B,' ',C,' ',D);
end.

program Proc10;

procedure Swap(var X,Y:Real);

begin

X:=X+Y;

Y:=X-Y;

X:=X-Y;

end;

var

A,B,C,D:Real;

begin

Write('A :');

Readln(A);

Write('B :');

Readln(B);

Write('C :');

Readln(C);

Write('D :');

Readln(D);

Swap(A,B);

Swap(C,D);

Swap(B,C);

Writeln(A,' ',B,' ',C,' ',D);

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 10

Комментарии:

Добавить комментарий Отменить ответ