Paritätsprüfung

 

Immer wenn Daten über eine größere Strecke gesendet werden sollen, gibt es ein Problem. Sind die gesendeten Daten richtig am Empfänger angekommen? Eine Möglichkeit, die empfangenen Daten zu testen, ist die Paritätsprüfung.

 

Die nachfolgende kleine Routine ermittelt für ein eingegebenes Wort die entsprechende Parität. Soll nur ein Byte getestet werden, braucht man natürlich nur 8 Bit testen. Dies erreicht man einfach durch ändern der FOR-Schleife.

 

  10 DIM VA,PAR,B
20 INPUT "Wert : ",VA
30 PAR=FALSE:FOR B=0 TO 15:PAR=PAR XOR BIT(VA,B):NEXT
40 IF PAR THEN PRINT "Ungerade" ELSE PRINT "Gerade"

 

 

Zurück zur Startseite          Zurück zur Auswahl