Giúp e với mn Sử dụng chương trình con viết chương trình tìm số nhỏ nhất trong 3 số a, b, C Mai e thì r huhu, ❤????????

0 bình luận về “Giúp e với mn Sử dụng chương trình con viết chương trình tìm số nhỏ nhất trong 3 số a, b, C Mai e thì r huhu, ❤????????”

1. Dùng chương trình con của 2 số để tìm 3 số

   program nho_nhat;

   uses crt;

   var a,b,c,nn:integer;

   {—Chuong-trinh-con—}

   function min(x,y:integer):integer;

   begin

         if x<y then min:=x else min:=y;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

         clrscr;

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

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

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

         nn:=min(a,b);

         nn:=min(nn,c);

         write(‘So nho nhat la: ‘,nn);

         readln;

   end.

   Dùng chương trình con của 3 số

   program nho_nhat;

   uses crt;

   var a,b,c:integer;

   {—Chuong-trinh-con—}

   function min(x,y,z:integer):integer;

   begin

         min:=x;

        if y<min then min:=y;

        if z<min then min:=z;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

         clrscr;

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

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

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

         write(‘So nho nhat la: ‘,min(a,b,c));

         readln;

   end.

   Bình luận