Nhập từ bàn phím 3 số nguyên x , y ,z . Sắp xếp theo thứ tự tăng dần . In kết quả ra màn hình ( Tin 8)

0 bình luận về “Nhập từ bàn phím 3 số nguyên x , y ,z . Sắp xếp theo thứ tự tăng dần . In kết quả ra màn hình ( Tin 8)”

1. program ctpt;

   uses crt;

     var x, y, z: integer;

   begin

             clrscr;

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

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

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

             if x<y<z then write(x:3, y:3, z);

             if y<x<z then write(y:3, x:3, z);

             if x<z<y then write(x:3, z:3, y);

             if y<z<x then write(y:3, z:3, x);

             if z<x<y then write(z:3, x:3, y);

             if z<y<x then write(z:3, y:3, x);

             readln

   end.

   Bình luận

2. Chương trình theo QLinkVN nó sẽ như thế này:…

   program baylak;

   uses crt;

   var x, y, z: integer;

   begin

             clrscr; 

   writeln(‘Hay nhap gia tri cho x: ‘); readln(x);   

             writeln(‘Hay nhap gia tri cho y: ‘); readln(y);

   writeln(‘Hay nhap gia tri cho z: ‘); readln(z);

             if x<y<z then writeln(x, y, z);

   if y<x<z then writeln(y, x, z);

             if x<z<y then writeln(x, z, y);

   if y<z<x then writeln(y, z, x);

             if z<x<y then writeln(z, x, y);

   if z<y<x then writeln(z, y, x);

             readln;

   end.

   Bình luận