Ich weiß nicht ob ich hier richtig bin!
ich muss Dezimalzahlen in Dualzahlen umwandeln!
Bsp: 83 in Dualzahl!
83:2=41 Rest1
41 :2=20 Rest1
20:2=10 Rest 1
10:2=5 Rest0
5:2=2 Rest1
2:2=1 Rest0
1:2=0 Rest1
Ergebnis wäre 1010011(2)
Wie kann ich das mit den Resten machen, ich weiß nicht wie ich die Reste Speichern kann in einer Variablen!
Und dann rückwärts ausgeben kann?
Wäre dankbar für jede Hilfe!
Sven

Hallo Sven,

#!/usr/bin/perl
use strict;

my $zahl=83;
my $x = $zahl;

my $ergebnis = '';
while($x){
$ergebnis = ($x & 1) . $ergebnis;
$x = $x >>1;
}
print $ergebnis, "\n";

Gruß Sabine

Danke das klappt ja super!
Was genau bedeutet bei dir das &1 im Quelltext?

Das ist ein bitweises UND

http://de.selfhtml.org/...atoren.htm#rangfolge

Es geht aber noch einfacher:

#!/usr/bin/perl
use strict;

my $zahl=83;

printf('%b', $zahl);

Gruß Sabine

Achso! Sag mal wie kann man das denn noch weiter aus Kommadezimale ausbauen?
Das hinter dem komma dasselbe passiert wie jetzt für ganze Zahlen auch?

So passiert vor und nach dem Komma das selbe:

#!/usr/bin/perl
use strict;

my $zahl=8.3;

printf('%b,%b', split(/\./, $zahl));

das ist der Hammer wie fit du in Perl bist!
Ich werde es gleich mal einbauen!
DANKE!!!

aber er gibt folgendes aus
44,5
%b%b 44,5

#!/usr/bin/perl
use strict;
print "Geben sie eine Zahl ein\n";
my $zahl=<STDIN>;
chomp ($zahl);
my %b;
print('%b%b', split(/\./, $zahl));

print ist nicht gleich printf

Wenn Du 44,5 eingeben möchtest, dann mußt Du 44.5 schreiben.
Als Dezimalzeichen ist nur der Punkt erlaubt.

#!/usr/bin/perl
use strict;
print "Geben sie eine Zahl ein:";
my $zahl=<STDIN>;
chomp ($zahl);
printf('%b,%b', split(/\./, $zahl));


Gruß Sabine

PS. Moment in Deinem Fall ist das ja kein Dezimalzeichen,
sondern nur irgendein Trennzeichen zwischen zwei Zahlen.

So kannst Du die beiden Zahlen mit Komma getrennt eintippen:

#!/usr/bin/perl
use strict;
print "Geben sie eine Zahl ein:";
my $zahl=<STDIN>;
chomp ($zahl);
printf('%b,%b', split(/\,/, $zahl));

Hallo!
Ich komme nicht weiter, dieses Perl ist kryptisch für mich!
Wie kann ich soetwas erzeugen mit Perl?
Ich gebe eine Zahl ein,er setzt mir eine 0 davor und sagt mich die Zehnerprotenz und dann teilt er in Zahl(M) und Exponent (E)
Z = 42.5456 --> 0.425456 * 10^2 --> M = 425456, E = 2