POTPROGRAM (SUB) |
||
Uporaba potprograma uvelike pridonosi jasnoći samog programa, a i lakšoj izvedbi.
|
||
'Izracunavanje kvadrata brojeve pomocu potprograma DECLARE SUB kvadrat (broj, rezultat) CLS INPUT "Upiši broj"; broj CALL kvadrat(broj, rezultat) PRINT "Broj: "; broj, "Kvadrat broja: "; rezultat SUB kvadrat (broj, rezultat) rezultat = broj * broj END SUB |