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:

Index