Viết chương trình tìm số lớn nhất trong 4 số nguyên a, b, c, d, trong chương trình có sử dụng hàm tìm số lớn nhất của 2 số nguyên a và b? Giúp mjk v

0 bình luận về “Viết chương trình tìm số lớn nhất trong 4 số nguyên a, b, c, d, trong chương trình có sử dụng hàm tìm số lớn nhất của 2 số nguyên a và b? Giúp mjk v”

1. program tim_max;

   uses crt;

   var a,b,c,d,max:integer;

   {—HAM—}

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

   begin

      if x>y then lonnhat:=x else lonnhat:=y;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

      clrscr;

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

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

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

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

      max:=lonnhat(a,b);

      max:=lonnhat(max,c);

      max:=lonnhat(max,d);

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

      readln;

   end.

   Bình luận

2. uses crt;

   var a,b,c,d: integer;

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

   begin

   if (a>=b) and (a>=c) and (a>=d) then max:=a;

   if (b>=a) and (>=c) and (>=d) then max:=b;

   if (c>=a) and (>=b) and (>=d) then max:=c;

   if (d>=a) and (>=c) and (>=b) then max:=d;

   end;

   begin

   clrscr;

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

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

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

   write (‘nhap d: ‘);  readln (d);

   writeln (‘so lon nhat la: ‘,max(a,b,c,d));

   readln;

   end.

   Bình luận