Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: mutkitteleva viiva

janux [09.12.2003 14:47:12]

#

Elikkä siis hiano viiva joka mutkittelee. Tässä on käytetty hieman trigonometriaa avuksi

SCREEN 13
CLS

x = 0
y = 100

DO

 a = a + 20
 y = COS(a)
 x = x + 1

 PSET (x, y + 100), 1
  FOR i = 0 TO 10000: NEXT i
 LINE (x - 8, 90)-(x - 8, 130), 0

LOOP UNTIL INKEY$ = CHR$(27)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta