Nhập 2 số bất kì x và y. Hãy thực hiện việc hoán đổi giá trị của x và y. Vd: x=7.2, y=6 =>x=6 =>y=7.2

0 bình luận về “Nhập 2 số bất kì x và y. Hãy thực hiện việc hoán đổi giá trị của x và y. Vd: x=7.2, y=6 =>x=6 =>y=7.2”

1. Program hoan_doi;

   uses crt;

   var hd p ,q: integer;

   begin

   clrscr;

   write(‘nhap p =’); readln(p);

   write(‘nhap q =’); readln(q);

   write(‘gia tri ban dau cua p = ‘,p,’ va ‘ q = ‘,q);

   hd:=p;

   p:=q;

   q:=hd;

   writeln;

   writeln(‘gia tri cua p va q sau khi hoan doi la p =’,p,’ va q =’,q);

   readln;

   end.

   Bình luận

2. var x,y,t:real;

   begin

   write(‘Nhap x: ‘); readln(x);

   write(‘Nhap y: ‘); readln(y);

   t:=x;

   x:=y;

   y:=t;

   writeln(‘x= ‘,x);

   write(‘y= ‘,y);

   readln;

   end.

   Bình luận