易码技术论坛

 找回密码
 加入易码
搜索
查看: 1458|回复: 20

中文BASIC源代码

[复制链接]
发表于 2008-8-29 14:38:59 | 显示全部楼层 |阅读模式
 这是用GOOGLE翻译的BASCI源程序,有兴趣的把它翻译会原文吧

  10輸入“ = ” ,
20輸入"+,-,*伊犁/ “ , 1元
30輸入“乙= ” ,乙
40 元, b =個STR美元( a ) + 1元+個STR元(二)+"="
50 如果$="+"然後c = 1 +乙:後藤130
60 如果$="-"然後c = 1 - B組:後藤130
70 如果$="*"然後c = 1 * B組:後藤130
80 如果$="/"然後c =甲/乙:轉到130
90 財利船廠
100 元打印+ “ neverno ! nado +,-,*伊犁/ ”
110 睡眠2000年
120 後藤10
130 財利船廠的
140元,打印b +個STR元(三)
150後藤10
发表于 2008-8-29 14:42:51 | 显示全部楼层
看到脑残了。。。。
发表于 2008-8-29 15:58:02 | 显示全部楼层
LZ真是有创意啊!
发表于 2008-8-29 16:17:14 | 显示全部楼层
LZ不觉得这样很累么?
发表于 2008-8-29 16:40:48 | 显示全部楼层
翻译一下PHP如何
 楼主| 发表于 2008-8-29 17:24:09 | 显示全部楼层
不累,不累,GOOGLE帮我翻译的
发表于 2008-8-29 19:02:37 | 显示全部楼层
GOOGLE翻译英文貌似很垃圾~~
不过日文还不错
发表于 2008-8-29 21:20:56 | 显示全部楼层
不愧为水区主任
发表于 2008-8-29 21:42:33 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2008-8-29 22:13:05 | 显示全部楼层
10 enter "="
20 enter "+,-,* Yili / "one yuan
30 type "B =" B
40 yuan, b = STR-dollar (a) + 1 + months元STR million ()+"="
If $="+" 50 and c = 1 + B: Goto 130
If $="-" 60 and c = 1 - B group: 130 Goto
If $="*" 70 and c = 1 * B group: 130 Goto
If $="/" 80 and then c = A / B: Go to 130
90 CLS
100 yuan Print + "neverno! Nado +,-,* Yili /"
110 sleep 2000
120 Goto 10
130 CLS
140 yuan, a print b + STR yuan (c)
150 Goto 10
==================
这是google中文翻译成英文的结果
发表于 2008-8-29 22:17:21 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
 楼主| 发表于 2008-8-29 23:26:48 | 显示全部楼层
这个是语句,等同于STOP
发表于 2008-8-30 00:39:17 | 显示全部楼层
传说中的1ava语言?
发表于 2008-8-30 11:42:13 | 显示全部楼层
原帖由 murmur 于 2008-8-30 00:39 发表
传说中的1ava语言?

BAS1C.
发表于 2008-8-31 17:09:34 | 显示全部楼层
更看不懂了,睡眠2000年……
還有那個“後滕”是什麽東西?
发表于 2008-8-31 18:10:45 | 显示全部楼层
原帖由 sargehsy 于 2008-8-31 17:09 发表
更看不懂了,睡眠2000年……
還有那個“後滕”是什麽東西?



应该是日语的goto吧
发表于 2008-8-31 21:37:06 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
 楼主| 发表于 2008-9-1 22:43:00 | 显示全部楼层
正确答案来了:
10 INPUT "A=",A
20 INPUT "+,-,* ili /",A$
30 INPUT "B=",B
40 B$=STR$(A)+A$+STR$(B)+"="
50 IF A$="+" THEN C=A+B:GOTO 130
60 IF A$="-" THEN C=A-B:GOTO 130
70 IF A$="*" THEN C=A*B:GOTO 130
80 IF A$="/" THEN C=A/B:GOTO 130
90 CLS
100 PRINT A$+" NEVERNO ! Nado +,-,* ili /"
110 SLEEP 2000
120 GOTO 10
130 CLS
140 PRINT B$+STR$(C)
150 GOTO 10
发表于 2008-9-1 23:24:43 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2008-9-1 23:43:54 | 显示全部楼层
美刀 这个都能翻译出来 谷歌真是无微不至
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-5-5 19:34 , Processed in 0.012050 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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