Zadaci za samostalni rad, 3. vježbe

Informacija

Svaki student može na vježbama dobiti točno jedan zadatak i treba ga SAMOSTALNO i u potpunosti ispravno riješiti. Za svaki riješeni zadatak student dobiva 1 bod. 

Na kraju semestra za studenta koji ima 3 ili više bodova smatrati ćemo da je kolokvirao programiranje.

Student koji je na gornji način kolokvirao programiranje mora zadovoljiti i uvjete o prisustvovanju na nastavi da bi dobio potpis iz ovog predmeta.

Za jednim računalom, zbog zahtjeva samostalnosti, tokom izrade ovih zadatak može sjediti samo jedan student.

1. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa zbroj negativnih elemenata liste. 

Varijablu suma u koju će se "spremiti" zbroj elemenata treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog31[x_List] := Module[{m, suma=0}, 
m=Length[x];
Do[
If[x[[i]]<0,suma = suma+x[[i]]; ];
,
{i, 1, m}
];
Return[suma];
];

testiranje

prog31[{ 2, -5, -3, 4, 5}]

2. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa njen maksimalni elemenat. 

Varijablu max u koju će se "spremiti" maksimum  treba na početku staviti jednaku -Infinity. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog32[x_List] := Module[{m, max=-Infinity}, 
m=Length[x];
Do[
If[x[[i]]>max, max=x[[i]]; ];
,
{i, 1, m}
];
Return[max];
];

testiranje

prog32[{ 2, -5, -3, 4, 5}]

3. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa koliko ta lista ima pozitivnih elemenata.

Varijablu broj u koju će se "spremiti" broj pozitivnih  elemenata treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

zad33[x_List] := Module[{m, broj= 0}, 
m=Length[x];
Do[
If[x[[i]]>0, broj=broj + 1; ];
,
{i, 1, m}
];
Return[broj];
];

testiranje

zad33[{ 2, -5, -3, 4, 5}]

4. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa koliko ta lista ima elemenata  većih od 2.

Varijablu broj u koju će se "spremiti" broj elemenata većih od 2  treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog34[x_List] := Module[{m, broj= 0}, 
m=Length[x];
Do[
If[x[[i]]> 2, broj=broj + 1; ];
,
{i, 1, m}
];
Return[broj];
];

testiranje

prog34[{ 2, -5, -3, 4, 5}]

5. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa koliko ta lista ima elemenata čiji su kvadrati manji od 10.

Varijablu broj u koju će se "spremiti" broj  elemenata čiji su kvadrati manji od 10 treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog35[x_List] := Module[{m, broj= 0}, 
m=Length[x];
Do[
If[x[[i]]^2<10, broj=broj + 1; ];
,
{i, 1, m}
];
Return[broj];
];

testiranje

prog35[{ 2, -5, -3, 4, 5,1}]

6. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa zbroj kvadrata elemenata  elemenata koji su veći od 1.

Varijablu suma u koju će se "spremiti" sumu kvadrata elemenata većih od 1  treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog36[x_List] := Module[{m, suma= 0}, 
m=Length[x];
Do[
If[x[[i]]> 1, suma=suma + x[[i]]^2; ];
,
{i, 1, m}
];
Return[suma];
];

testiranje

prog36[{ 2, -5, -3, 4, 5, 1}]

7. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa zbroj kvadrata negativnih elemenata.

Varijablu zbroj u koju će se "spremiti" zbroj kvadrata negativnih elemenata treba na početku staviti jednaku 0. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog37[x_List] := Module[{m, zbroj= 0}, 
m=Length[x];
Do[
If[x[[i]]< 0, zbroj=zbroj + x[[i]]^2; ];
,
{i, 1, m}
];
Return[zbroj];
];

testiranje

prog37[{ 2, -5, -3, 4, 5, 1}]

8. zadatak

Napišite program koji ima za argument jednodimenzionalnu listu i računa umnožak kvadrata elemenata koji su veći od 3.

Varijablu umnozak u koju će se "spremiti" umnožak kvadrata elemenata većih od 3  treba na početku staviti jednaku 1. 

NE treba provoditi nikakve kontrole argumenta.

izrada

prog38[x_List] := Module[{m, umnozak= 1}, 
m=Length[x];
Do[
If[x[[i]]> 3, umnozak=umnozak * x[[i]]^2; ];
,
{i, 1, m}
];
Return[umnozak];
];

testiranje

prog38[{ 2, -5, -3, 4, 5, 1}]