Viết hàm tìm max của 2 số nguyên nhập vào 2 số nguyên từ bàn phím sử dụng hàm để đưa ra max của 2 số đó

0 bình luận về “Viết hàm tìm max của 2 số nguyên nhập vào 2 số nguyên từ bàn phím sử dụng hàm để đưa ra max của 2 số đó”

1. program tim_max;

   uses crt;

   var a,b:integer;

   {—Ham—}

   function max(a,b:integer):integer;

   begin

          if a>b then max:=a else max:=b;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

          write(‘Nhap so thu nhat: ‘);  readln(a);

          write(‘Nhap so thu hai: ‘);  readln(b);

          write(‘So lon hon la: ‘,max(a,b));

          readln;

   end.

   Bình luận