Презентация на тему Процедуры. Функции

которую можно вызывать по имени для выполнения определенных действий.
Упоминание

имени функции в тексте программы приводит к активизации функции и называется ее вызовом.
По структуре функция повторяет структуру программы и содержит почти все те же элементы, что и обычная программа.
В отличие от процедуры имя функции имеет значение и тип.

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

может осуществляться только как часть выражения, в котором функция

выступает в роли параметра.

x, y: real;
Begin clrscr;
write (’x, y : ’); read

(x, y);
write (’сумма = ’, summ (x, y):6:2);
readkey
End.

составить программу нахождения суммы двух чисел.

: 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: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.

составить программу нахождения

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, d, e, f,

g. Написать подпрограмму-процедуру для поиска площади составляющих пятиугольника.

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.

от А до В, зная скорости на участках АB,

BC, CD. Поиск скорости на указанных участках оформить в виде подпрограммы.

A

B

C

D

AB=___км; t1=___ч
BC=___км; t2=___ч
CD=___км; t3=___ч

модулей этих векторов на косинус угла между ними.
Есть

и другое определение: это величина, равная сумме произведений соответствующих координат. Составить программу и описать подпрограмму нахождения скалярного произведения 2-х векторов по второму определению.

A

B

C

real): real;
Var s:real;
Begin s:=x1*x2+y1*y2; sk:=s end;
Var x1, y1, x2,

y2 : real;
Begin
clrscr;
write(’ Введите координаты вектора AB: ’);
read(x1, y1);
write(’ Введите координаты вектора AC: ’);
read(x2, y2);
write(’ (AB, AC) = ’, sk(x1, y1, x2, y2):6:2);
readkey
End.

Скалярным произведением двух векторов…

[1..2] of real;
Function Sk(a, b: vector): real;
Var s:real;
Begin s:=a[1]*b[1]+a[2]*b[2];

sk:=s end;
Var AB, AC : vector;
Begin
clrscr;
write(’ Введите координаты вектора AB: ’);
read(AB[1], AB[2]);
write(’ Введите координаты вектора AC: ’);
read(AC[1], AC[2]);
write(’ (AB, AC) = ’, sk(AB, AC):6:2);
readkey
End.

Скалярным произведением двух векторов…

такой вектор с, координаты которого определяют по следующим правилам: Составить

программу и описать подпрограмму нахождения координат векторного произведения 2-х векторов.

A

B

C