作业帮 > 综合 > 作业

Free Pascal程序 用循环做

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/06 02:31:09
Free Pascal程序 用循环做
将一段英文句子存入Eng.in文件中(以每句为一行),然后读出并显示(也可用汉语拼音代替英文句子).
--*不好意思,不是用循环做的!*--
句子是准备好的
var
  s:ansistring;
  f:text;
begin
  assign(f,'Eng.in');
  reset(f);
  while not eof(f) do
    begin
  readln(f,s);
  writeln(s);
end;
  readln;
end.
再问: 对的