[GR] Hoe na te gaan of getal even of oneven is ?

[verwijderen_aub]

Kwou even een programmaatje voor mezelf schrijven voor de tentamens, want dat zou me veel tijd kunnen schelen..
Maar nu heb ik geen flauw benul hoe ik de GR na kan laten gaan of een bepaalde variabele een even of een oneven getal is ..

Iemand een idee ?

Ik heb ff een programmaatje geschreven waarmee je na kunt gaan of een getal even of oneven is. Hier is de code:

: 1->B
: 2->C
: Prompt A
: Lbl 1
: If A=B
: Goto 2
: If A=C
: Goto 3
: Goto 4
: Lbl 2
: Disp "Number is odd"
: Stop
: Lbl 3
: Disp "Number is even"
: Stop
: Lbl 4
: B+2->B
: C+2->C
: Goto 1

De nadelen van dit programmatje zijn dat het lang werkt als het getal groot is en dat alleen getallen boven de 0 gebruikt kunnen worden.
Waarschijnlijk is dit zeer primitief, maar ik heb geen informatica...
Groetjes,

DutchECK

[verwijderen_aub]

Pff .. ja .. dat gaat idd lang duren..

xal dér nog wel even wat functies inbouwen van

als <input> = groter dan 1.000.000 start met b = 1.000.000
c = 1.000.001

enz .. misschien dat dat nog iets helpt ..

maar het is eigenlijk gewoon bedoeld om gewone cijfers om te rekenen naar het binale stelsel dus zo groot zullen de cijfers niet worden.. !

Bedankt iig!

Als iemand anders nog een beter idee heeft, hoor ik het graag ..

r0bert schreef:
Pff .. ja .. dat gaat idd lang duren..

xal dér nog wel even wat functies inbouwen van

als <input> = groter dan 1.000.000 start met b = 1.000.000
c = 1.000.001

enz .. misschien dat dat nog iets helpt ..

maar het is eigenlijk gewoon bedoeld om gewone cijfers om te rekenen naar het binale stelsel dus zo groot zullen de cijfers niet worden.. !

Bedankt iig!

Als iemand anders nog een beter idee heeft, hoor ik het graag ..

1) Goed idee met die oplossing!
2) Graag gedaan

[Tampert]

hmm... ff denken dat is lang geleden maar volgens mij kan het best simpel
Ik heb een programma gemaakt... komt ie:

ClrHome
Input "NUMMER:",A
A/2 -> B
If B=int(B)
Then
Disp A,"IS EVEN"
Else
Disp A,"IS ONEVEN"
End

weinig tikwerk, wekt feilloos


------------------
jaja, ins buro|onzin4life|NIZ(groene olifant)|Nachtploeg|[SAS]Q is me man|MOEH!!|Sabje is me goeroe|PPOSTFU|kan ook leuk zijn

[Dit bericht is aangepast door Tampert (27-10-2001).]

Heel slim, kijken of een getal geheel is na het door 2 gedeeld te hebben. Betere methode.

[damaetas]

wij gebruiken voor even altijd '2N' en voor oneven '2N+1' toch?

[verwijderen_aub]

Tampert schreef:
hmm... ff denken dat is lang geleden maar volgens mij kan het best simpel
Ik heb een programma gemaakt... komt ie:

ClrHome
Input "NUMMER:",A
A/2 -> B
If B=int(B)
Then
Disp A,"IS EVEN"
Else
Disp A,"IS ONEVEN"
End

weinig tikwerk, wekt feilloos

Ja .. zowiets had ik ook al bedacht .. maar dan overdreven ingewikkeld .. iets van ..

? -> A
A : 2 -> B
(A - 0,1) : 2 -> C
if B != C
{even}
if B == C
{oneven}

zowiets .. gewoon even wat getypt om het idee weer te geven .. maar bedankt! jouw manier is nog stukken beter!

[Amiah]

Ik heb nor ergens een probramma liggen om binair, decimaal en hexadecimaal om te rekenen. Eén probleempje. Ik heb hem op papier, het is ongeveer 4 A4-tjes en mijn scanner is kapot......

[verwijderen_aub]

Ow .. naja, van binominaal had ik zelf al geschreven, en de rest hoefde ik niet te kennen/kunnen dus laat maar wezen ,.

kep zo'n programmatje.