cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 2783|回复: 6

[聊天] 6月7日 imath将参加考试 特此收集人品

[复制链接]
发表于 2011-5-18 19:42:47 | 显示全部楼层 |阅读模式
6月7日 imath将参加普通高等学校招生全国统一考试 特此收集人品
发表于 2011-5-18 19:56:25 | 显示全部楼层
%.RP++
发表于 2011-5-19 07:11:24 | 显示全部楼层
rp++考完试才生效,还是++RP的好。。。
发表于 2011-5-19 12:21:33 | 显示全部楼层
program rpp(input,output)
var imath:array[1..+∞] of integer;
      rp,n:integer;
begin
for 1→rp to +∞ do
for 1→n to +∞ do
imath[rp]:=imath[rp]+n;
end.
发表于 2011-5-19 18:20:03 | 显示全部楼层
program rpp(input,output)
var imath:array[1..+∞] of integer;
      rp,n:integer;
begin
for 1→rp to +∞ do
for 1→n to +∞ do
imath[rp]:=imath[rp]+n;
end.
Chuckle. 发表于 2011-5-19 12:21

++++RP++++。
imath+RP×∞→imath。
发表于 2011-5-19 18:25:04 | 显示全部楼层
好了够了。。无穷大的RP他消受不起啊
发表于 2012-6-22 19:13:29 | 显示全部楼层
本帖最后由 black_binary 于 2012-6-22 19:47 编辑
  1. Dim LZ'S RP As Object
  2. Do
  3. LZ'S RP=LZ'S RP+1
  4. Loop While (RP <> ∞)
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-4-25 17:20 , Processed in 0.079058 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表