23.1.23010130. Učitati 3 realna broja i ispitati da li postoji trougao čije su to stranice. Ako postoji da li je: raznostraničan, jednakokraki ili jednakostraničan?

Opis rješenja:

Listing programa:

REM 23010130
REM Ucitati 3 realna broja i ispitati da li postoji trougao čije su to stranice.
REM Ako postoji da li je: raznostraničan, jednakokraki ili jednakostraničan?*/

PRINT "Prva stranica trugla: ";
INPUT a
WHILE (a <= 0)
    PRINT "Stranica mora biti veca od 0.Prva stranica: ";
    INPUT a
WEND

PRINT "Druga stranica: ";
INPUT b
WHILE (b <= 0)
    PRINT "Stranica mora biti veca od 0.Druga stranica:";
    INPUT b
WEND

PRINT "Treca stranica: ";
INPUT c
WHILE (c <= 0)
    PRINT "Stranica mora biti veca od 0.Treca stranica: ";
    INPUT c
WEND

IF (a + b > c AND a + c > b AND b + c > a) THEN
    PRINT "Postoji trougao sa datim stranicama."
    IF (a = b AND b = c) THEN
        PRINT "I on je jednakostranican."
    ELSE
        IF (a <> b AND b <> c AND c <> a) THEN
            PRINT "I on je raznostranican."
        ELSE
            PRINT "I on je jednakokraki."
        END IF
    END IF
ELSE
    PRINT "Ne postoji trougao sa datim stranicama"
END IF
END

Ispis na ekranu:

Riješeni zadaci    Index