编程设计 free pascal 初学入门 30分钟内5月1日进粮食100吨,5月2日进粮食20吨,5月3日卖出库存的三分之二,5月4日调进库存的3倍粮食.问该仓库5月1日到4日每天的粮食各有多少吨?

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/27 10:16:24
编程设计freepascal初学入门30分钟内5月1日进粮食100吨,5月2日进粮食20吨,5月3日卖出库存的三分之二,5月4日调进库存的3倍粮食.问该仓库5月1日到4日每天的粮食各有多少吨?编程设计

编程设计 free pascal 初学入门 30分钟内5月1日进粮食100吨,5月2日进粮食20吨,5月3日卖出库存的三分之二,5月4日调进库存的3倍粮食.问该仓库5月1日到4日每天的粮食各有多少吨?
编程设计 free pascal 初学入门 30分钟内
5月1日进粮食100吨,
5月2日进粮食20吨,
5月3日卖出库存的三分之二,
5月4日调进库存的3倍粮食.
问该仓库5月1日到4日每天的粮食各有多少吨?

编程设计 free pascal 初学入门 30分钟内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 里就行了