sử dụng phần mềm lập trình pascal , viết chương trình nhập giá trị cho x và y . xuất ra màn hình kết quả giá trị x và y hoán đổi cho nhau

0 bình luận về “sử dụng phần mềm lập trình pascal , viết chương trình nhập giá trị cho x và y . xuất ra màn hình kết quả giá trị x và y hoán đổi cho nhau”

1. Nhiều điểm nên mình làm 2 cách luôn!

   C1: Dùng biến tạm:

   uses crt; 
   var a,b,tam:longint;
   begin
      clrscr;
      write(‘Nhap a:’);readln(a);
      write(‘Nhap b:’);readln(b);
      tam:=a;
      a:=b;
      b:=tam;
      writeln(‘a=’,a);
      writeln(‘b=’,b);
   readln;
   end.

   C2: Không dùng biến tạm:

   uses crt; 
   var a,b:longint;
   begin
      clrscr;
      write(‘Nhap a:’);readln(a);
      write(‘Nhap b:’);readln(b);
      a:=a+b;
      b:=a-b;
      a:=a-b;
      writeln(‘a=’,a);
      writeln(‘b=’,b);
   readln;
   end.
   

   C3: Cách này chỉ xuất thôi chứ a,b chưa hoán đổi.

   uses crt; 
   var a,b:longint;
   begin
      clrscr;
      write(‘Nhap a:’);readln(a);
      write(‘Nhap b:’);readln(b);
      writeln(‘a=’,b);
      writeln(‘b=’,a);
   readln;
   end.

   Bình luận

2. Cách 1: 

   program hoan_doi;

   uses crt;

   var x,y,tg:integer;

   begin

          clrscr;

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

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

          tg:=x;

          x:=y;

          y:=tg;

          writeln(‘Ket qua sau khi hoan doi’)

          writeln(‘x= ‘,x);

          writeln(‘y= ‘,y);

          readln;

   end.

   Cách 2:

   program hoan_doi;

   uses crt;

   var x,y:integer;

   begin

           clrscr;

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

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

           writeln(‘Sau khi hoan doi la:’);

           writeln(‘x= ‘,y);

           writeln(‘y= ‘,x);

           readln;

   end.

   *Cách 1 thì là thay đổi giá trị thật sự, còn cách 2 chỉ là in ra chứ không có tác dụng về sau.

   Bình luận