eof = 可以输入多行数据、字串和符号。倘若需要结束，ctrl + pausebreak便成。倘若需要执行，ctrl + z便成。eoln = 只能输入一行的数据、字串和符号。P.S. 楼主加不加括号 = 没有问题，我向来都不加，不过加了括号 = 比较清晰。
c++: while(cin>>n)c: while(scanf("%d",&n)!=EOF)c++也可以写成c的格式，加个头文件就行了
如果没到文件尾，就一直执行循环体 希望采纳
在读取键盘输入时，按CTRL+Z 可结束输入。
while (not(eof(input)))do begin 读取;end;如果读完了用 CTRL+Z 结束.不过你也可以在读取时直接影响到 while 的条件.比如你要读取整数:i:=1;readln(a[i]);while (a[i]<> 0)do begin inc(i);read(a[i]);end;当你输入0时,读取结束,现在a[1]..a[i-1]就是你输入的数字.
你这需要先读数，再判断是否结束循环。要用repeat...until形式的直到型循环。
比如楼主的MyFile开始的时候这样定义var MyFile: Filebegin AssignFile(MyFile, Path);//Path是路径, 开始是要定义的//定义以后才能用CloseFile, 可以说AssignFile和CloseFile是成对出现的//楼主用的Readln虽然可以用, 但是这是Pascal的语法, 在Delphi不提倡这样 解析看不懂?免费查看同类题视频解析查看解答...
out');reset(input);rewrite(input);b:=0;while (eof(input))= not true do while (eoln(input))=not true do for i:=1 to 8 do begin read(a); b:=b+a; end;write(output);close(input);end.是 true 不是 ture!其实 not true= false ...
(self, node): pass # Pascal程序不支持过程调用的引用 def block(self): # 构造块节点的方法 declarations = self.declarations() compound_statement = self.compound_statement() node = Block(declarations, compound_statement) # 块节点由声明节点和符合语句节点组成 return node def program(self): self....
//楼主用的Readln虽然可以用, 但是这是Pascal的语法, 在Delphi不提倡这样结果一 题目 Delphi读文本文件问题while not eof(MyFile) dobeginReadln(MyFile,x,y);// Memo1.Lines.Add(FloatToStr(x));// Memo2.Lines.Add(FloatToStr(y));j:=j+1;// Readln(MyFile,x,y);x1[j]:=x;y1[j]:=y;if...