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ới nha! Mjk sắp kiểm tra rồi :((
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
By Rylee
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.
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.