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.
Способ решения задачи (через фактические параметры)
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 знака.