- Je daný program:
var i,j,N:integer;
begin
readln(N);
i:=1; j:=1;
while i<=N do
begin
j:=j+1;
if j>N-i then
begin
i:=i+1; j:=1
end;
pip;
end;
end.
- Koľkokrát bude volaná procedúra pip pre N=15?
- Pre akú hodnotu N bude procedúra pip volaná práve 379-krát?
- Daná je časť programu, v ktorom sú všetky premenné celočíselné:
readln(N);
x:=1; z:=1;
for i:=1 to N-1 do z:=z*2;
for i:=1 to N-2 do
begin
y:=2*x;
for j:=i+1 to N-1 do
begin
writeln(x+y+z);
y:=y*2
end;
x:=x*2
end;
- Zistite, aké hodnoty sa vypíšu pre N=5.
- Zistite, pre aké N sa medzi vypísanými číslami objaví číslo 304.
Pomôcka: Skúste všetky výpočty robiť v 2-ovej sústave.
- V N-prvkovom celočíselnom poli p je veľké číslo uložené po cifrách (p[1] obsahuje cifru najvyššieho rádu). Nasledujúca časť programu ho vynásobí číslom 2. Doplňte chýbajúce časti programu!
j:=0;
for i:=N downto 1 do
begin
j:= ;
p[i]:=j mod 10;
j:= ;
end;
- Dané je N-prvkové pole celých čísel (N je párne), v ktorom je polovica prvkov párnych a zvyšné sú nepárne čísla. Napíšte program (Pascal, Basic, C), ktorý vypíše prvky tohoto poľa v dvoch stĺpcoch vedľa seba tak, že v prvom riadku v prvom stĺpci je prvé nepárne číslo, v 2. stĺpci je prvé párne. V druhom riadku je druhé nepárne a druhé párne, atď.
Napr. pre vstupné 8-prvkové pole 18 23 25 7 4 27 50 12 by mal program vypísať
23 18
25 4
7 50
27 12
Nepoužívajte príkazy na adresovanie kurzora (napr. GotoXY, PRINT AT a pod.), lebo predpokladáme, že výstup by mohol ísť na tlačiareň. Program nemusí obsahovať načítanie tohoto poľa.