Viết hai hàm tìm max và min của ba số thực

2 câu trả lời

PS G:\c_cources\day_28> .\MinMaxThreeNum.exe 

Nhap so thu nhat: 3 

Nhap so thu hai: 4 

Nhap so thu ba: 5 

Min = 3

Max = 5

min:

function min(a,b,c: real): real;

begin

if (a<=b) and (a<=c) then min:=a;

if (b<=a) and (b<=c) then min:=b;

if (c<=b) and (c<=a) then min:=c;

end;

max:

function max(a,b,c: real): real;

begin

if (a>=b) and (a>=c) then max:=a;

if (b>=a) and (b>=c) then max:=b;

if (c>=b) and (c>=a) then max:=c;

end;

Câu hỏi trong lớp Xem thêm