Меню сайта

Задача №8

Четырехугольник задан своими сторонами —a,b,c,dи диагональю —r. Вычислить площадь четырехугольника с использованием функции нахождения площади треугольника.


program func8-

uses crt-

var a,b,c,d,r,S1,S2,S:real-

Function f(x,y,z:real):real-

var p:real-

begin

p:=(x+y+z)/2-

F:=Sqrt(p*(p-x)*(p-y)*(p-z))-

end-

begin

Writeln(‘введите 4 стороны и диагональ четырехугольника’)-

readln (a,b,c,d,r)-

S1:=f(a,b,r)-

S2:=f(r,c,d)-

s:=S1+S2-

writeln (S:4:2)-

readln-

end.

Категория: Подпрограммы | Дата: 29.12.12

Меню раздела
Блок