主题：[原创]水一下，新的一年开始了，大家新年快乐啊：）来做做程序填空吧：）
cgl_lgs
[专家分：21040] 发布于 2012-01-02 15:10:00
! 水一下，新的一年开始了，大家新年快乐啊：）来做做程序填空吧：）
! 每空十分啊：）
program year2012
type(people) you;
type(sphere) earth;
call get_earth_property_by_year(earth,2012)
! 跑得过地裂
do
call run_faster_and_faster(you)
if(you%speed.gt.earth%break%speed)exit
end do
! 跳得过高墙
do
call jump_higher_and_higher(you)
if(you%jumphigh.gt.max(earth%walls(:)%height))exit
end do
! 能无性生育
! 填空1
! 活得过小强
! 填空2
! 能自已发电
! 填空3
! 能徒手盖房
! 填空4
! 填空5——任君想象：）
end program
回复列表 （共5个回复）
沙发
臭石头雪球 [专家分：23030] 发布于 2012-01-02 18:36:00
! 能无性生育
do
call Reproduction( you , you , bSTATUS_1 )
if ( bSTATUS == STATUS_SUCCESS ) exit
end do
! 活得过小强
do
bSTATUS_1 = Is_Object_Still_Alive( you )
bSTATUS_2 = Is_Object_Still_Alive( xiaoqiang )
if ( (bSTATUS_1 == .TRUE.).and.(bSTATUS_2==.FALSE.) ) exit
end do
! 能自已发电
do
call PutObjectIntoObject( you , coil )
do i = 1 , 100000
call Rotation( you )
end do
if ( you%Voltage >= 220.0 ) exit
end do
! 能徒手盖房
do
call Connect_AI_Engine()
call Set_Message_Language( LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED )
call SendMessage_To_AI_Engine( you , "这娃能盖房不？不要工具哦亲" )
bSTATUS_1 = Get_Response_AI_Engine()
call Disconnect_AI_Engine()
if ( bSTATUS_1 ) exit
end do
! 填空5
call Query_Object( you , obj )
call Destroy_Object( obj )
call Query_Object( earth , obj )
call Destroy_Object( obj )
call sleep( 4.6D9 * 365 * 24 * 60 * 60 * 1000 )
call CreateObject( earth2 )
call CreateObject( OlidStone )
call PutObjectIntoObject( OlidStone , earth2 )
call Reproduction( OlidStone , OlidStone , bSTATUS_1 )
call GetNewObject( 盘古 )
goto Begin
板凳
cgl_lgs [专家分：21040] 发布于 2012-01-02 23:00:00
喔也，够可以~~~~话说你一个回帖全回了我给不了50啊：）
3 楼
臭石头雪球 [专家分：23030] 发布于 2012-01-03 11:19:00
哦，感谢再来20分
4 楼
臭石头雪球 [专家分：23030] 发布于 2012-01-03 11:24:00
其实我特别想写成这样：
OlidStone = new people();
5 楼
cgl_lgs [专家分：21040] 发布于 2012-01-03 11:33:00
这个。。。是C++滴~~~~~
C++的我也写了一个，不过是为了在CSDN里散分用：）写的是：
auto_ptr<TPeople>me(new TPeople);
哈哈：）
我来回复
您所在位置：