主题：[求助]加分！判输入结束
贺天行宝
[专家分：2300] 发布于 2006-03-27 21:12:00
不使用文件，题中没说明结束标志，谁有办法判输入结束？帮帮我！
题目出处www.vijos.cn
P1024
回复列表 （共9个回复）
沙发
Benix [专家分：720] 发布于 2006-04-03 14:01:00
如果你说的是一次输入一大堆数据 然后你一个一个读的情况（注意 一定是一次性把全部的文件输入完） 可以用不加参数的eoln 但如果使用户输一个你读一个 他什么时候输完也没有标志的话 恐怕只有用心灵感应了（或者设定输入时间限制 超过时间默认为不再输入）
板凳
LZR2005 [专家分：110] 发布于 2006-04-03 17:12:00
用字符串数组把该读的和不该读的都读进去然后自己切
3 楼
Benix [专家分：720] 发布于 2006-04-04 13:29:00
2楼说的情况就是把数据一次性输入完 但搂主的意思好像是分开输入的 但是不加结束符的话就很难理解了 我想就是利用延时 搂主可以试一下
for i:=1 to maxlongint do 用maxlongint的话可能时间太久 可以适当减少
begin
n:=readkey;
if n<>'' then goto 10
end;
exit 结束输入当循环
10:………………
4 楼
贺天行宝 [专家分：2300] 发布于 2006-04-05 19:48:00
???
什么叫readkey??
5 楼
Benix [专家分：720] 发布于 2006-04-06 13:36:00
我写得不是正规的程序 readkey是DOS单元的一个函数 作用是读取键盘中输入的一个字符
6 楼
maxumi [专家分：2200] 发布于 2006-09-21 07:56:00
while not seekeof do begin
read一次数据;
主程序;
end;
恩 貌似这帖有点老......
7 楼
贺天行宝 [专家分：2300] 发布于 2006-09-21 21:25:00
你那还是在文件中阿，还是用readkey比较好，问一下，readkey是在当前运行到时直接读吗（不是等用户输入）？
8 楼
maxumi [专家分：2200] 发布于 2006-09-22 09:00:00
eof在没有参数时指定为标准输入, 在有参数时指定为文件
在自己测试时按Ctrl+Z表示输入结束
readkey不等人, 如果你在那一瞬间没按键就返回''
readkey之所以不等人, 是因为等人的函数可以用不等人的函数模拟, 而不等人的函数不能用等人的函数模拟(这难道是绕口令???- -b)
9 楼
小田甜 [专家分：3910] 发布于 2006-09-24 17:54:00
???Readkey是DOS中的还是CRT中的
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — [求助]加分！判输入结束