Vytvorené: 22. 10. 2013 Tlačiť
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.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |