Pascal abc
Где ошибка???
Var a,b,c,d,e:integer;
Begin
a:=5;
b:=3;
c:=6;
d:=12;
e:=power(((a+b)*c/d),2);
Writeln (e);
End.
Ответы
В Pascal функция возвращает результат. Возвращает она его через специальную переменную, имя которой совпадает с именем функции (или переменная result, в fpc). Тип возвращаемого значения определяется после двоеточия в объявлении функции. У вас он integer. В функцию передаются значения, необходимые для подсчёта результата.
В вашем случае у функции должен быть один параметр - число, которое необходимо "перевернуть". И из функции необходимо вернуть перевёрнутое число. Внутри функции вывод возможен - но в практических целях это почти бессмысленно.
Если вы хотите перевернуть число таким способом - вам лучше использовать процедуру.
0 у вас в конце - это вывод write (PowerA (a,b)), функция вернула 0, а write его вывела.
Замените стоку
write (PowerA (a,b))
на строку
PowerA (a,b);
и выведется верный результат.
Вместо e := ((a+b)*c/d)^2
e := power(((a+b)*c/d),2);