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ố

Question

haiyen · Answer

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.

aivilan · Answer

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.

0 bình luận về “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ố”