jak zmienic ta procedurę żeby liczyła pole trójkata ze wzoru 1/2a*h ?????



Program PoleTrojkata;
{Program po podaniu przez nas dlugosci bokow trojkata oblicza jego pole.}
uses Crt,Dos;
var a,b,c,P: real;
begin
clrscr;
writeln ('Program Oblicz Pole Trojkata');
repeat
write ('Podaj bok a=');
readln(a);
until a>0;
repeat
write ('Podaj bok b=');
readln(b);
until b>0;
repeat
write ('Podaj bok c=');
readln(c);
until c>0;
P:=a*b*c;
writeln;
writeln ('Pole trojkata wynosi ',P );
repeat until keypressed;
end.

Napisać od początku, bo coś mi się ten program błędny widzi.

Zdecydowanie błędy kod. A w szczególności wzór na obliczenie pola trójką.
P=a*b*c
To chyba jaką nowość. Geometrie miałem dawno temu i moze coś od tej pory nowego wymyślili, ale takiego wzoru na pole trójkąta nie znałem.
Zamiast wczytywac zmienne a,b i c. Wczytaj tylko a (podstawę) h (wysokość) i zastosuj wzór, który podałeś.


wymiennik

borija, spokojnie mogłeś kontynuować rozpoczęty przez Ciebie temat: http://forum.servis.pl/viewtopic.php?t=12656.
Na przyszłość radzę nie zakładać kolejnego tematu, który wiąże się z już rozpoczętym.

O ile ja wiem to jest podobny wzór na pole trójkąta tyle że obywatel zapomniał podzielić
przez 4R gdzie R to promień okręgu opisanego na trójkącie

Oto kod źródłowy

uses crt;
var a,b,c:real;
s,p,r,ro:real;
ha,hb,hc:real;
alpha,beta,gamma:real;
ch:char;
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else if x=0 then sign:=0
else sign:=1;
end;
function arccos(a:real):real;
var x:real;
begin
if abs(x)=1 then x:=2*arctan(sign(a))
else x:=arctan(a/sqrt(1-sqr(a)));
arccos:=pi/2-x;
end;
begin
clrscr;
repeat
writeln('Podaj a b c ');
readln(a,b,c);
alpha:=arccos((sqr(b)+sqr(c)-sqr(a))/(2*b*c));
beta:=arccos((sqr(a)+sqr(c)-sqr(b))/(2*a*c));
gamma:=pi-(alpha+beta);
p:=0.5*(a+b+c);
s:=0.5*a*b*sin(gamma);
r:=s/p;
ro:=c/(2*sin(gamma));
ha:=b*sin(gamma);
hb:=a*sin(gamma);
hc:=b*sin(alpha);

writeln('Kat alpha =',alpha:1:10);
writeln('Kat beta =',beta:1:10);
writeln('Kat gamma =',gamma:1:10);

writeln('Pole =',s:1:10);
writeln('Promien okregu wpisanego =',r:1:10);
writeln('Promien okregu opisanego =',ro:1:10);

writeln('Wysokosc spuszczona na bok a =',ha:1:10);
writeln('Wysokosc spuszczona na bok b =',hb:1:10);
writeln('Wysokosc spuszczona na bok c =',hc:1:10);

ch:=readkey;
until ch=#27;
end.