Prog. na premenu cisla z dvojkovej sustavy(PASCAL)

mmarekk11 · Napísal **mmarekk11**: 07.04.2008 22:16

Na maturach budeme mat prikald na premenu cisla z dvojkovej sustavy do desiatkovej. Mam ten program od profky ale vobec mu nechapem.Tu je cast programu kde sa robi prevod:

Kód:

begin
   write('Zadaj cislo v dvojkovej sustave:');
   readln(C2);
   d:=length(C2);
   C10:=0;
   for i:=1 to d do if C2[i]='0' then C10:=2*C10
                                 else C10:=2*C10+1;
   writeln('Cislo ',C2,' v dvojkovej je ',C10,' v desiatkovej');
 end;

Ja neviem aky postup to tam pouzivaju.Myslel som ze by sa to dalo previest tak ako sa to robi aj normalne napr. cislo 1011 = 1*2na3 + 0*2na2 + 1*2na1 + 1*2na0 .Ale neviem ako v programe mam spravit aby sa tie mocniny zvysovali. Viem len SQR co je na druhu

Ivan11114 · Napísal **Ivan11114**: 08.04.2008 1:42

Funkcia na n-tu mocninu cisla:

Kód:

function mocnina(i,n:integer):integer;
begin
    if n=1 then mocnina:=i
        else mocnina:=i*mocnina(i,n-1);
end;

juho · Napísal **juho**: 08.04.2008 13:26

ten tvoj priklad je obrateny prevod cisla z desiatkovej sustavy do dvojkovej, teda ak mas cislo 10, tak ho delis dvomi a zapisujes zvysok a vysledok je potom prevratena postupnost zvyskov.

Kód:

10 : 2 = 5 : 2 = 2 :2 = 1 : 2 = 0
 zv. 0   zv. 1   zv. 0   zv.1 

=(obratena postupnost zvyskov)> 1 0 1 0
a ked chces prevod z dvojkovej do desiatkovej tak ten cely cyklus robis odzadu:

Kód:

0 * 2 = 0 + zv.1 = 1 * 2 + zv.0 = 2 * 2 + zv.1 = 5 * 2 + zv.0 == 10
               1              0              1              0 == 10

Prog. na premenu cisla z dvojkovej sustavy(PASCAL)

Podobné témy