Viết chương trình tìm số lớn nhất trong 4 số nguyên a,b,c,d được nhập vào từ bàn phím (sử dụng chương trình con )
Viết chương trình tìm số lớn nhất trong 4 số nguyên a,b,c,d được nhập vào từ bàn phím (sử dụng chương trình con )
Var a, b, c, d, max: integer;
Procedure timMax;
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);
timMax;
Write(‘so lon nhat la: ‘, max);
Readln
End.
Program TIM_SO_LON_NHAT;
Uses crt;
Var a,b,c,d,max: real;
BEGIN
Clrscr;
Writeln(‘TIM SO LON NHAT TRONG BON SO A, B, C, D’);
Writeln(‘—————————————————————‘);
Write(‘Nhap a=’);
Readln(a);
Write(‘Nhap b=’);
Readln(b);
Write(‘Nhap c=’);
Readln(c);
Write(‘Nhap d=’);
Readln(d);
max:=a;
If b>max then max:=b;
If c>max then max:=c;
if d>max then max:=d;
Writeln(‘So lon nhat la: ‘,max: 4: 2);
Readln;
END.