viết chương trình nhập tọa độ A, B, C và kiểm tra xem A, B, C có lập thành một tam giác hay ko 22/08/2021 Bởi Alaia viết chương trình nhập tọa độ A, B, C và kiểm tra xem A, B, C có lập thành một tam giác hay ko
var a,b,c: longint; begin write(‘Nhap chieu dai 3 canh tam giac:’); readln (a,b,c); if (a>=b+c) or (b>=c+a) or (c>=a+b) then write(‘ba canh tren khong phai cua mot tam giac’) else write(‘Day la ba canh cua tam giac’); Readln; End. Bình luận
var ax,bx,cx,ay,by,cy,s:real; begin write(‘Nhap toa do diem 1: ‘); readln(ax,ay); write(‘Nhap toa do diem 2: ‘); readln(bx,by); write(‘Nhap toa do diem 3: ‘); readln(cx,cy); s:=((bx – ax)*(cy-ay)-(cx-ax)*(by-ay))/2; if s=0 then write(‘Ba diem A,B,C khong lap thanh mot tam giac’) else write(‘Ba diem A,B,C lap thanh mot tam giac’); readln; end. Bình luận
var a,b,c: longint;
begin
write(‘Nhap chieu dai 3 canh tam giac:’); readln (a,b,c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write(‘ba canh tren khong phai cua mot tam giac’) else write(‘Day la ba canh cua tam giac’);
Readln;
End.
var ax,bx,cx,ay,by,cy,s:real;
begin
write(‘Nhap toa do diem 1: ‘); readln(ax,ay);
write(‘Nhap toa do diem 2: ‘); readln(bx,by);
write(‘Nhap toa do diem 3: ‘); readln(cx,cy);
s:=((bx – ax)*(cy-ay)-(cx-ax)*(by-ay))/2;
if s=0 then write(‘Ba diem A,B,C khong lap thanh mot tam giac’)
else write(‘Ba diem A,B,C lap thanh mot tam giac’);
readln;
end.