Programma om de eflproef uit te voeren op het rekeningnummer.

• 

  Peerke

  09-07-2007 17:59

  Disp “GEEF REKNR”

  Input R

  1+iPart(log(R))→A

  ClrList L

  1→I

  Lbl 1

  iPart(10^(A+1-I)fPart(R/10^(A+1-I))/10^(A-I))→L(I)

  I+1→I

  If I÷A

  Goto 1

  1→I

  0→S

  Lbl 2

  L(I)(A+1-I)+S→S

  I+1→I

  If I÷A

  Goto 2

  Disp S

  If fPart(S/11)=0

  Then

  Disp “CORRECT NR”

  Else

  Disp “NIET CORRECT”

  Rapporteren
• 

  FrankoPaulista

  10-07-2007 15:24

  eeh gwbasic???

  Rapporteren
• 

  Peerke

  13-07-2007 14:57

  TI-84, het lijkt op Basic.

  Rapporteren
• 

  Pebbles

  26-07-2007 18:24

  Deze is makkelijker denk ik http://rudhar.com/cgi-bin/chkdigit.cgi

  Rapporteren