Viết hai hàm tìm max và min của ba số thực 12/07/2021 Bởi Remi Viết hai hàm tìm max và min của ba số thực
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 Bình luận
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; Bình luận
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;