Informatika1/Feladatok2

Feladatok

Maple programozási feladat

rek:=proc(x::integer)
local s,i;
if x<3 then
 return x;
end if;
s:=0;
for i from 1 to x-1 do
 s:=s+rek(i);
end do:
s;
end proc;

Mi lesz rek(5) értéke?

Mi lesz az eredménye az alábbi kódnak?

select(i->isprime(i+2),[seq(i,i=1..20)]);

Mit ad vissza az alábbi program? l egy lista, amelyben sok 0 és 1 elem van (mindegyikből legalább 10).

k:=0;
for j from 1 to 3 do
 k:=k+1;
 while(l[k] <> 1) do
  k:=k+1;
 end do;
end do:
k;

Mit ad vissza az alábbi program?

lista:=[1,5,4,6,3,2,2];
k:=1;l:=lista[1];
for j from 2 to nops(lista) do
 if lista[j] > l then
  k:=j;
  l:=lista[j];
 end if;
end do;
k;