请教一个PASCAL问题（急）(150分)

S

Swn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-01

• #1

请用 Pascal 实现以下功能：
编制程序实现：将键盘输入的若干个整数（以复合键CTRL-Z表示输入结束），存入考盘的正文
文件A：N2000C31.DAT(其中A：表示存入考盘）中。例如，键入13 24 69<CTRL-Z>(其中〈ENTER〉
是键盘输入需要的）。则在考盘的正文文件N2000C31.DAT中存入数据13 24 69。程序调试成功
后，选用FILE菜单的SAVE AS操作，键入A：N2000C30。PAS<ENTER>,将你的程序存入考盘中。

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-01

• #2

使用delphi还是pascal6.0，说清楚一点。

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-01

• #3

我来拿分啦 Turbo Pascal 6.0测试下通过。
program nc2000c30;
var
i: integer;
fw: text;
begin
assign(fw,'nc2000c31.dat');
rewrite(fw);
repeat
read(i);
write(fw,i,' ');
until eof;
close(fw);
end.

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-01

• #4

我来拿分啦 Turbo Pascal 6.0测试下通过。
program nc2000c30;
var
i: integer;
fw: text;
begin
assign(fw,'nc2000c31.dat');
rewrite(fw);
repeat
read(i);
write(fw,i,' ');
until eof;
close(fw);
end.

 

S

Swn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-04

• #5

接受答案了.