Program - Prevod desiatkového čísla do 2,8,16-sústavy :)

Program napísaný v jazyku Pascal.

program PrevodOk;

var
desiatkove,sustava,pom,pom3:integer;
podiel:real;
vysledok,pom2:string;

begin
writeln('Ake cislo chcete previest?');
readln (desiatkove);
pom3:=desiatkove;
writeln('Do akej sustavy?');
readln (sustava);
{writeln;}
repeat
podiel:=int(desiatkove/sustava);
pom:=round(desiatkove-(podiel*sustava));
{writeln(podiel,' ',pom);}
if (sustava=16) then begin
str(pom,pom2);
if pom=10 then pom2:='A';
if pom=11 then pom2:='B';
if pom=12 then pom2:='C';
if pom=13 then pom2:='D';
if pom=14 then pom2:='E';
if pom=15 then pom2:='F';
end;
if (sustava=8) or (sustava=2) then str(pom,pom2);
vysledok:=pom2+vysledok;
desiatkove:=round(podiel);
{writeln(desiatkove);}
until podiel=0;
writeln;
writeln ('Cislo ',pom3,' prevedene do ',sustava,'-sustavy = ',vysledok);
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Polynóm (mnohočlen) :)
• Program - Prvočísla :) →