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