Programmeren in BASIC/FOR ... NEXT

Uit Wikibooks
Naar navigatie springen Naar zoeken springen

Programmeren in BASIC

Er zijn verschillende manieren om in Basic bepaalde berekeningen meerdere malen uit te voeren. Het doel van lussen in een programmeertaal is veelal om grote berekeningen of eentonige taken te laten automatiseren. Hieronder volgt een voorbeeld.

Stel, we willen de lengte van een rol papier weten. De rol papier bestaat uit meerdere wikkels en heeft een grote diameter. Het zou onmenselijk zijn om elke keer de omtrek te meten als we een wikkel hebben afgewikkeld. Hieronder staat een code waarmee dit makkelijk berekend kan worden.

Hieronder worden de afmetingen gedefineerd van de rol papier in milimeters.
De diameter van de rol is 2000mm en de dikte van het papier is 1mm.
diameter% = 2000
dikte% = 1
wikkels% = diameter% / dikte% / 2
Hieronder wordt de lus gestart, de omtrek wordt berekend door Pi(3,14) te vermenigvuldigen met de diameter.
De lus wordt onderbroken als i% gelijk is aan het aantal wikkels, er moet natuurlijk voor elke wikkel de diameter
berekend worden. Deze worden bij elkaar opgeteld zodat we later de totale lengte weten.
FOR i% = 1 TO wikkels%
lengte% = lengte% + 3,14 * diameter%
diameter% = diameter - dikte%
NEXT i%
Nadat de lengte is berekend en de lus zichzelf heeft beëindigd kunnen we de berekende lengte op het scherm laten zien.
PRINT "De rollengte: ", lengte%
Informatie afkomstig van http://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.