Что даст на выходе данная программка?(Основной ВОПРОС)Можно еще и краткое объяснение
Что даст на выходе данная программка?(ГЛАВНЫЙ ВОПРОС)
Можно еще и короткое изъясненье этой программки(желанно)
Program v1z2
var a,b,a1,b1:real;
procedure sd(x,y:real; var p,q:real);
begin
p:=(x+y)/2;
q:=(x-y)/2;
end;
begin
a:=2; b:=-4;
sd(a,b,a1,b1);
writeln('a=',a,'b=',b,'a1=',a1,'b1=',b1);
sd(a,b,b1,a1);
writeln('a=',a,'b=',b,'a1=',a1,'b1=',b1);
sd(b,a,a1,b1);
writeln('a=',a,'b=',b,'a1=',a1,'b1=',b1);
end.
В программке присутствует функция, предназначенная для поиска полусуммы и полуразности 2-ух чисел.
Приведённый в задании код исполняет функцию три раза, изменяя параметры входящие и выходящие.
Стоит увидеть, что при вызове функции, доводы a и b копируются в функции в переменные a и b, а a1 и b1 - это переменные, предназначенные для возврата значений p и q соответственно.
Первое исполненье функции
a (x) = 2, b (y) = -4
p (a1) = (x + y) / 2 = (2 + (-4)) / 2 = -2 / 2 = -1
q (b1) = (x - y) / 2 = (2 - (-4)) / 2 = 6 / 2 = 3
Вывод
a = 2, b = -4, a1 = -1, b1 = 3
2-ое исполненье функции
(изменили отдаваемые переменные)
a (x) = 2, b (y) = -4
p (b1) = (x + y) / 2 = (2 + (-4)) / 2 = -2 / 2 = -1
q (a1) = (x - y) / 2 = (2 - (-4)) / 2 = 6 / 2 = 3
Вывод
a = 2, b = -4, a1 = 3, b1 = -1
Третье исполненье функции
(изменили входные данные)
a (x) = -4, b (y) = 2
p (a1) = (x + y) / 2 = (-4 + 2) / 2 = -2 / 2 = -1
q (b1) = (x - y) / 2 = (-4 - 2) / 2 = -6 / 2 = -3
Вывод
a = 2, b = -4, a1 = -1, b1 = -3
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.