Zadaci za samostalni rad, 5. 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.

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

1. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će koliko je učitano negativnih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad51 := Module[{x, rez=0},
x=Input["Upišite broj"];
While[x≠0, 
If[x<0, rez=rez+1];
x=Input["Upišite broj"];
];
Return[rez];
];

testiranje

zad51

2. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će koliko je učitano brojeva većih od 2. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad52 := Module[{x, rez=0},
x=Input["Upišite broj"];
While[x≠0, 
If[x>2, rez=rez+1];
x=Input["Upišite broj"];
];
Return[rez];
];

testiranje

zad52

3. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će minimum učitanih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0.  Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad53 := Module[{x, min=Infinity},
x=Input["Upišite broj"];
While[x≠0, 
If[x<min, min=x];
x=Input["Upišite broj"];
];
Return[min];
];

testiranje

zad53

4. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će zbroj negativnih učitanih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad54 := Module[{x, zbroj=0},
x=Input["Upišite broj"];
While[x≠0, 
If[x<0, zbroj=zbroj+x];
x=Input["Upišite broj"];
];
Return[zbroj];
];

testiranje

zad54

5. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će umnožak pozitivnih učitanih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

Varijablu  u koju će se "spremiti" rezultat  treba na početku staviti jednaku 1. 

NE treba provoditi nikakve kontrole argumenta.

izrada

zad55 := Module[{x, rez=1},
x=Input["Upišite broj"];
While[x≠0, 
If[x>0, rez=rez*x];
x=Input["Upišite broj"];
];
Return[rez];
];

testiranje

zad55

6. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će zbroj kvadrata negativnih učitanih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad56 := Module[{x, rez=0},
x=Input["Upišite broj"];
While[x≠0, 
If[x<0, rez=rez+x^2];
x=Input["Upišite broj"];
];
Return[rez];
];

testiranje

zad56

7. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će maksimum učitanih brojeva. Postupak učitavanja brojeva se prekida kada se učita broj 0.  Koristite naredbu While.

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

NE treba provoditi nikakve kontrole argumenta.

izrada

zad57 := Module[{x, max=-Infinity},
x=Input["Upišite broj"];
While[x≠0, 
If[x>max, max=x];
x=Input["Upišite broj"];
];
Return[max];
];

testiranje

zad57

8. zadatak

Napišite program koji će učitavati brojeve, jedan po jedan koristeći naredbu Input i odrediti će umnožak učitanih brojeva koji su manji od -1. Postupak učitavanja brojeva se prekida kada se učita broj 0. Koristite naredbu While.

Varijablu  u koju će se "spremiti" rezultat  treba na početku staviti jednaku 1. 

NE treba provoditi nikakve kontrole argumenta.

izrada

zad58 := Module[{x, rez=1},
x=Input["Upišite broj"];
While[x≠0, 
If[x<-1, rez=rez*x];
x=Input["Upišite broj"];
];
Return[rez];
];

testiranje

zad58