PROGRAM CT61;
USES crt;
TYPE
Diem= RECORD
x,y: BYTE;
END;
VAR Dy, Dx: BYTE;
A, B: Diem;
BEGIN
Writeln('Chuong trinh nhap toa do 2 diem va tinh dx, dy ');
Write('Nhap toa do 2 diem A ,B : '); Readln(A.x,A.y,B.x,B.y);
Dx:=B.x-A.x; Dy:=B.y-A.y;
Write(' Dx = ',Dx); Write(' Dy= ',Dy);
Readln
END.
Download: http://www.mediafire.com/?8cipe8o5l84x117
USES crt;
TYPE
Diem= RECORD
x,y: BYTE;
END;
VAR Dy, Dx: BYTE;
A, B: Diem;
BEGIN
Writeln('Chuong trinh nhap toa do 2 diem va tinh dx, dy ');
Write('Nhap toa do 2 diem A ,B : '); Readln(A.x,A.y,B.x,B.y);
Dx:=B.x-A.x; Dy:=B.y-A.y;
Write(' Dx = ',Dx); Write(' Dy= ',Dy);
Readln
END.
Download: http://www.mediafire.com/?8cipe8o5l84x117