Question

Viết chương trình nhập vào 2 số nguyên a và b từ bàn phím và in ra màn hình số nhỏ nhất trong 2 số đó ( sử dụng chương trình con để tìm giá trị nhỏ nhất của a và b). Chương trình con theo function(a,b:real):real;

Answer 1

uses crt;
var a,b:real;
{---------------------------chuong-trinh-con----------------------------}
function min(x,y:real):real;
begin
if x>y then min:=y
else if x<y then min:=x;
end;
{--------------------------chuong-trinh-chinh---------------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('hai so bang nhau')
else begin
if min(a,b)=a then writeln(a:4:2,' la so nho nhat');
if min(a,b)=b then writeln(b:4:2,' la so nho nhat');
end;
readln;
end.