Презентация, доклад по информатике и ИКТ на тему Подпрограммы. Подпрограмма-функция

var x,y:integer;
procedure tr(a:integer; var b:integer);
begin
writeln(a,' ',b);
a:=a+10;
b:=b+a;
writeln(a,' ',b);
end;
begin
x:=5;y:=5;
writeln(x,' ',y);
tr(x,y);
writeln(x,' ',y);
end.

program primer2;
var x,y:integer;
procedure tr(var a,b:integer);
begin
writeln(a,' ',b);
a:=a+10;
b:=b+a;
end;
begin
x:=5;y:=5;
writeln(x,' ',y);
tr(x,y);
writeln(x,' ',y);
end.

5 5
5 5
15 20

5 5
5 5
15 20
5 20

var x,y:integer;
procedure tr( a,b:integer);
begin
writeln(a,‘ ',b);
a:=a+10;
b:=b+a;
writeln(a,‘ ',b);
end;
begin
x:=5;y:=5;
writeln(x,' ',y);
tr(x,y);
writeln(x,' ',y);
end.

5 5
5 5
15 20
5 5

и диагональю.

Диагональ делит 4-угольник на два 3-угольника, к которым применима формула Герона:

Рассмотрим пример:

var p,s:real;
begin
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Ploshad:=s;
end;
begin
readln (AB,BC,CD,DA,AC);
S1:= Ploshad (AB,BC,AC);
S2:= Ploshad (CD,DA,AC);
Writeln ('Площадь ABCD= ', S1+S2:8:2);
end.

program Prog;
var AB, BC, CD, DA, AC, S1, S2: real;
Procedure Ploshad( a, b, c: real; var s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
readln (AB, BC, CD, DA, AC);
Ploshad(AB,BC,AC,S1);
Ploshad(CD,DA,AC,S2);
Writeln ('Площадь ABCD= ', S1+S2:8:2);
end.

является некоторое значение.

Примеры:
вычисление sin(x), cos(x), sqr(x), sqrt(x), random(10)…
расчет значений по сложным формулам

Имя функции:=выражение;
end;

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

Примеры:
s:=pl(f)+pl(k);
a:=sum(3,6,8)-sum(a,h,k);

D:=sqr(b)-4*a*c;
C:=sqrt(sqr(a)+sqr(b));

а квадрата со стороной b (a>b).

Program primer;
var a,b,s:real;
Function plozh(x:real):real;
Begin
plozh:=x*x;
end;
Begin
Writeln(‘Введите стороны квадрата’);
readln(a,b);
s:=plozh(a)-plozh(b);
Writeln(‘площадь фигуры = ‘,s:5:2);
End.

r (r - вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса r вычисляется по формуле S=πr2.
Задание 2. Найти значение выражения: 56 – 310 + 412.
Указание: Описать функцию для нахождения аn, как произведение n множителей, равных а.
Задание 3. Написать программу, которая определяет, является ли билет «Счастливым», т.е. сумма правых трех цифр числа должна быть равна сумме левых трех цифр.