

Díky ještě jednou moc. Jestli chcete ještě něco napsat, určitě napište, ale ráda bych pak tenhle dotaz smazala, aby si ho můj učitel nenašel. Z toho bych asi měla nějaké problémy a 5!

Kód: Vybrat vše
SCREEN 12
pix = 40
LOCATE 30, 1
INPUT "Zadej velikost sachovnice: ", strana
LINE (0, 0)-((strana + 2) * pix, (strana + 2) * pix), 1, BF
FOR radek = 1 TO strana
FOR sloupec = 1 TO strana
IF ((radek MOD 2) + (sloupec MOD 2)) - 1 THEN
COLOR 15
ELSE
COLOR 0
END IF
LINE (pix * radek, pix * sloupec)-(pix * (radek + 1) - 1, pix * (sloupec + 1) - 1), , BF
NEXT sloupec
NEXT radek
SLEEP
Zpět na “Programování a tvorba webu”
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti