Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2) — Pascal(Паскаль)

procedure ShiftLeft3(var A, B, C:real);
var t:real;
begin
    t := A;
    A := B;
    B := C;
    C := t;
end;
 
var a,b,c:real;
begin
    write('A=');
    readln(a);
    write('B=');
    readln(c);
    write('C=');
    readln(c);
    ShiftLeft3(a, b, c);
    writeln(a, ' ', b, ' ', c);
    readln;
end.

Похожие записи/страницы:

Leave a Comment

46 + = 49