viết chương trình để tìm điểm đối xứng của điểm(x,y) qua gốc tọa độ

0 bình luận về “viết chương trình để tìm điểm đối xứng của điểm(x,y) qua gốc tọa độ”

1. Uses crt;
   Var x,y:longint;
   Function dxtd(x,y:longint):string;
   begin
    If (x=0)or(y=0) then dxtd:='(0;0)’ else 
    begin writeln(‘(‘,x*-1,’;’,y*-1,’)’); dxtd:=”; end;
   end;
   begin
    Clrscr;
    Readln(x,y);
    Write(dxtd(x,y));
   readln
   end.

   Bình luận