39、设某公司人员情况文件f1的基类型是记录类型，其成分包括姓名（name）、性别（sex）、年龄（age,18岁到65岁），本程序功能是删除f中所有达到退休年龄（男60，妇55岁）职员信息（提示：标准PASCAL中，使用顺序文件，为删除一文件中的部分信息，可将不符合删除条件的信息取出，再写回原文件）
age:18..65
END;
workefile=FILE OF workers;
VAR
f,g:workefile; x:workers;
BEGIN
assign(f,'f1');assign(g,'g1');
reset(f); rewrite(g);
WHILE NOT①____________ DO
BEGIN
read(②____________ );
WITH③____________
IF((age<60)AND(sex='male'))
OR((age<55)AND(sex='female'))
THEN write(g,x)
END;
close(f);close(g);
assign(g,'g1');
assign(f,'f1');
reset(g);
rewrite(f);
WHILE NOT eof(g) DO
BEGIN read(g,x);write(④____________)END;
close(g);close(f)
END
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑：cyth
您现在的位置： 