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

Proc15. Описать процедуру ShiftLeft3( $A$ , $B$ , $C$ ), выполняющую левый циклический сдвиг: значение $A$ переходит в $C$ , значение $C$ — в $B$ , значение $B$ — в $A$ ( $A$ , $B$ , $C$ — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: ( $A_1$ , $B_1$ , $C_1$ ) и ( $A_2$ , $B_2$ , $C_2$ ).

Решение:

program Proc15;

procedure ShiftRight3(var A,B,C:Real);
begin
  A:=A+B;
  B:=A-B;
  A:=A-B;

  C:=C+B;
  B:=C-B;
  C:=C-B;

end;


var
  A1,B1,C1:Real;
  A2,B2,C2:Real;

begin
  Write('A1 :');
  Readln(A1);
  Write('B1 :');
  Readln(B1);
  Write('C1 :');
  Readln(C1);
  ShiftRight3(A1,B1,C1);
  Writeln(A1,' ',B1,' ',C1);
  Write('A2 :');
  Readln(A2);
  Write('B2 :');
  Readln(B2);
  Write('C2 :');
  Readln(C2);
  ShiftRight3(A2,B2,C2);
  Writeln(A2,' ',B2,' ',C2);
end.

program Proc15;

procedure ShiftRight3(var A,B,C:Real);

begin

A:=A+B;

B:=A-B;

A:=A-B;

C:=C+B;

B:=C-B;

C:=C-B;

end;

var

A1,B1,C1:Real;

A2,B2,C2:Real;

begin

Write('A1 :');

Readln(A1);

Write('B1 :');

Readln(B1);

Write('C1 :');

Readln(C1);

ShiftRight3(A1,B1,C1);

Writeln(A1,' ',B1,' ',C1);

Write('A2 :');

Readln(A2);

Write('B2 :');

Readln(B2);

Write('C2 :');

Readln(C2);

ShiftRight3(A2,B2,C2);

Writeln(A2,' ',B2,' ',C2);

end.

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

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

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

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