Viết chương trình nhập vào 4 số thực. Đưa ra màn hình số lớn nhất trong 4 số đó bẳng cách sử dụng hàm tìm số lớn nhất của 3 số
Viết chương trình nhập vào 4 số thực. Đưa ra màn hình số lớn nhất trong 4 số đó bẳng cách sử dụng hàm tìm số lớn nhất của 3 số
Program BTH;
uses crt;
var a,b,c,d,max:real;
begin
clrscr;
write(‘Nhap so 1: ‘); readln(a);
write(‘Nhap so 2: ‘); readln(b);
write(‘Nhap so 3: ‘); readln(c);
write(‘Nhap so 4: ‘); readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
begin
writeln(‘Max: ‘,max:4:2);
end;
readln;
end.
var a,b,c,d: real;
function max(a,b,c,d:real):real;
begin
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
end;
begin
write(‘Nhap 4 so: ‘); readln(a,b,c,d);
write(‘So lon nhat la: ‘,max(a,b,c,d):0:4);
readln
end.