{ File: triang2.pas } { Scopo: uso di if-then-else annidati } program Triangolo2; { Legge le lunghezze dei lati di un triangolo e determina se il triangolo e' equilatero, isoscele o scaleno. Variante che utilizza if-then non annidati in sequenza. } var primo, secondo, terzo : real; uguali : integer; { conta il numero di coppie di lati uguali } begin uguali := 0; write('Lunghezze lati triangolo ? '); readln(primo,secondo,terzo); if primo = secondo then uguali := uguali + 1; if secondo = terzo then uguali := uguali + 1; if primo = terzo then uguali := uguali + 1; if uguali = 0 then writeln('Scaleno') else if uguali = 1 then writeln('Isoscele') else writeln('Equilatero') end. { Triangolo2 }