竹木门:用PASCAL语言帮我做一下这道题

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 23:55:25

一道同济上的题目
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.

用PASCAL语言帮我做一下这道题请教一道题！用PASCAL语言做~~ 求教一个动态规划问题~用PASCAL语言做请问一下谁知道delphi中，用pascal 语言怎么写，谁帮我做一下这个C语言的题目谁帮我做一下这个C语言的题目谁帮我做一下这个C语言的题目谁帮我做一下这个C语言的题目谁帮我做一下这个C语言的题目谁帮我做一下这个C语言的题目