Подпрограммы. Процедуры. Функции. Turbo Pascal. Решение задач

Подпрограмма-функция
Функция – вид подпрограмм, независимая именованная часть программы, которую можно вызывать по имени для выполнения определенных действий.
Упоминание имени функции в тексте программы приводит к активизации функции и называется ее вызовом.
По структуре функция повторяет структуру программы и содержит почти все те же элементы, что и обычная программа.
В отличие от процедуры имя функции имеет значение и тип.

Структура подпрограммы:
Function <имя> [ (список) ] : <тип>;
{ Раздел описания }
Begin
…
End;
(список) – список формальных параметров.
Подпрограмма-функция

Переменные…
Результат работы функции возвращается через имя функции.
Вызов функции может осуществляться только как часть выражения, в котором функция выступает в роли параметра.

Пример:
Program Summa;
Uses CRT;
Function Summ(a, b:real):real;
var c:real;
begin
c:=a+b; summ:=c
end;
Var x, y: real;
Begin clrscr;
write (’x, y : ’); read (x, y);
write (’сумма = ’, summ (x, y):6:2);
readkey
End.
составить программу нахождения суммы двух чисел.

Пример:
Program treugolnik;
Uses CRT;
Function St ( a, b : real ):real;
var s:real;
begin
s:= a * b; st := s/2
end;
Var x, y: real;
Begin clrscr;
write (’x, y : ’); read (x, y);
write (’Площадь = ’, st (x, y):6:2);
readkey
End.
составить программу нахождения площади прямоугольного треугольника

Задание:
Составить программу для вычисления значения выражения F. Поиск значения оформить в виде функции.

Пример:
Program Funct1;
Uses CRT;
Function F1(a, b : real):real;
var f:real;
begin
f:=(a*a*a+2*a*a)/(sqr(a+b)+1);
f1:=f
end;
Var x, y : real;
Begin clrscr;
write (’x, y : ’); read (x, y);
write (’f = ’, f1(x,y):6:2);
readkey
End.
составить программу нахождения

Пример:
Program Funct2;
Uses CRT;
Function F2(a, b:real):real;
var f:real;
begin
f:=1/(a+b); f2:=f
end;
Var x, y : real;
Begin clrscr;
write (’x, y : ’); read (x, y);
write(’ F = ’, F2(f2(x,y*y), f2(x*x,y)):7:2);
readkey
End.
составить программу нахождения

Площадь треугольника: формула Герона
a
b
c
Задание: составить программу нахождения площади пятиугольника зная параметры a, b, c, d, e, f, g. Написать подпрограмму-процедуру для поиска площади составляющих пятиугольника.

Решение задачи по формуле Герона
Program Plosad; Uses CRT;
Function st (A, B, C : real) : real;
Var p, g : real;
Begin { begin_geron }
p:=(a+b+c)/2; g:= sqrt(p*(p-a)*(p-b)*(p-c)); st := g
End; { end_geron }
Var a, b, c, d, e, f, g : real;
Begin
clrscr;
write (’ Vvedite a, b, c, d, e, f, g: ’);
read (a, b, c, d, e, f, g);
write (’ Plosad 5-ugolnika ravna = ’, st (a, b, g) + st (b, c, f) + st (c, d, e):6:2);
readkey
End.