viết hàm max(a,b) để tìm số lớn nhất trong hai số a và b

0 bình luận về “viết hàm max(a,b) để tìm số lớn nhất trong hai số a và b”

1. Hàm:

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

   begin

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

   end;

   Chương trình:

   program lon)nhat;

   uses crt;

   var a,b:integer;

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

   begin

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

   end;

   BEGIN

        clrscr;

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

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

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

        readln;

   end.

   Bình luận