Vc: Re: Prosba - dviout.
Datum: Thu, 16 Mar 2000 10:09:51 +0100 (MET)
Od: Oldrich Ulrych <ulrych@karlin.mff.cuni.cz>
Komu: kuben@scova.vabo.cz (Jaromir Kuben)

Bohuel doby pascalu jsou pro mne nenvratn pry, ale pesto se mi zd,
e podle souboru fordviou.pas je ada font, kter maj dekadick vsledek
zporn. Protoe jsem v tom nechtl mnoho hloubat, pipojuju nkolikadkov
perlovsk skript a jeho vpis, kter pevede Vmi uvdn dek:

>     Nap. csb10: O 26057517563 (v csb10.pl), D -1329684621 (ve

Z oktalovho na dekadick slo (po uren unsigned long int z oktalovho
se zporn udl dopotem do 2^32).

Hezk den peje
                Oldich Ulrych

#! /usr/local/bin/perl

$i = 0;
$s = "26057517563";
for ($j = 0; $j < length($s); $j++) {
  $i = 8 * $i + ord(substr($s,$j,1)) - ord('0');
  print "$s $i $j ",ord(substr($s,$j,1)) - ord('0'),"\n";
}
for ($k = 0, $j = 1; $k < 32; $k++) { $j *= 2; }
print "max cislo je $j, dopocet je ",$i-$j,"\n";

Vystup je:

26057517563 2 0 2
26057517563 22 1 6
26057517563 176 2 0
26057517563 1413 3 5
26057517563 11311 4 7
26057517563 90493 5 5
26057517563 723945 6 1
26057517563 5791567 7 7
26057517563 46332541 8 5
26057517563 370660334 9 6
26057517563 2965282675 10 3
max cislo je 4294967296, dopocet je -1329684621
