chciaem napisac program :"zbior Cantora",napisalem go ale chcilbym zastosowac w nim petle,bo zobilem go tak :
Kod: Zaznacz cały
CLS
PRINT ""
PRINT ""
PRINT ""
PRINT "*****************************************************"
PRINT ""
PRINT " Zbior Cantora "
PRINT ""
PRINT "*****************************************************"
PRINT ""
PRINT " wykona: "
PRINT " Sawomir Krzywicki "
PRINT ""
PRINT " Instytut Politechniczny - PWSZ "
PRINT " BIEM - zaoczne "
PRINT ""
PRINT "*****************************************************"
PRINT ""
PRINT ""
INPUT "nacisnij enter", g$
CLS
SCREEN 12
REM pierwsa rzad
LINE (640, 0)-(10, 0)
REM druga rzad
LINE (10, 10)-(250, 10)
LINE (350, 10)-(640, 10)
REM trzecia rzad
LINE (10, 20)-(100, 20)
LINE (150, 20)-(250, 20)
LINE (350, 20)-(450, 20)
LINE (550, 20)-(640, 20)
REM czwarty rzad
LINE (10, 30)-(45, 30)
LINE (65, 30)-(100, 30)
LINE (150, 30)-(190, 30)
LINE (210, 30)-(250, 30)
LINE (350, 30)-(390, 30)
LINE (410, 30)-(450, 30)
LINE (550, 30)-(590, 30)
LINE (610, 30)-(640, 30)
ENDtez mam do napisania jeden programik ale nie moge sobie poradzic zanim dane w zalaczniki
prosze o pomoc
z gory dzieki 
---------
Treść programów umieszczamy w tagach CODE. ZbeeGin
[ Dodano: 2008-01-28, 10:11 ]
slawas pisze:czesc jestem poczatkujacy w programowaniu
chciaem napisac program :"zbior Cantora",napisalem go ale chcilbym zastosowac w nim petle,bo zobilem go tak :-----------------------------------------Kod: Zaznacz cały
CLS PRINT "" PRINT "" PRINT "" PRINT "*****************************************************" PRINT "" PRINT " Zbior Cantora " PRINT "" PRINT "*****************************************************" PRINT "" PRINT " wykona: " PRINT " Sawomir Krzywicki " PRINT "" PRINT " Instytut Politechniczny - PWSZ " PRINT " BIEM - zaoczne " PRINT "" PRINT "*****************************************************" PRINT "" PRINT "" INPUT "nacisnij enter", g$ CLS SCREEN 12 REM pierwsa rzad LINE (640, 0)-(10, 0) REM druga rzad LINE (10, 10)-(250, 10) LINE (350, 10)-(640, 10) REM trzecia rzad LINE (10, 20)-(100, 20) LINE (150, 20)-(250, 20) LINE (350, 20)-(450, 20) LINE (550, 20)-(640, 20) REM czwarty rzad LINE (10, 30)-(45, 30) LINE (65, 30)-(100, 30) LINE (150, 30)-(190, 30) LINE (210, 30)-(250, 30) LINE (350, 30)-(390, 30) LINE (410, 30)-(450, 30) LINE (550, 30)-(590, 30) LINE (610, 30)-(640, 30) END
tez mam do napisania jeden programik ale nie moge sobie poradzic zanim dane w zalaczniki
prosze o pomoc
bede wdzieczny $$ za napisanie tego rogramu co wzalaczniku
---------
Treść programów umieszczamy w tagach CODE. ZbeeGin
[ Dodano: 2008-01-30, 23:31 ]
PROSZE O MALA POMOC!!!napisalem kawalek programu zalaczonego w zalaczniku,ale stanalem w jednym miejscu niewiem jak przedluzyc "belke" przechodzace przez kolko co wynka niemoge dokanczyc programu, OT CO NAPISALEM:
REM dane
pi = 3.141592654#
yk = 250 'wspol. okregu
xk2 = 250 'wspol. okregu
r = 50 'promien okregu
REM program
CLS
SCREEN 12
FOR i = 1 TO 20
t = (d + i)
x2 = INT(320 - 30 * COS(t))
y2 = INT(yk - 30 * SIN(t))
FOR j = 1 TO 1
x = INT(xk1 - r * COS(t + j))
y = INT(250 + r * SIN(t + j))
REM przeglub
CIRCLE (100, 250), 2, 7
LINE (100, 250)-(90, 240), 7
LINE (100, 250)-(90, 260), 7
LINE (90, 220)-(90, 280), 7
LINE (80, 220)-(90, 230), 7
LINE (80, 230)-(90, 240), 7
LINE (80, 240)-(90, 250), 7
LINE (80, 250)-(90, 260), 7
LINE (80, 260)-(90, 270), 7
LINE (80, 270)-(90, 280), 7
REM podpora
LINE (190, 450)-(310, 450), 7
LINE (190, 450)-(195, 435), 7
LINE (310, 450)-(305, 435), 7
REM okrag
CIRCLE (xk2, yk), r
x2 = INT(xk2 + r * COS(t + j))
LINE (x2, y)-(x2, y)
LINE (100, xk2)-(x2, y), 7
REM kuleczko m
CIRCLE (x2, y), 5, 7
NEXT j
REM zwolnienie
FOR k = 1 TO 20000 'zwolnienie
x2 = x2 ^ (2 / 3)
NEXT k
CLS
NEXT i
END