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$$).
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
использовать Файлы алг левый циклический сдвиг нач файл файл1 файл1:=открыть на чтение ("Proc15.txt") вещ A1, B1, C1 нц пока не конец файла (файл1) ввод файл1,A1, B1, C1 ShiftLeft3(A1, B1, C1) вывод нс,A1," ",B1," ",C1 кц закрыть (файл1) кон алг ShiftLeft3 (арг рез вещ A, B, C) нач вещ A_ A_:=A A:=B B:=C C:=A_ кон |
Файл Proc15.txt
|
1 2 |
33 44 55 123 456 789 |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: