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 )

Question

tuminh2 · Answer

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.

tuyetanhthu · Answer

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.