主题：急!!!!有一题相问
qpwow
[专家分：0] 发布于 2011-06-02 01:37:00
本人刚刚学 turbo pascal
有道题想问大大们们。
输入N个数，找出 第一个负数 的 序数？
刚刚学，老师就给我这道题，还非要我用while 循环啊，
跪求答案！！！！！！[em59][em59][em59][em59][em54][em54][em18][em18][em18][size=4]第一个负数[/size][color=FFFF00]第一个负数[/color]
最后更新于：2011-06-03 02:31:00
回复列表 （共11个回复）
沙发
qpwow [专家分：0] 发布于 2011-06-02 02:05:00
有人点没人回啊！版主救命啊
板凳
幽灵密码 [专家分：3510] 发布于 2011-06-02 18:51:00
var n,i,d,p:integer;
begin
read(n);
while i<n do begin
inc(i);
read(d);
if d<0 then p:=i
end;
write(p)
end.
3 楼
qpwow [专家分：0] 发布于 2011-06-03 01:53:00
我的老师叫我用A[i]表示
那是不是意味着要用for循环 和 while循环啊
4 楼
qpwow [专家分：0] 发布于 2011-06-03 02:20:00
[quote]var n,i,d,p:integer;
begin
read(n);
while i<n do begin
inc(i);
read(d);
if d<0 then p:=i
end;
write(p)
end.[/quote]
编的有点小问题，如果这组数有2个负数 ， 那么找的就是负数的个数啊！
5 楼
abcwuhang [专家分：1840] 发布于 2011-06-03 15:08:00
program try;
var i,n:longint;
a:array [1..1000000] of extended;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
writeln(i);
break;
end;
end;
end.
6 楼
qpwow [专家分：0] 发布于 2011-06-03 17:30:00
fillchar(a,sizeof(a),0);
sizeof(a)是什么东西啊
7 楼
幽灵密码 [专家分：3510] 发布于 2011-06-03 17:37:00
程序稍微修改一下
var a:array[1..500]of integer;
i,n:1..500;
begin
read(n);
for i:=1 to n do read(a[i]);
i:=1;
while a[i]>=0 do inc(i);
write(i);
end.
8 楼
qpwow [专家分：0] 发布于 2011-06-04 01:17:00
我看一看，然后把分上去，非常感谢
9 楼
幽灵密码 [专家分：3510] 发布于 2011-06-04 10:16:00
不存在负数输出0
var a:array[1..500]of integer;
i,n:1..500;
begin
read(n);
for i:=1 to n do read(a[i]);
i:=1;
while (a[i]>=0)and(i<n) do inc(i);
if a[i]>=0 then i:=0;
write(i);
end.
10 楼
小田甜 [专家分：3910] 发布于 2011-06-05 15:52:00
sizeof(a)
是a占用的内存大小，不是a的元素个数。
我来回复
您所在位置：