pascal语言中的eof函数是干啥的？_百度知道
pascal语言中的eof函数是干啥的？
书里面也不写清楚。第十章，文件类型
提问者采纳
eof就是end of file，eoln是end of line。 not eof 就是还没有到达文件末 一般来说，有的题目说给你若干个数，但不告诉你有多少个，你就可以这样：while not eof do beginread(tmp);……not eoln 就是还没有到达当前行的末尾。比如说，给你一串字符，但不告诉你有多少个，你就可以这样：while not eoln do beginread(ch);……
提问者评价
其他类似问题
为您推荐：
eof的相关知识
其他4条回答
End Of File, 用来判断是否到达文件末尾了!
判断是否到达文件末尾了
楼上已经说得很明白了，不过补充一点eof有参数(f:text)而且f必须在之前调用过reset(f)（即处于读入状态）如果文件已经read完了，那么返回的就是true否则false
判断是否到达输入文件末尾了
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁pascal Hanoi双塔问题(NOIP2007) 求助 这段代码错在哪里？为什么老是显示wrong answer？求高手帮忙 谢谢_百度知道
pascal Hanoi双塔问题(NOIP2007) 求助 这段代码错在哪里？为什么老是显示wrong answer？求高手帮忙 谢谢
var a:array[0..100] n,j,i: bo: begin while not eof do begin for i:=1 to 100 do a[i]:=0; read(n); a[1]:=2; for i:=2 to n do begin for j:=1 to 100 do a[j]:=a[j]*2; a[1]:=a[1]+2; for j:=1 to 100 do if a[j]&9 then begin a[j]:=a[j] mod 10; bo:= for i:=100 downto 1 do begin if a[i]&&0 then bo:= if bo then write(a[i]); end.
我有更好的答案
【问题描述】给定A、B、C三根足够长的细柱，在A柱上放有2n个中间有孔的【提示】 设法建立An与An-1的递推关系式。 A2n=2^n-2
答案是2*2^(n-1)
运行结果是什么呢？？样例数据过了没有？？
其他类似问题
为您推荐：
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁跪求高手：pascal语言给解释一下这个。谢谢_百度知道
跪求高手：pascal语言给解释一下这个。谢谢
Total_Factor: D function GetSumOfFactor: Dbegin
Result := 0;
with p分配员工数据集 do
while not Eof do
Result := Result + FieldByName('FACTOR').AsFL
p计件数量 := BasRoundTo(p加工面积 * p生产数量,4);
if p计价工价 & 0 then
if ((p工序 = 'Y') and (p工价编码 && '')) then
p计件金额 := p计价工价
p计件金额 := BasRoundTo(p计价工价 * p计件数量,4);
if (p工作中心编码 = '003-1') then // 东方三色机
//单印刷、0.0135每平方。
p计价工价 := 0.020
if (p工作中心编码 = '044') then // 清废组0.009每平方
p计价工价 := 0.009
if (p工作中心编码 = '045') then // 清废组0.009每平方
p计价工价 := 0.009
if (p工作中心编码 = '0151') then // 手动贴合机 0.036每平方
p计价工价 := 0.036;
if p计件金额 = 0 then
p计件金额 := BasRoundTo(p计件数量 * p计价工价,4);
Total_Factor := GetSumOfF
if Total_Factor && 0 then
p分配金额 := BasRoundTo(p计件金额 * p系数 / Total_Factor,4);
//****** 纸板计件工资*******
if p工序序号 = -1 then
p计价工价 := 0;
p计件金额 := 0;
p计件数量 := p生产数量;
//欲力AND BHS 2500流水线
if (p工作中心编码 = '2#') or (p工作中心编码 = '1#') then
p计价工价 :=0.013;
p计件金额 := BasRoundTo(p计价工价 * p计件数量, 2);
Total_Factor := GetSumOfF
if Total_Factor && 0 then
p分配金额 := BasRoundTo(p计件金额 * p系数 / Total_Factor,2);
提问者采纳
是个人都看不懂，为什么pascal的代码里面会有中文，还很神奇
这是一个脚本
提问者评价
来自团队：
其他类似问题
为您推荐：
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁zerojudge a738 pascal 语言_百度知道
zerojudge a738 pascal 语言
求·zerojudge
pascal 语言谢谢，网址：zerojudge.tw 握爪
① 下面的代码用到了函数（不知道是否符合要求）？② 对用户的输入也做了检测，不符合要求的被要求重入。－－－ 如果不需要可以去掉，但需要稍微修改代码。③ 原题中EOF － 这个说法不好，而且windows下和xNix下的输入方法也不同，因此代码中除了检查ctrl-z（windows下）之外，还添加了空行回车（作为用户输入结束标准）。program&GCD_uses&&&&&procedure&swap(var&a,&b&:&Longint);&&&&var&&&&&&&&temp:&L&&&&begin&&&&&&&&temp&:=&a;&a&:=&b;&b&:=&&&&&&&&&function&gcd_nonrecurise(const&a,&b&:&Longint)&:&I&&&&var&&&&&&&&amin,&amax,&diff:&L&&&&begin&&&&&&&&amax&:=&a;&amin&:=b;&&&&&&&&&&&&&&&&while&(1=1)&do&&&&&&&&begin&&&&&&&&&&&&if&(amax&&&amin)&then&swap(amax,&amin);&&&&&&&&&&&&if&(amin&=&amax)&then&exit(amin);&&&&&&&&&&&&diff&:=&amax&-&&&&&&&&&&&&&amax&:=&&&&&&&&&&&&&&&&&&&&&&&&&&&&&function&parseInput(const&str&:&&var&a&,&b&:&Longint):&I&&&&var&&&&&&&&errcode&:&L&&&&&&&&sa,&sb&:&S&&&&begin&&&&&&&&sa&:=&ExtractDelimited(1,&str,&['&']);&&&&&&&&if&Length(sa)&&&1&then&exit&(-1);&&&&&&&&sb&:=&ExtractDelimited(2,&str,&['&']);&&&&&&&&if&Length(sb)&&&1&then&exit&(-2);&&&&&&&&val(sa,&a,&errcode);&&&&&&&&if&(errcode&&&&0)&or&(a&&&0)&or&(a&&=&)&then&exit&(1);&&&&&&&&val(sb,&b,&errcode);&&&&&&&&if&(errcode&&&&0)&or&(b&&&0)&or&(b&&=&)&then&exit&(2);&&&&&&&&exit(0);&&&&var&&&&a,&b,&gcd,&count,&l&:&L&&&&&&&&gcd_result&:&array&of&L&&&&instr&:&Sbegin&&&&count&:=&0;&//&gcd&results,&a.k.a,&valid&input,&count&&&&while&not&eof&do&//&eof,&in&windows&ctr-z,&in&xNix&ctr-d.&&&&begin&&&&&&&&readln(instr);&&&&&&&&if&Length(instr)&=&0&then&&//&empty&return&also&means&to&end.&&&&&&&&if&parseInput(instr,&a,&b)&&&&0&then&begin&writeln('invalid,&try&again.');&&&&&&&&&&gcd&:=&gcd_nonrecurise(a,&b);&&&&&&&&inc(count);&&&&&&&&setlength(gcd_result,&count);&&&&&&&&gcd_result[count-1]&:=&&&&&&&&&&&&&for&l&:=&low(gcd_result)&to&high(gcd_result)&do&writeln(gcd_result[l]);end.运行：30&242&462或30&242&4^Z62
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}