Question

nhập a,b,c.kiểm tra a,b,c có là tam giác.nếu có tính diện tích tam giác.với a,b,c là số thực

Answer 1

Lâu rồi mình chưa viết pas, bài này mình cũng chưa test thử, bạn tham khảo:

uses crt;

var a, b, c, dt, p: real;

begin

clrscr;

write('Nhap do dai canh a:');

readln(a);

write('Nhap do dai canh b:');

readln(b);

write('Nhap do dai canh c:');

readln(c);

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

begin

p=(a+b+c)/2;

dt=sqrt(p*(p-a)*(p-b)*(p-c));

write('Day la tam giac. Co dien tich la: ',dt:4:2);

end

else write('Day khong phai la tam giac.');

readln

end.

* Hàm sqrt() là hàm tính căn bậc hai. Còn công thức tính diện tích tam giác trên mạng có đó bạn.

Answer 2

À phép gán là :=, mình gõ thiếu.