作业帮编程设计 free pascal 初学入门 30分钟内
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/30 05:19:28
编程设计 free pascal 初学入门 30分钟内
5月1日进粮食100吨,
5月2日进粮食20吨,
5月3日卖出库存的三分之二,
5月4日调进库存的3倍粮食.
问该仓库5月1日到4日每天的粮食各有多少吨?
5月1日进粮食100吨,
5月2日进粮食20吨,
5月3日卖出库存的三分之二,
5月4日调进库存的3倍粮食.
问该仓库5月1日到4日每天的粮食各有多少吨?
var
s:real;
begin
s:=s+100;
writeln(s:2:0);{5月1日}
s:=s+20;
writeln(s:2:0);{5月2日}
s:=s/3*2;
writeln(s:2:0);{5月3日}
s:=s*3;
writeln(s:2:0);{五月四日}
end.
直接复制到记事本里,再保存好,拖到Free pascal 里就行了
s:real;
begin
s:=s+100;
writeln(s:2:0);{5月1日}
s:=s+20;
writeln(s:2:0);{5月2日}
s:=s/3*2;
writeln(s:2:0);{5月3日}
s:=s*3;
writeln(s:2:0);{五月四日}
end.
直接复制到记事本里,再保存好,拖到Free pascal 里就行了