Giúp t lập trình = turbo Pascal?

@Nguyễn Tấn Tài.

Có thể nói là như thế này. Bài kia của bạn kia thiếu chữ cân.

Bài của bạn thiếu tính kiểm tra xem có phải là 3 cạnh của tam giác hay không ???

Bài của bạn nhập vào 1 1 9999999 rồi thông báo tam giác cân đúng không ???

Mình sửa lại chung cho bài đấy nhé.

Copy 2 bài trên.

Uses crt;

Var a,b,c:real

Begin

Clrscr;

Write('a=');readln(a);

Write('b=');readln(b);

Write('c=');readln(c);

if ((a+b>=c) or (a+c>=b) or (b+c>=a)) then

Write('Do khong la 3 canh tam giac can') Else

If (a=b) or (b=c) or (c=a) then

Write('Do la 3 canh tam giac can');

Readln

End.

Uses crt;

Var a,b,c:real

Begin

Clrscr;

Write('a=');readln(a);

Write('b=');readln(b);

Write('c=');readln(c);

if (a>0) and (b>0) and (c>0) then

if ((a+b>=c) or (a+c>=b) or (b+c>=a)) then

Write('Do khong la 3 canh tam giac can') Else

If (a=b) or (b=c) or (c=a) then

Write('Do la 3 canh tam giac can');

Readln

End.

Bài của Nghĩa sai rồi.

Bài làm của mình thế này:

Uses crt;

Var a,b,c:real

Begin

Clrscr;

Write('a=');readln(a);

Write('b=');readln(b);

Write('c=');readln(c);

If (a=b) or (b=c) or (c=a) then

Write('Do la 3 canh tam giac can')

Else Write('Do khong la 3 canh tam giac can');

Readln

End.