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
|