W jaki sposób napisać program szyfrujący z binarnego do dziesiątkowego a z dziesiątkowego na litery, gdzie 0001 to 1 a jeden w alfabecie to A itd.

2007-01-07 12:51:14, username
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
program binary;
uses crt;
var cyfry : Array[1..16] of Integer;
x, i : Integer;
begin
repeat
writeln('Podaj liczbe calkowita typu integer');
readln(x)
until x >= 0;
for i:=1 to 16 do cyfry[i]:=0;
i:=1;
while x>0 do
begin
cyfry[17-i]:=x mod 2;
x:=x div 2;
inc(i)
end;
i:=1; while (cyfry[i]=0) and (i<16) do inc(i);
write('W zapisie dwojkowym = ');
while i<=16 do
begin
write(cyfry[i]);
inc(i);
end;
writeln;
readln
end.







Udziel odpowiedzi na powyższe pytanie...

Twoja odpowiedź:
 


Podpis: 

Wpisz wynik: trzy dodać pięć równa się (pisane cyfra)