Vysvetlite obmedzenia pre obecnú
úlohu.
program prevod_10_2;
var n,p,zv:word;
prevod:string;
begin
write('zadaj n: ');readln(n);
p:=n; zv:=0; prevod:='';
while p<>0do
begin
zv:=p mod 2;
if zv=0 then prevod:= '0'+prevod
else prevod:= '1'+prevod;
p:=p div 2;
end;
writeln(n, '(10)=',prevod,'(2)');
readln
end.







7, Zistite koľko opakovaní postupu výpočtu sa realizuje pri cykle na riešenie príkladu 6 .
program prevod_10_2;
var n,p,zv,s:word;
prevod:string;
begin
write('zadaj n: ');readln(n);
p:=n; zv:=0; s:=0; prevod:='';
while p<>0 do
begin
zv:=p mod 2;
if zv=0 then prevod:= '0'+prevod
else prevod:= '1'+prevod;
p:=p div 2;
s:=s+1;
end;
writeln(n, '(10)=',prevod,'(2)');
writeln('pocet opakovani bol:' s);
readln
end.

8, Zostavte program na výpočet a – faktoriálu.
program a_faktorial;
var i,a: integer;
fakt: longint;
begin
write('zadaj cislo faktorialu a:');
readln(a);
fakt:=1;
for i:=1 to a do
begin
fakt:=fakt*i;
end;
writeln(a, '! = ', fakt);
readln
end.

9, Preveďte stupne Farenheita na Celziové a opačne.
program prevod_celzius_farad;
var f,c: real;
j:retazec;
begin
write('zadaj jednotku ktoru chces previest: ');
readln(j);
if j=c then begin
writeln('prevod stupnov celzia na stupne farhenheita');
write('zadaj stupne celzia: ');
readln(c);
f:=c*(9/5)+32;
writeln(c, ' c= ', f: 5: 1, 'f');
end;
else begin
writeln('prevod stupnov farhenheita na stupne celzia');
write('zadaj stupne farhenheita: ');
readln(f);
c:=(f-32)*(5/9);
writeln(f, ' f= ', c: 5: 1, 'c');
readln;
end.

10, Zobrazte na obrazovke * v ľubovolnom tvare pomocou procedúry.
program stars;
var n,i,j :integer;
begin
writeln('napis pocet');
readln(n);
for i:= 1 to n do begin
for j:= 1 to i do write ('*');
writeln;
end;
for i:=n downto 1 do begin
for j:= 1 to i do write ('*');
writeln;
end;
readln;
end.

11, Zostavte program funkcie na zaokrúhlenie čísla.
program zaokruhlovanie;
var vysledok:real;
cislo:real;
desmiesta:integer;

function zaokruhli (cislo:real; desmiesta:integer):real;
var mocnina:longint;
i:integer;
begin
mocnina:=1;
for i:=1 to desmiesta do
mocnina:=mocnina*10;
zaokruhli:=round(cislo*mocnina)/mocnina;
end;
begin
writeln('zadaj cislo');
readln(cislo);
readln(desmiesta);
vysledok:=zaokruhli(cislo,desmiesta);
writeln(vysledok: 8:desmiesta);
readln;
end.

12, Zostavte program na krátenie zlomkov pomocou funkcie NSD.
program kratenie_zlomkov;
var a, b:integer;
function nsd(x, z:integer): integer; forward;
procedure kratzlomok(var citatel, menovatel:integer);
var pomoc:integer;

begin
pomoc:=nsd(citatel, menovatel);
citatel:=citateldiv pomoc;
menovatel:=menovatel div pomoc;
end;
function nsd;
var pomoc: integer;
begin
while x<>0 do
begin
pomoc:=x mod y;
x:=y;
y:=pomoc;
end;
nsd:=x;
end;

begin
readln(a, b);
kratzlomok(a, b);
writeln(a, b);
end.

13, Zostavte program na vypísanie prvočísiel do čísla A, použite algoritmus ES.
program prvocislo;
uses CRT;
const g=100;
type pole=array[1..g] of integer;
var n,i:integer;
b:pole;

procedure sito(n:integer;var b:pole);
var i,k:integer;
begin
for i:=2 to n do
b[i]:=i;

k:=2;
while k<=trunc (sqrt(n)) do begin
for i:=k+1 to N do if b[i] mod k =0 then b[i]:=0;
repeat
k:=k+1;
until (b[k]<>0);
end;
end;

begin
ClrScr;
write('zadaj n');
readln(n);
sito(n,b);
for i:=2 to n do if b[i]<>0 then write(b[i]:5);
readln;
end.

14, Zostavte program na zistenie výskytu znaku v určitom reťazci.
15, Zostavte program, ktorý určitý reťazec (meno) bude náhodne presúvať v náhodných
farbách po celej obrazovke.
16, Zostavte program na realizovanie detskej vyčítanky z určitého počtu detí (znakov).
program vycitanka;
var i, n, m, kde, p: word;
h: array [1..100] of word;
begin
write ('zadaj pocet hracov a ktory ide y kola von');
readln(m, n);
for i:=1 to n do h[i]:=i; h[n+1]:=0;
kde:=0;
for i:=1 to n do
begin
p:=0;
repeat
kde:=kde+1;
if h[kde]<>0 then p:=p+1;
if kde>n then kde:=0;
until p=m;
writeln (i, '. ty vypadava hrac cislo ', h[kde]);
h[kde]:=0;
end;
writeln;
readln
end.

17, Zostavte program HLAVA alebo OROL s vyhodnotením desiatich pokusov.
program hlava_a_orol;
var i, n, hod, hlava, orol: integer;
begin
write('zadaj pocet hodou mincou: '); readln(n);
randomize;
hlava:=0; orol:=0;
for i:=1 to n do
begin
hod:=random(2);
if hod=0 then begin write(' hlava '); hlava:=hlava+1; end
else begin write(' orol '); orol:=orol+1; end;
end;
writeln;
writeln('z ', n, ' hodov padla hlava ', hlava, '-krat, orol ', orol, '-krat');
readln
end.

18, Zostavte jednoduchý program na tému HÁDAJ ĆÍSLO.
program hadanie_cisla;
var i,n,cislo,pokus:integer;
uhadol:boolean;

begin
write('zadaj max moznu hodnotu.');
readln(n);
randomize;
cislo:=random(n+1);
uhadol:=false;
i:=0;
repeat
i:=i+1;
write ('zadaj cislo'); readln (pokus);
if pokus = cislo then uhadol:=true
else if pokus>cislo then writeln(pokus,'je vacie ako myslenecislo')
else writeln(pokus,'je mense cislo');
until uhadol;
writeln('hadane cislo',cislo,' si uhadol na', i,' pokus.');
readln;
end.

19, Majme jednorozmerné pole. Premiešajme ho tak, akoby to boli karty.
program KARTY;
uses CRT;
var a:array[1..20] of integer;
n,i,m,u,v:integer;

procedure vymena(u,v:integer);
var pomoc:integer;
begin
pomoc:=a[u];
a[u]:=a[v];
a[v]:=pomoc;
end;

begin
ClrScr;
writeln('Zadaj pocet prvkov pola');
readln(n);
for i:=1 to n do begin
writeln(i,'.