Prog. na premenu cisla z dvojkovej sustavy(PASCAL)

mmarekk11

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

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

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)

Prog. na premenu cisla z dvojkovej sustavy(PASCAL)

Podobné témy

c++ prevod z desiatkovej do dvojkovej sustavy

Zistenie majiteľa tel. čísla (potrebujem zistiť majitela tel. čísla)

Rada s prog.

2 prog. v pascali

Ako nainštalovať prog v Linuxe?

aky prog. na upravu foto

Aky prog. na testovanie RAMiek?

Prog. na kopirovanie WEBU _PLS_

NB do 750-800e, hry+prog.

problem so spustenim prog. jazyka java

Pomoc pri vybere prog. jazyka na BP

Zmena poradia spustanych prog po starte winu

Windows XP ako preinstalovat bez zmazania niektorych prog.

Notas pre študenta na pracu s graf. prog.

php čísla

prenos cisla