phân loại tam giac trong ct pascal

0 bình luận về “phân loại tam giac trong ct pascal”

1. Tam giác đềuTam giác gồm có ba cạnh bằng nhauTam giác cânTam giác có hai cạnh bất kì bằng nhau Tam giác vuôngTam giác có bình phương một cạnh bất kì bằng tổng bình phương hai cạnh còn lạiTam giác vuông cânTam giác gồm có hai cạnh góc vuông bằng nhauTam giác thườngTam giác không có tính chất nào như trên (Không có góc vuông, ba cạnh có độ dài khác nhau)

   Bình luận

2. Program Tam_giac;
   Var
      a,b,c:Integer;
      tamgiac,deu,can:Boolean;
   Begin
      Writeln(‘BA CANH CUA TAM GIAC ?’);
      Writeln(‘———————-‘);
      Write(‘-Nhap so thu nhat= ‘);
      Readln(a);
      Write(‘-Nhap so thu hai = ‘);
      Readln(b);
      Write(‘-Nhap so thu ba  = ‘);
      Readln(c);
      tamgiac:=False;
      deu:=False;
      can:=False;
      If (a+b>c) And (b+c>a) And (c+a>b) Then
          Begin
            tamgiac:=True;
            If (a=b) And (b=c) Then
                deu:=True;
            If (a=b) Or (b=c) Or (c=a) Then
                can:=True;
         End;
       Writeln;
      Writeln(‘ 3 so vua nhap la:’);
      Writeln(‘+Tam giac: ‘,tamgiac);
      Writeln(‘+Tam giac deu: ‘,deu);
      Writeln(‘+Tam giac can: ‘,can);
      Writeln;
      Writeln(‘   Bam phim <Enter> de ket thuc’);
      Readln
   End.

                               -Học tốt nhá-

   Bình luận