Viết chương trình thực hiện công việc sau: tìm số lớn nhất trong 3 số nhập từ bàn phím trong đó có sử dụng hàm tìm số lớn nhất trong 2 số
Viết chương trình thực hiện công việc sau: tìm số lớn nhất trong 3 số nhập từ bàn phím trong đó có sử dụng hàm tìm số lớn nhất trong 2 số
By Iris
program tim_max;
uses crt;
var m,n,k:real;
max:real;
begin
clrscr;
write(‘nhap so thu nhat =’); readln(m);
write(‘nhap so thu hai =’); readln(n);
write(‘nhap so thu ba =’); readln(k);
max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln(‘gia_tri_lon_nhat=’,max:4:0);
readln;
end.
program lon_nhat;
uses crt;
var a,b,c,ln:integer;
{—Ham—}
function max(x,y:integer):integer;
begin
if x>y then max:=x else max:=y;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap so thu nhat: ‘); readln(a);
write(‘Nhap so thu hai: ‘); readln(b);
write(‘Nhap so thu ba: ‘); readln(c);
ln:=max(a,b);
ln:=max(ln,c);
write(‘So lon nhat la: ‘,ln);
readln;
end.