Vizualizácia rekurzívnych algoritmov

Autotest

Nepriama rekurzia je, ak:
- A volá B áno nie
- A volá B a B volá C áno nie
- A volá B a B volá A áno nie
- D volá A, C volá F, A volá C, F volá D áno nie
Rozhodnite, v ktorých dejoch sa použiť nepriama rekurzia
- Striedanie dňa a noci áno nie
- Sedenie a státie
  áno nie
- Východ a západ Slnka áno nie
- Školský rok a letné prázdniny áno nie
- Obiehanie Zeme okolo Slnka áno nie
- Slnečný deň a daždivý deň áno nie

Rozhodnite, pomocou ktorého príkazu v hlavnom programe sa zavolá procedúra, na vykreslenie daného obrázka.

K1 100	K2 100
K1 100; K2 100	K2 100 K1 100

Sú dané dve procedúry X a Y deklarované takto:

procedure X(i:integer; n:char); forward;
procedure Y(i:integer; n:char);
begin
	write(n);
	X(i-1,n);
end;

procedure X(i:integer; n:char);
begin
	if i>0 then
	begin
		Y(i,n);
		write(n);
	end
	else write('c');
end;

V hlavnom programe je príkaz X(3,a). Čo bude výsledkom volania procedúry X(3,a)?

aaa

aaac

aaacaaa

caaa

Doplňte deklaračnú časť tohto programu tak, aby po zavolaní procedúry príkazom

if 10 mod 2=0 then parne(10) else neparne(10)

sme do dostali na výstupe výpis čísel od 10 po 1.

Rozhodnite, čo robí daný program

viem Y :i :a :n

viem X :i :a :n

do :a
vl 360*(:i-1)/:i
X :i :a :n-1

ak :n >0

[ opakuj 3
[do :a vl 120 ]
Y :i :a :n
]

koniec

Rozhodnite, čo robí daný program:

procedure X(i:integer; a,b:string); forward;

procedure Y(i:integer;a,b:string); begin
	write(a); X(i-1,a,b) ;
end; procedure X(i:integer;a,b:string); begin
	if i>0 then begin
		Y(i,a,b); write(b);
	end;
end;

	vypíše reťazec v tvare aⁱb ⁱ			vypíše raťazec v tvare (ab) ⁱ
	vypíše raťazec v tvare aⁱb			vypíše raťazec v tvare (ba) ⁱ

Rozhodnite, či skončí toto rekurzívne volanie x 50.

áno

nie

Doplňte chýbajúce príkazy tak, aby sa pomocou týchto procedúr dal vykresliť útvar na obrázku.