Question

编写判断一个输入数是为正数,负数还是0的程序

请会做这个题的朋友帮忙，我急用，谢谢！！

Answer 1

'这个很简单啊，大于0正数，小于0负数，=0那就是0了。
on error resume next
n=inputbox("请输入一个数：","提示")
if n=false then wscript.quit
if n<0 then
if err then
msgbox "输入错误":err.claer:wscript.quit
end if
msgbox "负数"
elseif n>0 then msgbox "正数"
else msgbox "零"
end if

Answer 2

VB.NET版
dim a,b as integer
a=textbox1.text
if a>0 then
msg"输入的数为正数！"
if a<0 then
msg"输入的数为正数！"
if a=0 then
mag"输入的数为0！"
end sub

Answer 3

楼上的PASCAL版,

我再给一个C/C++版
#include <stdio.h>
void main()
{
float n=0;
scanf("%f",&n);
if(n>0)
{
printf(">0");
}
else if(n==0)
{
printf("=0");
}
else
{
printf("<0");
}
printf("\n");
}

Answer 4

program xxx;
var
a:longint;
begin
write('please input a:');
read(a);
if a>0 then write('a>0')
else if a=0 then write('a=0')
else write('a<0');
end.