Процедура - обмен переменных
Описать процедуру выполняющую обмен значениями двух переменных.
Решение:
Var a,b:real;
procedure obmen(x,y:real);
var o:real;
begin
o:=x;
x:=y;
y:=0;
end;
BEGIN
writeln('Ввести 2 числа');
readln(a,b);
obmen(a,b);
writeln('После вызова процедуры obmen значение а стало равным ',a,' а значение б',b);
END.
Объяснение:
Что бы обменять значения у двух переменных, нужно добавить еще одну переменную. К этой переменной присваиваем х, а х присваиваем у, а y присваиваем 0. Таким образом мы обменяли значения у двух переменных. Остается только вызвать эту процедуру в самой программе.
|
| Категория: С подпрограммой | Добавил: deespe (29.01.2011)
|
| Просмотров: 1300
| Рейтинг: 0.0/0 |
|
