Цель работы: использование функций в программировании.
ЗАДАНИЯ
1. Написать функцию решения 3 задач по выбору, используя оператор выбора Case:
· Переменные a,b,c -формальные .
· Результат вычисления передать в виде параметра в основную программу.
Пример 1. Реализация функции n+n
Пример 2.
Program S_of_Figure;
Var
choice: char;
a, x, y, z: real;
function circle(d: real): real;
const pi = 3.14159;
Begin
circle := pi * sqr(d) / 4.0;
end;
function rectangle(a, b: real): real;
Begin
rectangle := a * b
end;
function triangle(a, b, c: real): real;
var x: real;
Begin
x := (a + b + c) / 2;
triangle := sqrt(x * (x - a) * (x - b) * (x - c))
end;
Begin
Repeat
read(choice);
