7.2.. Učitati stranice trougla. Napisati program da ponudi korisniku izbor računaranja obima i površine (za obim učitati 1 a za površinu 2).
Opis rješenja:
Listing programa:
REM P07211077;
INPUT "Upisati stranice trougla:"; a, b, c
IF (a + b > c) AND (a + c > b) AND (b + c > a) THEN
INPUT "Za racunanje obima ukucajte 1,a za racunanje povrsine ukucajte 2:"; x
IF x = 1 THEN
PRINT "Obim trougla je O ="; a + b + c
END IF
IF x = 2 THEN
s = (a + b + c) / 2
p = SQR(s * (s - a) * (s - b) * (s - c))
PRINT "Povrsina trougla je P ="; p
END IF
ELSE
PRINT "Takav trougao ne postoji"
END IF
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211077.gif)
Index
|