血源诅咒符文怎么用:用PASCAL语言帮我做一下这道题
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/03 03:56:17
一道同济上的题目
http://acm.tongji.edu.cn/showproblem.php?problem_id=1007
详细内容:
Step
大家好!我是kaikai。
在Online Judge上,有的题目具有不确定的数据量。并且也没有特别指出哪个符号是表示数据的结束。这种情况下如何才能正确的得到数据?
使用EOF!对,你的想法是正确的。
while(scanf("%d",&a)!=EOF)
{
...
}
当然你也可以利用scanf的返回值。
while(scanf("%d",&a)==1)
{
...
}
Free Pascal下面的代码:
program p(Input,Output);
begin
while not seekeof(Input) do
begin
...
end;
end.
NOTE, SeekEof函数不是标准pascal函数库中的,使用SeekEof函数在GNU Pascal下不能通过编译。
这2种方法的效果是一样的。下面来试试看。
Program
对输入的整数求和。所有的整数都不大于100
Input
整数若干。每行一个。
Output
一个整数,表示所有输入整数的和。
Sample Input
1
3
2
5
7
Sample Output
18
注意!!我要PASCAL语言!
http://acm.tongji.edu.cn/showproblem.php?problem_id=1007
详细内容:
Step
大家好!我是kaikai。
在Online Judge上,有的题目具有不确定的数据量。并且也没有特别指出哪个符号是表示数据的结束。这种情况下如何才能正确的得到数据?
使用EOF!对,你的想法是正确的。
while(scanf("%d",&a)!=EOF)
{
...
}
当然你也可以利用scanf的返回值。
while(scanf("%d",&a)==1)
{
...
}
Free Pascal下面的代码:
program p(Input,Output);
begin
while not seekeof(Input) do
begin
...
end;
end.
NOTE, SeekEof函数不是标准pascal函数库中的,使用SeekEof函数在GNU Pascal下不能通过编译。
这2种方法的效果是一样的。下面来试试看。
Program
对输入的整数求和。所有的整数都不大于100
Input
整数若干。每行一个。
Output
一个整数,表示所有输入整数的和。
Sample Input
1
3
2
5
7
Sample Output
18
注意!!我要PASCAL语言!
var
a,b:longint;
Begin
b:=0;
While Not seekeof Do
Begin
readln(a);
inc(b,a)
End;
writeln(b)
End.