各类水果的英文名称:一个PASCAL的文件类型题目

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 06:16:44
我想做一个PASCAL的文件类型的题目,不会要求是一个,比如:输入100,就会在一个指定的目录里创建1~100个空的TXT文件,但名字是1~100这些数字按顺序组成的,要源程序

var f:text;i:integer; s:string;
begin
for i:=1 to 100 do begin
str(i,s);
s:=s+'.txt';
assign(f,s);
rewrite(f);
writeln(f);
close(f);
end;
end.