[Pascal] Kiểm tra tam giác đều

[mykathy]

[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 tam_giac;
ues crt;
var a,b,c:real;
begin
   clrscr;
   writeln('kiem tra tam giac');
   write('nhap ba canh a, b, c:'); readln(a,b,c);
   if (a+b>c) and (a+c>b) and (b+c>a) then writeln('do la ba canh tam giac');
   if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a)
   then writeln('tam giac vuong');
   if (a=b) or (a=c) or (b=c) then writeln('tam giac can');
   if (a=b=c) then writeln('tam giac deu');
   if (a<>c writeln('tam giac thuong');
   readln
end.

if (a=b=c) then writeln('tam giac deu');

cái hàng này báo rằng thiếu then đã thử thay if=else thì báo câu sai hay a=b and a=c thì ra thêm một dòng tam giác cân nữa cơ.... ai giúp mình làm hàng đó đi.

Chú ý tiêu đề
Lần sau nhớ đặt code vào tag.
Đã sửa.

 

[lamdetien36]

Các điều kiện này liên quan mật thiết tới nhau, cho nên cần phải có if-then-else hợp lý
Sửa lại:

var 
	a, b, c: real;
begin
	writeln('Kiem Tra Tam Giac');
    write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
    if (a+b>c) and (a+c>b) and (b+c>a) then 
    begin
    	writeln('Do La Ba Canh Tam Giac');
    	if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then 
    		writeln('Tam Giac Vuong')
    	else if (a = b) or (a = c) or (b = c) then 
    	begin
    		if (a = b) and (b = c) then 
    			writeln('Tam Giac Deu')
    		else 
    			writeln('Tam Giac Can');
    	end
    	else writeln('Tam Giac Thuong');
    end
    else write('Khong Phai Tam Giac');
    readln
end.