Je to QBasic, jeho starší předchůdce, ten tady na Linuxu spustím a hodně věcí je v něm podobných. Loni jsme tu něco ve Small Basicu řešili, ale od té doby jsem to už všechno zapomněl, tak si to prostuduj ať se máš čeho chytit:
viewtopic.php?f=61&t=68258Základ programu bude stejný, jen to vykreslování proběhne jinak.
A koukni se do příručky, je docela slušně napsaná, jestli máš nějaké mezery, tak v ní najdeš všechno co potřebuješ:
http://download.microsoft.com/download/ ... c_Uvod.pdfhttp://download.microsoft.com/download/ ... 0Czech.pdfZvládáš použití cyklu FOR? Zbytek programu je už jen malá násobilka. Záleží akorát na tom jestli budeš chtít mít nějakou pevnou velikost okna a do něj přizpůsobovat kostky, nebo dovolit jen nějaký maximální počet pater té pyramidy, a nebo jestli budeš měnit velikost okna podle její výšky. Já v tom QBasicu to mám jednoduché, ten umí akorát 640x480, takže jsem si tolik vybírat nemohl
A přesný postup (program) pro tu první pyramidu je takhle:
Kód: Vybrat vše
SCREEN 12
INPUT "Pyramida - kolik pater? ", pater
sirkaplochy = 640
vyskaplochy = 480
sirkacihly = sirkaplochy / (pater * 2 - 1)
vyskacihly = vyskaplochy / pater
FOR i = 1 TO pater
pocatek = sirkacihly * (i - 1) - 1
FOR j = 1 TO (pater - i) * 2 + 1
x = j * sirkacihly + pocatek
y = vyskaplochy - i * vyskacihly
LINE (x, y)-(x - sirkacihly + 2, y + vyskacihly - 2), 4, BF
LINE (x, y)-(x - sirkacihly + 2, y + vyskacihly - 2), 7, B
NEXT j
NEXT i
WHILE INKEY$ = "": WEND
END
Z toho půjde ten tvůj úkol odvodit, jen se přidá pár příkazů navíc a použijí jiné funkce pro kreslení. To všechno je v tom loňském dotazu.