Iedomājos ka kādam šo ievajadzētos. Man stundā šo mācīja. Ir arī kā pārtaisa bināro uz Decimālo. Un šis ir Decimālais uz bināro. bet varbūt arī nevajag. Just in case...
program Dec_to_bin;
var x,n,a: integer;
var y: array [1..200] of integer;
begin
writeln('ievadi skaitli dec kodā!');
readln(x);
n:=0;
while not x<=0 do
begin
inc(n);
y[n]:= x mod 2;
x:=x div 2;
if(x=0) then break;
end;
for a:= n downto 1 do
begin
write(y[a]);
end;
readln;
end.
Programmēšana
+1Dawgora 28.03.2012. 20:49 teica:
- +1
No binārā uz integer.
program bin_to_int;
var c: string;
var n,i,e,sk,f,summa: integer;
label a;
begin
a:writeln('ievadi kādu skaitli binarajā kodā!');
readln(c); //nolasa datus
n:=length(c); //nosaka str garumu
f:=0;
for e:= 1 to n do
begin
if (ord(c[e])-48>1) or (ord(c[e])-48<0) then
begin
writeln('Nav ievadīts binārais kods');
goto a;
end;
end;
for i:= n downto 1 do
begin
inc(f);
sk:=ord(c[i])-48;
for e:= 1 to f-1 do
begin
sk:=sk*2; //pataisa skaitli f pakāpē.
end;
summa:=summa+sk; //pieskaita summai.
end;
writeln(summa);
readln;
end. - +1
Program dec_to_hex;
var c,b: longint;
var e: string;
function hex(x:longint):string; {dec uz hex funkcija}
var z,b: longint;
var a:array[0..15] of char; //vertibas hex kodam
var output1,output2:string;
begin
b:=0;
z:=1;
output1:=' ';
output2:=' ';
for c:= 48 to 70 do
begin
if (c<58 ) or (c>64) then
begin
a[b]:=chr(c);
inc(b);
end else continue;
end;
repeat
output1[z]:=a[x mod 16];
x:=x div 16;
inc(z,1);
until x=0;
b:=1;
for x:= z-1 downto 1 do
begin
output2[b]:=output1[x];
inc(b);
end;
hex:=output2;
end;
begin
write('ievadiet nenegatīvu dec skaitli ');
readln(b);
e:=hex(b);
writeln(e);
readln;
end.
Kādam viņš iet?
Un kāds negrib izskaidrot, kāpēc ja gribu funkcijā ielikt vēl vienu masīvu, tā vērtības ir kaut kādas šķībās, un kaut vai vēlies mainīt tās, tās nemainās?
un vēl tas prikols par output1 un 2- cik atstarpju tik simbolu var būt. weird. Moš mans paskāls jūdzas. 
- 0
Hex to bin https://pastebin.com/BegLFmzc
Dec to Hex https://pastebin.com/uTqQYpEG
LKD https://pastebin.com/JmcYmEYL
Bin to Dec https://pastebin.com/6u460bQs
Dec to bin https://pastebin.com/ujpYmVhm
P.S. Hex to Bin vakar taisīju, nav bijis laiks pārtaisīt viņu labāk, bet pašlaik funkcionē tīri ok. Saprot kurus skaitļus var ievietot un kurus nē. Laikam.
un vēl tas prikols par output1 un 2- cik atstarpju tik simbolu var būt. weird. Moš mans paskāls jūdzas.
