Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y

@tohir_91 · Регистрация: 06.06.2012

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

Помогите решить
2)Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (Х и Y- вещественные параметры,являющийся одновременно входными и выходными). С ее помощью для данных переменных А,В,С,D последовательно поменять содержимое следующих пар: А и В, С и D, В и С и вывести новые значения A,B,C,D.

@CodeR · 24.07.2012, 14:21

Сообщение от tohir_91

2)Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (Х и Y- вещественные параметры,являющийся одновременно входными и выходными). С ее помощью для данных переменных А,В,С,D последовательно поменять содержимое следующих пар: А и В, С и D, В и С и вывести новые значения A,B,C,D.

Pascal

Var a,b,c,d:real;
Procedure Swap(Var X,Y:real);
Var t:real;
Begin
    t:=x;{В переменной t запомнили значение переменной x}
    x:=y;{В переменную x заносим значение переменной y}
    y:=t;{В переменную y заносим значение переменной t}
End;
Begin
    write('Введите A,B,C,D (через пробел): ');readln(A,B,C,D);
    Swap(A,B);Swap(C,D);Swap(B,C);
    writeln('A-',A:0:2,' | ','B-',B:0:2,' | ','C-',C:0:2,' | ','D-',D:0:2);
    readln;
End.

@tohir_91 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 52
		1
	Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y 24.07.2012, 13:17. Показов 2671. Ответов 1 Метки нет (Все метки) Помогите решить 2)Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (Х и Y- вещественные параметры,являющийся одновременно входными и выходными). С ее помощью для данных переменных А,В,С,D последовательно поменять содержимое следующих пар: А и В, С и D, В и С и вывести новые значения A,B,C,D. 0

	24.07.2012, 14:21

Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y

Решение