Задано сторони a, b, c, d та діагональ f опуклого чотирикутника. Визначити площу чотирикутника, використовуючи допоміжну функцію обчислення площі трикутника за формулою Герона.

 

                         b

a     f

                          c

d

 

Program p1;

Uses crt;

Var a,b,c,d,f,s:real;

Function geron (a,b,c:real) :real;

Var p,s:real;

Begin

P:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));geron:=s;

End;

begin

 writeln('a');readln(a); writeln('b');readln(b); writeln('c');readln(c);

writeln('d');readln(d); writeln('f');readln(f);

s:=geron(a,b,f)+geron(d,f,c);

writeln('s=',s:3:1);

readln end.

 

 

 

Наступні задачі розв’язати з використанням підпрограм-функцій.

 

 

 

 

 

 

 

1.

 

 

 

 

 

Скласти програму для обчислення  площі заданої фігури, якщо значення довжин усіх сторін та довжини трьох позначених діагоналей задані.

 

2. Дані координати вершин чотирикутника. Визначити суму довжин його діагоналей. Дані для введення: A(0,1), B(2,5), C(4,8), D(2,0).
3. Знайти суму площ трикутників ABC и МНР, що  задані координатами вершин. Дані для введення: А(0;1), В(3;1), С(4;2), М(6;7), Н(4;3), Р(3;8).
4. Знайти суму периметрів трикутників ABC и МНР, що задані  координатами вершин. Дані для введеня: А(0;1), В(3;1), С(4;2), М(6;7), Н(4;3), Р(3;8).

 

 

Скріншоти або тексти програм та результатів зберегти у «Мої документи» файлом  прізвищедата.doc