jak znasz te wzory to raczej nei ma problemu ?

trojkat:

begin
writeln('Obliczanie pola trojkĄta')
write('podaj dlugosc podstawy')
readln(a)
write('podaj dlugosc wysokosci')
readln(h)
poletroj=(a*h)/2
writeln('Pole wynosi ' poletroj);
end;

ale... jest wiele trojkatow, sa prostkatne [ten przyklad jest dla danych podstawy i wysokosci trojkata], pole trojkatow mozna obliczyc ze wzorow trygonometrycznych, i wielu wielu innych. pokombinuj z wzorami

trapez:

begin
writeln('Obliczanie pola trapezu')
write('podaj dlugosc podstawy dolnej')
readln(a)
write('podaj dlugosc podstawy gornej')
readln(b)
write('podaj dlugosc wysokosci')
readln(h)
poletrap=((a+b)*h)/2
writeln('Pole wynosi ' poletrap);
end;

moga byc bledy w kodzie bo dawno nie siedzialem w pascalu. w trapezie tez jest kilka wzorow, mozna go podzielic na trojkaty i kwadrat i w ten sposob obliczyc jego pole. o ile dobrze pamietam mozna tez wyliczyc pole z przekatnych i kata zawartego miedzy nimi.