Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
[Opgelost] Pascal - Bepalen of een nummer Even of Oneven is ...
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Deelgenomen: 12 jaar geleden
Berichten: 2864
Topic starter
1 december 2013 7:56
Om te bepalen of een nummer even of oneven is, kun je natuurlijk de Odd() functie die in veel Pascal varianten gevonden kan worden (b.v. in Lazarus, Turbo Pascal en Delphi vindt je de Odd() functie in de System unit).
Maar de mod or modulus operator kan net zo eenvoudig werken zonder een extra unit te gebruiken.
De mod operator (je kunt modules ook in andere programmeertalen vinden, b.v. %, mod, en rem of remainder zijn veel gebruikt) geeft de deel rest terug van een deling.
B.v. 7 mod 2 geeft 1 als antwoord, omdat 7/2 = 3 met een deel rest van 1 ... (3*2=6)
if MyNumber mod 2 = 0 then
... // Even nummer
else
... // Oneven nummer
