Пример оформления и работы подпрограммы-функции

Пример оформления и работы подпрограммы-функции

Найти периметр фигуры АBCD по заданным AB, AD, CD.

Определить функцию для расчета гипотенузы треугольника по его катетам.

1 способ решения задачи (через переменные)

program perimetrABCD;

uses crt;

function gip(x,y:real):real;

begin

gip:=sqrt(sqr(x)+sqr(y));

end;

var perimeter,ab,bc,cd,ad,bd:real;

begin

clrscr;

ab:=3; ad:=4; cd:=4;

//Находим гипотенузу bd

bd:=gip(ab,ad); writeln(‘bd=’,bd);

//Находим периметр

perimeter:=ab+ad+cd+gip(bd,cd);

writeln(‘Периметр ABCD=’,perimeter:1:2);

readkey;

end.

2 способ решения задачи (через фактические параметры)

program perimetrABCD;

uses crt;

function gip(x,y:real):real;

begin

gip:=sqrt(sqr(x)+sqr(y));

end;

var perimeter:real;

begin

clrscr;

perimeter:=3+4+4+gip(gip(3,4),4);

writeln(‘Периметр ABCD=’,perimeter:1:2);

readkey;

end.

Домашнее задание

№1

Вычислить: (2*5! + 3*8!)/(6! + 4!)

Определить функцию для расчета факториала натурального числа.

Составить программу, используя способ №2. Записать полученный ответ с точность 4 знака.

№2

Найти площадь и периметр треугольника, заданного координатами своих вершин.

Определить функцию для расчета длины отрезка по координатам его вершин.

Составить программу, используя способ №2. Записать полученный ответ с точность 3 знака.

№3

Вычислить значение

Y = (2 + sin2)/(sin5 + 5) + (6 + sin6)/(sin3 + 3) + (1 + sin1)/(sin4 + 4)

Составить программу, используя способ №2. Записать полученный ответ с точность 4 знака.

⇐ Предыдущая 12