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

DAVid-hay · 21 May 07, 23: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 · 22 May 07, 00:31

Quote:

Originally Posted by DAVid-hay

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

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

DAVid-hay · 22 May 07, 01:30

Quote:

Originally Posted by HayArtsiv

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

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

Today's Posts
Last two days	Last 3 days
Last week	Today's Posts LIFE

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

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

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