6.4.. Napisati program za izračunavanje površine trougla koristeći Heronovu formulu: S=(a+b+c)/2, P=(S(S-a)(S-b)(S-c))1/2
Opis rješenja: Površina trougla se izračunava tako što se prvo izračuna vrijednost poluzbira S=(a+b+c)/2 a zatim povrišina po formuli: P=(S(S-a)(S-b)(S-c))1/2 odnosno P=SQRT(S(S-a)(S-b)(S-c)) gdje SQRT je funkcija za izračunavanje kvadratnog korijena.
Opis programa:
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM P06411081; |
|
2 |
USES |
|
3 |
WinCRT; |
|
4 |
VAR |
|
5 |
a, b, c, s, p: Real; |
|
6 |
BEGIN |
|
7 |
Write('Stranice trougla '); |
|
8 |
Readln(a, b, c); |
Ulaz |
9 |
s := (a + b + c)/2; |
Obrada |
10 |
p := SQRT(S*(S-a)*(S-b)*(S-c)); |
|
11 |
Writeln('a ', a, ' b ', b, ' c ', c); |
Izlaz |
12 |
Writeln('Povrsina trougla je ', p); |
|
13 |
END. |
|
Listing programa:
PROGRAM P06411081;
VAR
a, b, c, s, p: Real;
BEGIN
Write('Stranice trougla ');
Readln(a, b, c);
s := (a + b + c)/2;
p := SQRT(S*(S-a)*(S-b)*(S-c));;
Writeln('a ', a, ' b ', b, ' c ', c);
Writeln('Povrsina trougla je ', p);
READLN;
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
