荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: playboy (为了钱，努力！), 信区: Program
标 题: input文件
发信站: BBS 荔园晨风站 (Wed Jan 12 09:04:07 2000), 转信
const
a=10,b=100;
var
x,y,z;
procedure p;
var u,v;
begin
u:=x;
write(u);
end;
procedure q;
var x;
begin
x:=25;
write(x);
call p;
end;
begin
x:=a;
y:=b;
read(z);
x:=x+y+z;
call q;
write(x);
while x>0 do
begin
x:=x-1;
end;
write(x);
if x=0 then write(x);
repeat
x:=x+1;
until x>10;
write(x);
end.
--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.90]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店