Question

delphi 新手求助~在线等！integer的值范围判断。

a:integer;
a为0~40之间的任一数，integer型。
编写函数判断a是落在了在0~9，10~19, 20~29,30~39四个范围中哪一个。。
怎么做？

Answer 1

if (0<=a) and (a<=9) then
begin
ShowMessage('a在0-9之间');
end
else if (10<=a) and (a<=19) then
begin
ShowMessage('a在10-19之间');
end
else if (20<=a) and (a<=29) then
begin
ShowMessage('a在20-29之间');
end
else if (30<=a) and (a<=39) then
begin
ShowMessage('a在30-39之间');
end
else
begin
ShowMessage('a不在0-40之间');
end;