Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  programma triangolo
Language: PASCAL
Code:
Programma rettangolo;
var  a,b,c : real

INIZIO
     Scrivi ('introduci il primo lato');
     Leggi (a);
     Scrivi ('introduci il secondo lato');
     Leggi (b);
     Scrivi ('introduci il terzo lato');
     Leggi (c);
     If a=b=c then
          Scrivi ('si tratta di un triangolo equilatero')
     If SQR(a) = SQR(b) + SQR(c) or SQR(b) = SQR(a) + SQR(c) or SQR(c) = SQR(a) + SQR(b) then
          INIZIO          
               If a=b<>c or a=c<>b or b=c<>a then
                    Scrivi('si tratta di un triangolo rettangolo isoscele')
               If a<>b<>c then
                    Scrivi('si tratta di un triangolo rettangolo scaleno')
          FINE
     ALTRIMENTI
          If a=b<>c or a=c<>b or b=c<>a then
               Scrivi('si tratta di un triangolo isoscele')
          If a<>b<>c then 
               Scrivi('si tratta di un triagolo isoscele')
FINE
Comments: