Informatika1/Feladatok2

A MathWikiből

(Változatok közti eltérés)

A lap jelenlegi, 2007. október 9., 14:58-kori változata

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 8 és 9 elem van (mindegyikből legalább 10).

k:=0;
for j from 1 to 3 do
 k:=k+1;
 while(L[k] <> 8) 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;q:=lista[1];
for j from 2 to nops(lista) do
 if lista[j] > q then
  k:=j;
  q:=lista[j];
 end if;
end do;
k;

@@ 22. sor: / 22. sor: @@
   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).
+Mit ad vissza az alábbi program? L egy lista, amelyben sok 8 és 9 elem van (mindegyikből legalább 10).
   k:=0;
   for j from 1 to 3 do
    k:=k+1;
-   while(l[k] <> 1) do
+   while(L[k] <> 8) do
     k:=k+1;
    end do;
@@ 34. sor: / 34. sor: @@
 Mit ad vissza az alábbi program?
   lista:=[1,5,4,6,3,2,2];
-  k:=1;l:=lista[1];
+  k:=1;q:=lista[1];
   for j from 2 to nops(lista) do
-   if lista[j] > l then
+   if lista[j] > q then
     k:=j;
-    l:=lista[j];
+    q:=lista[j];
    end if;
   end do;
   k;