ai giỏi pascal chỉ giùm em với

[trungboysock]

Ai chỉ giùm em các kiểm tra xem 3 số thực nhập vào có phải là của tam giác vuông cân không?

[nhok_LTK]

Theo mình thì bạn xét 2 trong 3 cạnh đó có bằng nhau không, sau đó xét xem 3 cạnh đó có tạo thành 1 tam giác không (theo bất đẳng thức tam giác) rồi cuối cùng là kiểm tra nó thỏa định lí Pytago hay ko , nếu tất cả đều thỏa => tam giác vuông cân

[thecuong064]

VAR a,b,c:REAL;
BEGIN
writeln('Nhap 3 canh:'); readln(a,b,c);
IF ((a*a + b*b = c*c) OR (a*a + c*c = b*b) OR (b*b + c*c = a*a)) AND ((a=b) OR (b=c) OR (a=c)) THEN
writeln('La tam giac vuong can') ELSE writeln('Khong phai tam giac vuong can');         
readln;        
END.

[badboy11a8]

VAR a,b,c:REAL;
BEGIN
writeln('Nhap 3 canh:'); readln(a,b,c);
IF ((a*a + b*b = c*c) OR (a*a + c*c = b*b) OR (b*b + c*c = a*a)) AND ((a=b) OR (b=c) OR (a=c)) THEN
writeln('La tam giac vuong can') ELSE writeln('Khong phai tam giac vuong can');         
readln;        
END.

phải thêm thêm điều kiện " a+b>c" or "a+c>b" or "b+c>a" nữa phải hok nhỉ

[HGMinh95]

phải thêm thêm điều kiện " a+b>c" or "a+c>b" or "b+c>a" nữa phải hok nhỉ

Phải là (a+b>c) and (a+c>b) and (b+c>a) chứ

[thecuong064]

Phải là (a+b>c) and (a+c>b) and (b+c>a) chứ

phải thêm thêm điều kiện " a+b>c" or "a+c>b" or "b+c>a" nữa phải hok nhỉ

Mấy cái đó phải tự thêm thôi. Cơ bản mà.