VIP Forums Muzblog Chat Games Gallery. Форум, муздневники, чат, игры, галлерея.

DAVid-hay · 21 May 07, 22:13

код подобной программы-обманки(пр проще) для бесика -) кто не ленивый скомпелирует, не могу в ехе переделать.

Quote:

CLS
DIM x, y, V AS INTEGER
DO
PRINT "zagodayte 4islo v diapazone ot 0 do 10"
PRINT "dlya prodoljenia vvedit 1 "
INPUT V
LOOP UNTIL V = 1
x = RND * 10 MOD 10
PRINT "pribavte k zagadannomu 4islu"
PRINT x
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
y = y + x
x = RND * 10 MOD 10
PRINT "pribavte yeshe"
PRINT x
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
PRINT "otnemite 4islo zagadannoy vami"
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
PRINT "u vas polu4ilos' 4islo"
y = y + x
PRINT y
END

HayArtsiv · 21 May 07, 23:31

Quote:

Originally Posted by DAVid-hay

код подобной программы-обманки(пр проще) для бесика -) кто не ленивый скомпелирует, не могу в ехе переделать.

а это на каком языке??

DAVid-hay · 22 May 07, 00:30

Quote:

Originally Posted by HayArtsiv

а это на каком языке??

эт так я на скорую руку в бесике(qbasic) написал.
суть проги в том что она просит загадать число
потом генерирует случано число в диапазаоне от -10 до 10 и просит его прибавить к загаданному вами числу, потом ещё раз генерирует число и просит снова прибавить,а потом просит от полученного числа отнять вами же запомненное чилсо
и "угадвыает" ответ ))))
ну одним словом вы просто сами же в конце отнимайте загданное вами число и остается результат сложения 2 сгенерированных чисел.
Многие в шоке тож кричат сначал : " ааа..черт, это магия! " -))))

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

VIP Forums Muzblog Chat Games Gallery. Форум, муздневники, чат, игры, галлерея.

Discussions Discussion is an exchange of knowledge, dispute – an exchange of ignorance. (Robert Kuylen)

как это объяснить?