38497

Nazwisko:

Imię:

Uwaga w calvm tekście dla uproszczenia notacji zakładamy istnienie poniższych deklaracji typów oraz zmiennych globalnych: type

wylicz = (pn, wt, sr, czw, pt, so, nic); tablica = array |1..10| of intcgcr; var

il, 12; intcgcr;    rl, r2: rcal;    bl, b2: boolcan; wrl,wr2:

^Areal;

Co wypiszą na ekranie poniższe fragmenty programów ?

Każda poprawna odpowiedz 2pnnkty, brak odpowiedzi 0punktów, odpowiedź błędna -2 punkiV

procedurę p(n:integer); begin il n dlv 8 <> 0 then p(n div 8); \vrite(n mod 8) end; begin il := 139; P(il) end.	function f(n,k: intcgcr):intcgcr; begin if k = 0 then f := 0 cl sc ifk= 1 then f := n nioil 10 else f := f(n tllv 10, k-1) end; begin svrite(f(28459,3)) end.	function f(var \v:wylicz):integer; var tnip:integer; begin tmp := (ord(w)+3) mod 2; w := succ(w); f := tmp; end; begin wl := czw; il := f(wl); writeln('il:', il, 'wl',ord(wl)); end.
		il:	wl:

for il := 1 to 10 do write(", il mod 3+1);	cl for il := 1 to 3 do svrite(cl:il);	ll:=2 0RS; i2:=3ANDll; writeln('suma:', il+i2);

Jak zapisać warunek: A jest większe niż B i conajmniej jedna z tych liczb iest ujemna	Podaj wartość wyrażenia round(99.5)+10*10+5/2	Sprawdź, czy poniższy ciąg jest kopceni a* = [67,6,18,94,42,12,55,44]

W poniższym teście poprawne odpowiedzi proszę zaznaczyć znakiem “+", niepoprawne znakiem

il	= 2 * il;	il := wil^A;	write(ord(rl));	wl := il;	read(wrl);
rl	= rl * rl;	il -rl;	wiite(ord(wl));	il :=ord(wl);	read(wrl^A);
il	= rl * il;	wil^A := rl;	write(ord(bl));	wl := ord (il);	read(bl);
rl	= rl * il;	wrl^A:=il;	write(bl);	write(wl);	tl [2] := wil^A;
il	= sqr(il);	cl :=clir(rl);	write(tl[2]);	write(ord(wl);	tl[2] := wrl^A;
rl:=sqrt(wrl^A);		rl :=ord(il);	write(tl);	bl:=ord(pn);	tl[7]:=ord(bl);