23.1.23010120. Učitati 3 realna broja i ispitati da li postoji trougao čije su to stranice. Ako postoji da li je: pravougli, oštrougli ili tupougli?

Opis rješenja:

Listing programa:

REM 23010120
REM Ucitati 3 realna broja i ispitati da li postoji trougao cije su to stranice. Ako postoji da li je: pravougli, oštrougli ili tupougli?

PRINT "Prva stranica trugla:";
INPUT a

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

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

PRINT "Treca stranica:";
INPUT c
WHILE (c <= 0)
    PRINT "Stranica mora biti veća 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 * a = b * b + c * c) OR (b * b = a * a + c * c) OR (c * c = a * a + b * b)) THEN
        PRINT "I on je pravougli."
    ELSE
        IF ((a * a < b * b + c * c) AND (b * b < a * a + c * c) AND (c * c < a * a + b * b)) THEN
            PRINT "I on je ostrougli.";
        ELSE
            PRINT "I on je tupougli.";
        END IF
    END IF
ELSE
    PRINT "Ne postoji trougao sa datim stranicama";
END IF

END

Ispis na ekranu:

Riješeni zadaci    Index