viết Chương trình nhập vào 4 số tạo hàm max 2 số in ra màn hình số lớn nhất

0 bình luận về “viết Chương trình nhập vào 4 số tạo hàm max 2 số in ra màn hình số lớn nhất”

1. program gtln;
   uses crt;
   var a, b, c, d, e: integer;
   function max(x, y: integer): integer;
   begin
   if x>=y then
   max:=x
   else
   max:=y;
   end;
   begin
   clrscr;
   write (‘nhap so thu nhat: ‘); readln (a);
   write (‘nhap so thu hai: ‘); readln (b);
   write (‘nhap so thu ba: ‘); readln (c);
   write (‘nhap so thu tu: ‘); readln (d);
   write (‘so lon nhat la: ‘,max(max(max(a, b), c), d));
   readln;
   end.
   end.

   Bình luận

2. uses crt;

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

   begin

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

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

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

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

   max:=a;

   if max<=b then max:=b;

   if max<=c then max:=c;

   if max<=d then max:=d;

   writeln (‘so lon nhat: ‘,max);

   end.

   Bình luận