Euclidische deling bij natuurlijke getallen:
Input: Deeltal
Processing: quotient en rest berekenen
output: quotient en rest. Als de deler nul is, verschijnt de vraag: " delen door nul?"
Ik heb geprobeerd om het programma te maken omdat ik het nodig heb, maar het probleem is dat ik niet kan programmeren met rekenmachines dus heb ik wat geklooid en ben ik dit uitgekomen:
Code: Selecteer alles
:ClrHome
:Input "Deeltal":,D
:Input "Deler":,E
:E=D/E ;) P
:Disp "Quotient="
:Output(6,11,round(P,1)) ;) Q
:Disp "Rest="
:Output(8,11,P-Q)
Hartelijk bedankt!!