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

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

0 bình luận về “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”

  1. 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
  2. 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

Viết một bình luận