Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг

@Mile · Регистрация: 15.10.2013

Студворк — интернет-сервис помощи студентам

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

@ildwine · 19.11.2013, 17:15

Pascal

procedure ShiftRight3(var A, B, C : real);
var T : real;
begin
  T := C;
  C := B;
  B := A;
  A := T  
end;
 
var
  a1, a2, b1, b2, c1, c2 : real;
begin
  write('введите набор (A1, B1, C1): ');
  readln(a1, b1, c1);
  ShiftRight3(a1, b1, c1);
  writeln('после сдвига: ', a1:4, b1:4, c1:4);
  write('введите набор (A2, B2, C2): ');
  readln(a2, b2, c2);
  ShiftRight3(a2, b2, c2);
  writeln('после сдвига: ', a2:4, b2:4, c2:4)
end.

@Mile 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 48
		1
	Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг 19.11.2013, 16:38. Показов 3251. Ответов 1 Метки нет (Все метки) Описать процедуру ShiftRight3(A, B, C), выполняющую правый цик- лический сдвиг: значение A переходит в B, значение B — в C, значение C — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить правый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2). 0

Опции темы

Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг

Решение