Zadaci za samostalni rad, 1. vježbe

Inforamcija

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 će pomoću funkcije Input učitati realan broj pa ako je veći ili jednak nuli vratiti broj 1, a u protivnom će vratiti broj 0.

1.izrada

prog11 := Module[{a}, a=Input["Upišite realan broj"];
If[a≥0, Return[1];, Return[0];];
];

1. testiranje

prog11

2. zadatak

Napišite program koji će imati jedan realan argument (NE koristite funkciju Input), te ako je taj argument veći od 1 tada će vratiti njegov kvadrat, a u protivnom će vratiti njegov sinus.

2. izrada

prog12[x_]:= Module[{},
If[x >1, Return[x^2];, Return[Sin[x]]; ];
];

2. testiranje

prog12[3]

prog12[-3]

3. zadatak

Napišite program koji će pomoću funkcije Input učitati x pa zatim y.
Ako je x veći od y program će vratiti 1, a u protivnom će vratiti 0.

3. izrada

prog13 := Module[{x, y}, 
x=Input["Upišite x"]; 
y=Input["Upišite y"]; 
If[x>y, Return[1];, Return[0]; ];
];

3. testiranje

prog13

4. zadatak

Napišite program koji će imati dva realna argument  x i y (NE koristite funkciju Input).
Ako je x manji od y program će vratiti Sin[x], a u protivnom će vratiti Sin[y].

4. izrada

prog14[x_, y_] := Module[{},
If[x<y, Return[Sin[x]];, Return[Sin[y]]; ];
];

4. testiranje

prog14[3, 5]

5. zadatak

Napišite program koji će pomoću funkcije Input učitati x pa zatim y.
Ako je Sin[x] veći od Sin[y] program će vratiti x, a u protivnom će vratiti y.

3. izrada

prog15 := Module[{x, y}, 
x=Input["Upišite x"]; 
y=Input["Upišite y"]; 
If[Sin[x]>Sin[y], Return[x];, Return[y]; ];
];

3. testiranje

prog15

6. zadatak

Napišite program koji će imati dva realna argument  x i y (NE koristite funkciju Input).
Ako je Cos[x] manji od Cos[y] program će vratiti 1, a u protivnom će vratiti 0.

4. izrada

prog16[x_, y_] := Module[{},
If[Cos[x]<Cos[y], Return[1];, Return[0]; ];
];

4. testiranje

prog16[3, 5]

7. zadatak

Napišite program koji će imati jedan realan argument (NE koristite funkciju Input), te ako je taj argument negativan tada će vratiti njegov kub, a u protivnom će vratiti njegov kvadrat.

2. izrada

prog17[x_]:= Module[{},
If[x <0, Return[x^3];, Return[x^2]; ];
];

2. testiranje

prog12[3]

prog12[-3]

8. zadatak

Napišite program koji će pomoću funkcije Input učitati x pa zatim y.
Ako je x^2 manji od y^2 program će vratiti x, a u protivnom će vratiti y.

3. izrada

prog18 := Module[{x, y}, 
x=Input["Upišite x"]; 
y=Input["Upišite y"]; 
If[x^2<y^2, Return[x];, Return[y]; ];
];

3. testiranje

prog18