tạo hàm lớn nhất của hai số, viết chương trình nhập vào 4 số in ra số lớn nhất

0 bình luận về “tạo hàm lớn nhất của hai số, viết chương trình nhập vào 4 số in ra số lớn nhất”

1. uses crt;
   var a,b,c,d:longint;
   function max(a,b:longint):longint;
   begin
      if a>b then max:=a else max:=b;
   end;
   begin
   clrscr;
      write(‘Nhap 4 so: ‘);readln(a,b,c,d);
      writeln(max(max(max(c,d),b),a));
   readln
   end.

   Bình luận

2. 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