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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
