Classificazione dei triangoli – 2

Date le misure dei 3 lati di un triangolo decidere se è equilatero, isoscele, …

Realizziamo un programma con menu di scelta per mettere alla prova tutte le conoscenze di geometria…

Program Classificazione_dei_Triangoli;
Uses
  Crt;
Var
   A     ,
   B     ,
   C     : Real;
   scelta: Integer;
Begin
   A:=3;
   B:=4;
   C:=5;
   Repeat
      ClrScr;
      Writeln('-------------------------------------');
      Writeln('--- Classificazione dei triangoli ---');
      Writeln('-------------------------------------');
      Writeln;
      Writeln(' 0. Uscita');
      Writeln;
      Writeln(' 1. Lato A = ', A:1:2);
      Writeln(' 2. Lato B = ', B:1:2);
      Writeln(' 3. Lato C = ', C:1:3);
      Writeln;
      Writeln('11. E'' un vero triangolo?');
      Writeln('12. Scaleno?');
      Writeln('13. Isoscele?');
      Writeln('14. Rettangolo?');
      Writeln('15. Equilatero?');
      Writeln('-------------------------------------');
      Readln(scelta);
      Case(scelta) Of
         0: Writeln('Ciao, spero che il programma sia stato di tuo gradimento!');
         1: begin
               Write('Lato A = ');
               Readln(A);
            end;
         2: begin
               Write('Lato B = ');
               Readln(A);
            end;
         3: begin
               Write('Lato C = ');
               Readln(A);
            end;
        11: { da fare };
        12: begin
               if(A <> B) And (A <> C) And (B <> C) Then
                  Writeln('SCALENO!')
               Else
                  Writeln('NON e'' scaleno...');
            end;
        13: begin
               if(A = B) Or (A = C) Or (B = C) Then
                  Writeln('ISOSCELE!')
               Else
                  Writeln('NON e'' isoscele...');
            end;
        14: { da fare };
        15: { da fare };
      End;
      Writeln('-------------------------------------');
      Writeln('PREMI INVIO PER CONTINUARE');
      Readln;
   Until(scelta = 0);
End.

Esercizi

Completa i casi mancanti e aggiungi qualche ulteriore classificazione

1. Triangolo equilatero?
2. Triangolo isoscele?
   I lati uguali sono A e B, A e C o B e C?
3. Triangolo rettangolo?
   I cateti sono A e B, A e C o B e C?
4. Un vero triangolo?
5. Acutangolo?
6. Ottusangolo?