Ответы на вопрос:
Функция должна возвращать значение. Пусть катеты a и b, тогда она должна вернуть a * b / 2. Проверки входных параметров я не провожу, считая, что они корректны:
Код (Pascal):
function area(a, b: real): real;
begin
area := a * b / 2;
end;
begin
write(area(2, 2)) { должно вывести 2 }
end.
Процедура не возвращает значение. Чтобы она смогла-таки как-то сообщить основной программе результат, используем аргумент, перед которым указываем var.
Код (Pascal):
procedure area(a, b: real; var c: real);
begin
c := a * b / 2;
end;
var S: real;
begin
area(2, 2, S);
write(S) { должно вывести 2 }
end.
Популярно: Информатика
-
catBoss00907.01.2020 03:18
-
ОВОВОВОВо28.01.2021 20:42
-
artemdolgin6926.01.2020 14:08
-
Zavaw30.05.2020 06:18
-
Sanpotion05.06.2022 23:27
-
snady24.03.2020 13:05
-
olechka16228.06.2020 05:09
-
Derve19.09.2020 06:11
-
RomeOMeD24.07.2021 19:48
-
5д6д7д22.08.2021 21:00