Programmeren in BASIC/FOR ... NEXT

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%