viết chương trình nhập giá trị 2 biến x,y từ bàn phím (số thực) sau đó hoán đổi giá trị hai biến cho nhau

0 bình luận về “viết chương trình nhập giá trị 2 biến x,y từ bàn phím (số thực) sau đó hoán đổi giá trị hai biến cho nhau”

1. Uses crt;

   Var x, y, l: real;

   Begin

        Clrscr;

        Write(‘Nhap x = ‘); readln(x);

        Write(‘Nhap y = ‘); readln(y);

        l:=x;

        x:=y;

        y:=l;

        Writeln(x,’ va ‘,y,’ sau khi hoan doi la: ‘);

        Writeln(‘x = ‘,x);

        Writeln(‘y = ‘,y);

   Readln

   End.

   Bình luận

2. uses crt;

     var x, y t: real;

   begin

     clrscr;

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

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

     t:=x;

     x:=y;

     y:=t;

     writeln(‘Sau khi hoan doi: ‘);

     writeln(‘x = ‘, x);

     writeln(‘y = ‘, y);

     readln

   end.

   Bình luận