Outline · Standard · [ Linear+ ] Pretvaranje decimalnog zapisa u binarni, Pascal

[Laza_91]

E jel moze neko da mi napise funkciju za prevodjenje broja iz dekadnog u binarni brojni sistem...
Do sutra...Ako je moguce

[pyost]

Pascal?

[Laza_91]

aha

[pyost]

CODE

function decBin(broj:integer):integer;
var
  vrednost,mnozilac: integer;
begin
    vrednost:=0;
    mnozilac:=1;

    while broj<>0 do
    begin
         vrednost:=vrednost+(broj mod 2)*mnozilac;
         broj:=broj div 2;
         mnozilac:=mnozilac*10;
    end;

    decBin:=vrednost;
end;

[Laza_91]

e hvala

[pyost]

No problem

[Puzzler]

C C C Lazo, radiš seminarski u poslednji, ama baš poslednji čas...

[username]

(da ne otvaram novi topic samo zbog ovoga)
jel moze neko da mi napise program u pascalu kako da od broja n izmenim redosled cifara tako da dobijem najvisi i najmanji broj?
edit:napravim var-ove koji broje nule,jedinice...,devetke i onda tako preraspodelim?

This post has been edited by username: Feb 17 2008, 06:32 PM

[username]

CODE

program MinBC;
var n,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,t:integer;
begin
readln(n);
t:=1;
while not n div t <10 do
t:=t*10;
a0:=0;
a1:=0;
a2:=0;
a3:=0;
a4:=0;
a5:=0;
a6:=0;
a7:=0;
a8:=0;
a9:=0;
repeat
case n mod 10 of
0: a0:=a0+1;
1: a1:=a1+1;
2: a2:=a2+1;
3: a3:=a3+1;
4: a4:=a4+1;
5: a5:=a5+1;
6: a6:=a6+1;
7: a7:=a7+1;
8: a8:=a8+1;
9: a9:=a9+1
end;
n:=n div 10;
until n=0;
while a9>0 do
begin
n:=n+9*t;
a9:=a9-1;
t:=t div 10;
end;
while a8>0 do
begin
n:=n+8*t;
a8:=a8-1;
t:=t div 10;
end;
while a7>0 do
begin
n:=n+7*t;
a7:=a7-1;
t:=t div 10;
end;
while a6>0 do
begin
n:=n+6*t;
a6:=a6-1;
t:=t div 10;
end;
while a5>0 do
begin
n:=n+5*t;
a5:=a5-1;
t:=t div 10;
end;
while a4>0 do
begin
n:=n+4*t;
a4:=a4-1;
t:=t div 10;
end;
while a3>0 do
begin
n:=n+3*t;
a3:=a3-1;
t:=t div 10;
end;
while a2>0 do
begin
n:=n+2*t;
a2:=a2-1;
t:=t div 10;
end;
while a1>0 do
begin
n:=n+1*t;
a1:=a1-1;
t:=t div 10;
end;
writeln(n);
readln;
end.

This post has been edited by username: Feb 17 2008, 07:19 PM

[pyost]

Mnogo je to zakomplikovano... Jeste li radili nizove?

[username]

nismo, evo malo sam ispravio, sad gasi program iako sam stavio readln

[pyost]

E pa ako ne radite sa nizovima, nema svrhe pisati ovako glup program...

[maxydelanoche]

Hahahahhaha... Ovo me podseca na to kad sam u osmom neki zadatak pokusala da resim bez matrica. Imala sam osam nizova sa po osam clanova. Kad sam shvatila koliko mi linija krajnje perverznog koda treba, ukljucila sam help i nasla kako se kreiraju matrice