会LOGO语言的大虾请进, ;-) ( 积分: 300 )

  • 主题发起人 主题发起人 刘麻子
  • 开始时间 开始时间
刘

刘麻子

Unregistered / Unconfirmed
GUEST, unregistred user!
用30元去购物, 练习本每本1元, 钢笔每支4.6元, 铅笔每支0.7元. 每样至少买一件, 编程输出剩下钱尽可能少的所有可能购物方案! 要求用LOGO语言实现!
(麻子问: LOGO语言能干这事? 我记得小学学过, 是用来画图的呀? 带着困惑搜索中……)
 
用30元去购物, 练习本每本1元, 钢笔每支4.6元, 铅笔每支0.7元. 每样至少买一件, 编程输出剩下钱尽可能少的所有可能购物方案! 要求用LOGO语言实现!
(麻子问: LOGO语言能干这事? 我记得小学学过, 是用来画图的呀? 带着困惑搜索中……)
 
to result :x :y :z
pr "钢笔 :x+1
pr "铅笔 :y+1
pr "练习本 :z
end
for "i 1 (int :sum/4.6) [for "j 1 (int :sum/0.7) [if (:sum>(:i*4.6+:j*0.7)) and (0 = (REMAINDER (:i*4.6+:j*0.7) 1)) then
result :i+1 :j+1 28-(:i*4.6+:j*0.7)]]
大概吧,以前为学校写过logo环境解释程序,现在忘得差不多了
 
唉呀呀, 真是高手啊! 小弟佩服! 谢谢啦, 容俺研究研究代码先.. :)
 
logo ??是那个海龟吗？？
 
to kgm:
是的
to pascal!大侠:
提示"SUM is not a logo name.", 应该修改哪里呢?
 
改了一下代码, 现在提示 "then
is not a logo name.", :~(
to result :x :y :z
pr "pen :x+1
pr "pencil :y+1
pr "book :z
end
to Mazi
make "xsum 100
for "i 1 (int :xsum/4.6) [for "j 1 (int :xsum/0.7) [if (:xsum>(:i*4.6+:j*0.7)) and (0 = (REMAINDER (:i*4.6+:j*0.7) 1)) then
result :i+1 :j+1 28-(:i*4.6+:j*0.7)]]
end
 
make "sum 30
 
to result :x :y :z
pr "钢笔 :x+1
pr "铅笔 :y+1
pr "练习本 :z
end
to mazi
make "sum 30
for "i 1 (int :sum/4.6) [for "j 1 (int :sum/0.7) [if ((:sum>(:i*4.6+:j*0.7)) and (0 = (REMAINDER (:i*4.6+:j*0.7) 1))) then
result :i+1 :j+1 28-(:i*4.6+:j*0.7)]]
end
 
在您昨天所给代码的基础上改了一下, logo4.0测试通过:
to result :x :y :z
type [pen/:]
type :x
type [/]
type [pencil/:]
type :y
type [/]
type [book/:]
type :z
pr "
end
to Mazi
make "xsum 30
for "i 1 (int :xsum/4.6) [for "j 1 (int :xsum/0.7) [if and (:xsum>(:i*4.6+:j*0.7)) (0 = (REMAINDER (:i*4.6+:j*0.7) 1)) then
result :i :j :xsum-(:i*4.6+:j*0.7)]]
end
 
恭喜!给分罢
 
嘿嘿嘿, 这就给分, 谢谢pascal!大侠啦, :)
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
用INI实现多语言界面的切换
回复
0
查看
866
import
I
I
与大虾对话: 领悟设计模式
回复
0
查看
661
import
I
I
Delphi元件除错技巧
回复
0
查看
855
import
I
后退
顶部