Program je vytvoreny v programe Lazarus preto ten typ int64;<\/p>\n
<\/p>\n
program prevod;
\nuses crt;
\nvar n,i,x,moc,pom,pom2,odloz:int64;
\nbegin
\nwriteln(‚zadaj cislo v 2 sustave‘);
\nreadln(n);<\/p>\n
\/\/z 2 cis sustavy do 10<\/p>\n
moc:=1;
\nx:=0;
\nwhile n>0 do
\nbegin
\nx:=x+(n mod 10)*moc;
\nmoc:=moc*2;
\nn:=n div 10;
\nend;
\nwrite(x,‘ ‚);<\/p>\n
\/\/ z 10 sustavy do dvojkovej
\nwriteln(‚zadaj v 10 sustave‘);
\nreadln(n);
\nodloz:=n;
\npom:=0;
\nwhile n>0 do
\nbegin
\npom:=pom*10+(n mod 2);
\nn:=n div 2;<\/p>\n
end;
\nwriteln(‚neotocene cislo ‚,pom);<\/p>\n
\/\/otocenie cisla
\nwhile pom>0 do
\nbegin
\npom2:=pom2*10+(pom mod 10);
\npom:=pom div 10;
\nend;
\n\/\/ak je delitelne 2 tak musime pridat jednu nulu na konci
\nif odloz mod 2 = 0 then pom2:=pom2*10;
\nwriteln(pom2);
\nreadln;
\nend.<\/p>\n
<\/p>\n
Autor: Timotej Str\u00e1nousk\u00fd<\/strong><\/p>\n program project_dvojkova_prevod; begin Program je vytvoreny v programe Lazarus preto ten typ int64; program prevod; uses crt; var n,i,x,moc,pom,pom2,odloz:int64; begin writeln(‚zadaj cislo v 2 sustave‘); readln(n); \/\/z 2 cis sustavy do 10 moc:=1; x:=0; while n>0 do begin x:=x+(n mod 10)*moc; moc:=moc*2; n:=n div 10; end; write(x,‘ ‚); \/\/ z 10 sustavy do dvojkovej writeln(‚zadaj v 10 … Pokra\u010dova\u0165 v \u010d\u00edtan\u00ed: Program na prevod z 2\u010dis. s\u00fastavy do 10\u010dis. s\u00fastavy a sp\u00e4\u0165<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[4],"tags":[],"class_list":["post-139","post","type-post","status-publish","format-standard","hentry","category-pascal"],"_links":{"self":[{"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/posts\/139","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=139"}],"version-history":[{"count":2,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/posts\/139\/revisions"}],"predecessor-version":[{"id":141,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=\/wp\/v2\/posts\/139\/revisions\/141"}],"wp:attachment":[{"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=139"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=139"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.legon.sk\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=139"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nuses crt;
\nvar a,i,a1,a2:int64;
\nm,j:integer;
\nlabel k ;
\nfunction mocnina_des(x:integer):int64;
\nvar i,n:integer;
\nv:int64;<\/p>\n
\nv:=1;
\nfor i:=x downto 1 do {funkcia ktora roby mocniny 10}
\nbegin
\nv:=v*10;
\nend;
\nmocnina_des:=v;
\nend;
\nbegin
\nwrite(‚Zadaj cislo ‚);
\nread(a);
\nwriteln;
\nwrite(‚Do akej ciselnej sustavy ‚);
\nread(m);
\nif m > 10 then begin clrscr; write(‚Taky mudri zas nesom!‘); goto k end; {To som ale vtipalek ;)}
\na2:=0;
\nj:=1;
\na1:=a1+(a mod m);
\na:=a div m;
\nwhile a <> 0 do
\nbegin {z desiatkovej do akejkolvek a1 je take ako ma byt}
\na1:=a1+((a mod m)*mocnina_des(j));
\na:=a div m;
\ninc(j);
\nend;
\nwriteln(‚prenene ‚,a1);
\nwhile a1<>0 do
\nbegin
\na2:=(a2*10)+(a1 mod 10); {otocenie cisla}
\na1:=a1 div 10;
\nend;
\nwriteln;
\nwhile a2 <> 0 do
\nbegin {naspat do desiatkovej}
\na:=(a*m)+(a2 mod 10);
\na2:=a2 div 10;
\nend;
\nwrite(‚znova premenene ‚,a);
\nk:
\nreadkey
\nend.<\/p>\n","protected":false},"excerpt":{"rendered":"