Zadání:
Sestavte program, který vypočte ze zadaných délek stran obecného lichoběžníku jeho obsah.

Řešení:
Lichoběžník musíme rozdělit na kosodélník a trojúhelník.
Ze stran trojúhelníku (a-c,b,d) vypočteme pomocí Heronova vzorce jeho obsah.
Z vypočteného obsahu trojúhelníku vypočteme jeho výšku (viz. program 01.19).
Ze strany c lichoběžníku a výšky trojúhelníku vypočteme obsah kosodélníku.
Obsah obecného lichoběžníku vypočteme jako součet obsahu kosodélníku a trojúhelníku.
Dosazením všech výpočtů do jednoho dostaneme vzorec:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,d,o:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);
   write('Zadejte stranu c: ');
   readln(c);
   write('Zadejte stranu d: ');
   readln(d);

   o:=(a+c)/(4*(a-c))*sqrt((a+b-c+d)*(a-b-c+d)*(a+b-c-d)*(-a+b+c+d));

   writeln('Obsah lichobezniku=',o:0:3);

   readln;

end.

Pro učitele:
Pro lepší pochopení postupu výpočtu lze jednotlivé kroky počítat zvlášť.