Tin học NHẬN BIẾT TAM GIÁC VUÔNG LẪN TAM GIÁC THƯỜNG THÔNG QUA ĐỘ DÀI 3 CẠNH!

[HauBright]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Program CHECKTRIANGLE;
Uses Crt;
Var a,b,c,d: Byte;
Function checkabc(a,b,c:Byte):Boolean;
Begin
If (a<b+c) and (b<a+c) and (c<a+b) Then checkabc:=True
Else checkabc:=False;
End;
//========================================================================
Procedure ENTER;
Begin
Write('NHAP DO DAI CANH THU NHAT: '); Readln(a);
Write('NHAP DO DAI CANH THU HAI: '); Readln(b);
Write('NHAP DO DAI CANH THU BA: '); Readln(c);
End;
//========================================================================
Procedure CASE1;
Begin
If (c*c=a*a+b*b) Then Writeln('DO LA MOT TAM GIAC VUONG!')
Else Writeln('DO KHONG PHAI LA MOT TAM GIAC VUONG!');
End;
//========================================================================
Procedure CASE2;
Begin
If (a*a=c*c+b*b) Then Writeln('DO LA MOT TAM GIAC VUONG!')
Else Writeln('DO KHONG PHAI LA MOT TAM GIAC VUONG!');
End;
//========================================================================
Procedure CASE3;
Begin
If (b*b=c*c+a*a) Then Writeln('DO LA MOT TAM GIAC VUONG!')
Else Writeln('DO KHONG PHAI LA MOT TAM GIAC VUONG!');
End;
//========================================================================
Procedure KT;
Begin
If checkabc(a,b,c)=False Then
Repeat
Writeln('ERROR!'); Delay(500);
ClrScr;
Write('NHAP LAI DO DAI CANH THU NHAT: '); Readln(a);
Write('NHAP LAI DO DAI CANH THU HAI: '); Readln(b);
Write('NHAP LAI DO DAI CANH THU BA: '); Readln(c);
Until checkabc(a,b,c)=True;
If checkabc(a,b,c)=True Then
Begin
If (c>a) and (c>b) then CASE1;
If (a>c) and (a>b) then CASE2;
If (b>c) and (b>a) then CASE3;
End;
End;
//========================================================================
Begin
ClrScr;
ENTER;
Writeln;
KT;
Readln;
End.