Viết chương trình: cho 3 số nguyên x, y, z tìm số nhỏ nhất trong 3 số này

0 bình luận về “Viết chương trình: cho 3 số nguyên x, y, z tìm số nhỏ nhất trong 3 số này”

1. program Tim_so_nho_nhat;

   var x,y,z: longint;

   begin

   Clrscr;

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

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

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

   min:=x;

   if min>y then min:=y

   else if min>z then min:=z;

   writeln(‘So nho nhat la ‘,min);

   readln;

   end.

   Bình luận

2. Thuật toán:

   Bước 1: Nhập x, y, z từ bàn phím

   Bước 2: min ← x

   Bước 3: Nếu y<min thì min ← y

   Bước 4: Nếu z<min thì min ← z

   Bước 5: Xuất kq là min

   Chương trình:

   Program BTT;
   Uses crt;
   Var x,y,z,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap x, y, z: ‘); Readln(x,y,z);
           min:=x;
           If y<min then min:=y;
           If z<min then min:=z;
           Write(‘GTNN la: ‘,min);
           Readln
   End.

   Bình luận