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

Question

hienthuc · Answer

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

minhnguyet · Answer

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;