воскресенье, 26 октября 2003
Только что узнал, что нам что-то задавали на завтра. Точнее не что-то, а кучу номеров по алгебре, что-то там по английскому и нарисовать солнце море и звёзды на информатику. Так... время 16-07... Надо что-нить сделать. Или ничего не делать...
-
-
26.10.2003 в 17:19-
-
26.10.2003 в 17:25Пожалуйста,сделай хотя бы информатику...
-
-
26.10.2003 в 17:48Вот прога, толька запусти её для начала дома, чтобы не поняла, какой это ужас...
З.Ы. Ты её хоть измени, а то кузеванова убьёт.
CLS
SCREEN 12
RANDOMIZE TIMER
DO
x = INT((RND * 640))
LOOP UNTIL (x < 100) AND (x > 10)
DO
y = INT((RND * 480) - 20)
LOOP UNTIL y < 100 AND y > 10
'PRINT x, y
'PSET (x, y), 15
' MoPe c 3-M9 BoJlHaMu
PSET (0, y + 200), 9
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
PSET (0, y + 340), 9
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
PSET (0, y + 300), 9
DRAW _
"c9e2r2f2e2e2r2f2f2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
PSET (0, y + 260), 9
DRAW _
"c9f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
PSET (0, y + 460), 9
DRAW _
"c9f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
PSET (0, y + 400), 9
DRAW _
"c9f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r2f2r2f2r2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2" _
DRAW _
"c9r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2r2e2r2e2r2e2r2f2r2f2r2f2r2e2r2f2r2e2f2r2f2r" _
' CoJlHu,e
xc = INT(RND * 100)
yc = INT(RND * 100)
FOR i = 0 TO 30
CIRCLE (xc + 450, yc + 50), i, 14
NEXT
' 3Be3gbl (npocTo To4Ku)
FOR n = 1 TO 300
x1 = INT(RND * 600)
y1 = INT(RND * 205)
PSET (x1, y1), 15
NEXT
Результат - ужас =) но хоть что-то. Там поредактируй сама что-нить.
-
-
26.10.2003 в 17:51Давай. Решу... Алгебру я люблю. Помню, в 7-м классе читал про кубические уравнения и радикалы =) щас, конечно, уже не люблю, но чё-нить решить могу. По крайней мере по программе 9-го класса решить могу =))))
-
-
26.10.2003 в 17:54Тока что заметил, что прога нерациональная. Там в первых сторчках вместе Do...Loop until можно было легче написать, ну да ладно. Забить.
З.Ы. Смотри не упади со стула, когда будешь результат смотреть.
-
-
26.10.2003 в 18:13СПАСИБО!!!!!!!!С МЕНЯ ШОКОЛАДКА...
-
-
26.10.2003 в 18:17Всегда пожалуйста
З.Ы. Ты прогу измени хоть чуть-чуть, а то кузевонова меня убьёт...
-
-
26.10.2003 в 19:10-
-
26.10.2003 в 22:20Нет. Это тот самый доисторический BASIC (Beginners All-purpose Symbol Instruction Code)
-
-
27.10.2003 в 12:12-
-
27.10.2003 в 14:48