Binär rechnen & Ergebnis binär anzeigen

[Fuerchau]

Naja, dann will ich mal nicht so sein:

 
hbnddir('QC2LE') dftactgrp(*no) actgrp(*caller)

d strtol		pr			10I 0 extproc('strtol')
d nptr						  *   options(*string) value
d endptr						*   value
d base						10I 0 value

d itoa		  pr			  *   extproc('__itoa')
d ival						10I 0 value
d strptr						*   value 
d base						10I 0 value 

d MyInt		 s			 10I 0
d MyStr		 s			 34	inz('10010001')
d MyPtr		 s			   *

c/free
	MyInt = strtol(MyStr: %addr(MyPtr) :2) + 1;
	itoa(MyInt: %addr(MyStr): 2);
	MyStr = %subst(MyStr:1:%scan(x'00':MyStr)-1);
	return;
/end-free

Die Funktion "strtol" konvertiert einen String in einen Long, wobei als Basis 2 - 36 angegeben werden kann.
Die Funktion "itoa" macht das Ganze dann umgekehrt.

Die letzte Anweisung ist nur für das Entfernen des Nul-Zeichens.

[Rincewind]

Okay Okay :-)

Da lag wohl ein Missverständnis meinerseits vor...

Dachte du hättest einen 5-zeiler für das Binäre rechnen & anzeigen

Diese Art der Umsetzung in eine binäre Zahl habe ich auch selbst entwickeln können (schliesslich schimpft man sich ja selbst Programmierer).


@Fuerchau
Ich sehe immer mehr und mehr dass ich C lernen sollte... Ich werde deinen Sourcecode einfach mal so ausprobieren, wenn es funktioniert werde ich mich mal bemühen immer mehr und mehr von C zu begreifen, scheint ja doch recht praktisch zu sein.


Also:
THX @all


Gruss

Rince