Proc14. Описать процедуру ShiftRight3($$A$$, $$B$$, $$C$$), выполняющую правый циклический сдвиг: значение $$A$$ переходит в $$B$$, значение $$B$$ — в $$C$$, значение $$C$$ — в $$A$$ ($$A$$, $$B$$, $$C$$ — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить правый циклический сдвиг для двух данных наборов из трех чисел: ($$A_1$$, $$B_1$$, $$C_1$$) и ($$A_2$$, $$B_2$$, $$C_2$$).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
program Proc14; procedure ShiftRight3(var A,B,C:Real); begin A:=A+B; B:=A-B; A:=A-B; C:=C+A; A:=C-A; C:=C-A; 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 можно посмотреть здесь.
Комментарии: