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:
PROGRAM p23010120;
{Ucitati 3 realna broja i ispitati da li postoji trougao cije su to stranice. Ako postoji da li je: pravougli, osrougli ili tupougli?}
VAR
a, b, c: Real;
BEGIN
WRITE('Prva stranica trugla: ');
READLN(a);
WHILE (a <= 0) DO
BEGIN
WRITE('Stranica mora biti veca od 0.Prva stranica: ');
READLN(a);
END;
WRITE('Druga stranica: ');
READLN(b);
WHILE (b <= 0) DO
BEGIN
WRITE('Stranica mora biti veca od 0.Druga stranica: ');
READLN(b);
END;
WRITE('Treca stranica: ');
READLN(c);
WHILE (c <= 0) DO
BEGIN
WRITE('Stranica mora biti veca od 0. Treca stranica: ');
READLN(c);
END;
IF (a + b > c) AND (a + c > b) AND (b + c > a) THEN
BEGIN
WRITE('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
WRITE('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
WRITE('I on je ostrougli.')
ELSE
WRITE('I on je tupougli.');
END
ELSE
WRITE('Ne postoji trougao sa datim stranicama');
READLN;
END.
Ispis na ekranu:
Riješeni zadaci Index
|