level 3
好吧，我承认我的技术很烂，毕竟我还只是一个初一的孩子
请各位大神帮我一个忙。
用if布尔表达式
1、如果x是负数，则输出“fushu”
否则是‘zhengshu’
我试过很多次都有错
谁能帮我？
2013年12月27日 11点12分
1
level 7
program ex;
var n;
begin
read(n);
if n=0 then write('n shi 0')
else if n>0 then write('n shi zhengshu')
else write('n shi fushu') ;
end.
2013年12月27日 12点12分
5
第二行改为 var n:real;
2013年12月27日 12点12分
太感谢了~thankyou~
2013年12月27日 12点12分
回复 wosfenghappy :大神，有错~
2013年12月27日 12点12分
回复 ww903611353 :上图
2013年12月27日 13点12分
level 7
注意 write()
而不是 write<>
请注意两者之间的区分
2013年12月27日 13点12分
9
level 4
program panduan;
var
n:longint;
flag:boolean;
begin
readln(n);
flag:=true;
if n<0
then flag:=true
else flag:=false;
if flag
then writeln('fushu')
else writeln('zhengshu');
end.
2013年12月28日 13点12分
12
正解！+10086
2014年01月09日 15点01分
回复 角落__守候 :但没考虑0 的情况
2014年01月09日 15点01分
回复 角落__守候 ：我按题意来的=_=...
2014年02月02日 04点02分
level 13
6L的程序错在write后是圆括弧而不是方括，12L把0当成正数了。
2013年12月28日 15点12分
14
level 3
var
n:longint;(如果数据不大可以用integer)
begin
readln(n);
if n<0 then writeln('fushu') else writeln('zhengshu');
end;
问一下，如果是0的情况呢？
2013年12月29日 10点12分
16
题目没规定一定是整数吧。。万一我输1.2你的程序如何判断呢
2014年02月04日 06点02分
level 12
var n:longint;
begin
readln(n);
if n<0 then wirte('fushu')
else if n=0 then write('zhengshu')
else write(0);
end.
2013年12月29日 13点12分
17
level 6
var
a:integer;
begin
readln(a);
if a>0 then writeln('zhengshu')
else
if a<0 then writeln('fushu');
end.
2014年02月02日 07点02分
22
