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

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

Решение olegst1975:

program If7;
var
  A, B: Real;
begin
  Write('Введите значение A: ');
  Readln(A);
  Write('Введите значение B: ');
  Readln(B);
  if A>B then
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
   end;
  writeln(A);
  writeln(B);
end.

program If7;

var

A, B: Real;

begin

Write('Введите значение A: ');

Readln(A);

Write('Введите значение B: ');

Readln(B);

if A>B then

begin

A:=A+B;

B:=A-B;

A:=A-B;

end;

writeln(A);

writeln(B);

end.

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

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

Предлагаю чуть сократить код:

[crayon-673ca11a7f004070204798 inline="true" ]
program If7;
var
  A, B: Real;
begin
  Write('Введите значение A: ');
  Readln(A);
  Write('Введите значение B: ');
  Readln(B);
  if A>B then
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
   end;
  writeln(A);
  writeln(B);
end.

[crayon-673ca11a7f004070204798 inline="true" ]

program If7;

var

A, B: Real;

begin

Write('Введите значение A: ');

Readln(A);

Write('Введите значение B: ');

Readln(B);

if A>B then

begin

A:=A+B;

B:=A-B;

A:=A-B;

end;

writeln(A);

writeln(B);

end.

[/crayon]

Ответить

Поддерживаю!
Было:

if A<b then
   begin
     writeln(A);
     writeln(B);
   end
  else
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
    writeln(A);
    writeln(B);

if A<b then

begin

writeln(A);

writeln(B);

end

else

begin

A:=A+B;

B:=A-B;

A:=A-B;

writeln(A);

writeln(B);

Стало:

if A>B then
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
   end;
  writeln(A);
  writeln(B);

if A>B then

begin

A:=A+B;

B:=A-B;

A:=A-B;

end;

writeln(A);

writeln(B);

Ответить

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

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

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

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