Izpiti, predavanja

Opozorilo: Zadnji izpit pri meni je v sredo 25.10. Dobimo se pri vratarju.

Opravicujem se za probleme pri jesenskih izpitih. Do problemov je prislo mimo moje volje.

Stari roki: 5.6.2000, 11.2.2000, 22.9., 25.8., 15.6.,  5.7.

Pri Osnovah programiranja in Programski opremi je potrebno opraviti prakticni preizkus pred izpitom, za Programsko opremo tudi seminar.

Primeri seminarjev: HTML(2000), HTML(1999),Word,logo,PowerPoint (+predstavitev).
Prirocnika za  HTML,HTML4.
Prirocnik za JavaScript. Nekaj strani v JavaScriptu.
Primer diplomske naloge.

Predmet v 4. letniku je PROGRAMSKA OPREMA in ne Racunalnistvo in informatika.

Novi ucni nacrt za Programsko opremo
(Stari)Ucni nacrt za Programsko opremo
(Stari) Ucni nacrt za Osnove racunalnistva

Predavanja 1999/2000 - Programska oprema

Predavanja 1998/9 - Programska oprema

Predavanja 1998/9 - Osnove racunalnistva

Predavanja 1997/8

Predavanja 1996/7

Osnove racunalnistva:
7.10 pregledno: umetna inteligenca, kognitivne dejavnosti, racunski stroji, predvsem Turingov in kvantni; DOS
14.10 Norton, Windows, Plus, vzdrzevanje PC, komunikacije, Internet (pregledno)
21.10 Win95 (brez prosojnic), Internet, P020 (naslednjic bo v P020)
28.10. Win95 do konca, Word, P20
4.11. Word
11.11. Word do diagramov
18.11. Word do konca (do prenosa iz PowerPointa), pascal do sintakse
25.11. pascal, do prvih programov
2.12. informacijska druzba, do sredine Gatesa
9.12. Microsoft, IBM, Internet in intranet, algoritmi, pascal
16.12. tabele, pascal
23.12. srecne praznike po dogovoru s studenti
6.1. podprogrami, parametri, rekurzija, prakticno preverjanje
13.1. prakticno preverjanje, objekti, grafika

Izpiti

Ocenjevanje

10.9.1996

Resitev NALOGE 1:

program oklepaji;
(*izpise N-krat i predklepajev, i, i zaklepajev, npr. (((3)))*)
const N = 10;
var i,j: integer;
begin
  for j := 1 to N do begin
    for i := 1 to j do write('(');
    write(j:1);
    for i := 1 to j do write(')');
    writeln;1
  end; readln
end.

3. Imamo tabelo nezaposlenih, tabelo prostih sluzb in sprogramirano Boolovo funkcijo ujemaSe(i,j), ki pove, ali se nezaposleni i ujema s sluzbo j. Napisi program, ki izpise vse primerne pare.

4. Napolni zaslon z zaporednimi znaki s programom, ki uporablja naslednje ukaze:
domov -- postavi se v levi zgornji kot zaslona
ponovi ... doklerNi pogoj -- ponavljaj, dokler ni izpolnjen pogoj
rob gor, dol, levo ali desno -- je pogoj, ki pove, ali smo na robu
vpisi N -- napisi znak N na tekoce mesto na zaslonu
povecaj N -- povecaj N za 1
premik gor, dol, levo, desno -- premik za en znak
naZacetek -- skok na zacetek tekoce vrstice

Resitev NALOGE 4:

domov
ponovi
  vpisi N
  ponovi 
    premik desno
    povecaj N
    vpisi N
  doklerNi rob desno

  if not rob dol then begin (*lahko tudi - ce ni rob dol naredi*)
    naZacetek
    premik dol
    povecaj N
  end (*lahko tudi - konecNaredi*)
doklerNi rob desno  

(*za vecino tock zadosca tudi naslednja delno pravilna naloga:*)
ponovi
  ponovi 
    vpisi N
    premik desno
  doklerNi rob desno
  naZacetek
  premik dol
doklerNi rob dol
(*ceprav ne zapise zadnjih znakov v vrsti in spodnje vrstice 
  ter ne povecuje znakov*)

5. Imamo tabele nezaposlenih, prostih delovnih mest, dosedanjih zaposlitev. Predstavi tabele v primerni obliki in vpisi nekaj primerov (vrstic). Napisi naslednje naloge v prologu ali SQL:
a) Ali je med nezaposlenimi baletnik, star do 30 let, ima vozniski izpit in obvlada delo z racunalnikom?
b) Najdi posameznika, ki mu popolnoma odgovarja natanko eno delovno mesto.
c) Najdi zaposlenega, ki je najdalj casa zaposlen na istem delovnem mestu.
d) Ali obstaja kaksno prosto delovno mesto, za katerega ni nobenega primernega iskalca?

23.9.1996

Resitev NALOGE 1:

program vsotaErat;
(*vsota N klicev Erat(i)*)
var i,N,s: integer;
function Erat(i:integer): integer;
begin
  Erat := 1; (* zaenkrat ena *)
end; (*Erat*)
begin
  writeln('Vpisi stevilo klicev funkcije Erat');
  readln(N); s := 0;
  for i := 1 to N do s := s + Erat(i);
  writeln('Vsota je ',s:4); readln
end.

3. Med seboj krizamo dve rozi. Vsaka roza ima pet lastnosti, npr. (velika, rdeca, ozkolistna, s trni, veccvetna). Napisi program, ki bo prebral podatke o poljubnih dveh rozah, nato izpisal podatke in izpisal vse mozne kombinacije potomcev. Nasvet: poskusi z nizi.

4. Imamo pet enodimenzionalnih tabel. Napisi program, ki bo poiskal in izpisal stevilo, ki se nahaja v vseh tabelah.

Resitev NALOGE 4:

program petTabel;
(*izpisi stevila, ki so v vseh 5 enodimenzionalnih tabelah*)
const Dim = 20; 
var i,j,k,l,m,N: integer;
    a,b,c,d,e: array[1..Dim] of integer;
begin
  writeln('Vpisi stevilo elementov tabele, nato pa v 5 vrstic po eno tabelo');
  readln(N); 
  for i := 1 to N do read(a[i]); for i := 1 to N do read(b[i]);
  for i := 1 to N do read(c[i]); for i := 1 to N do read(d[i]);
  for i := 1 to N do read(e[i]);
  for i := 1 to N do 
   for j := 1 to N do 
    for k := 1 to N do 
     for l := 1 to N do
      for m := 1 to N do 
        if (a[i] = b[j]) and (b[j] = c[k]) and 
           (c[k] = d[l]) and (d[l] = e[m]) then
              writeln('Element v vseh tabelah je ',a[i]:3);
  readln
end.
(*opombe: - izpise veckrat isti element, ce se veckrat pojavi; za izpit OK*)
(* - program bi se dalo napisati za poljubno stevilo tabel,
  vendar za izpit zgornje zadosca*)
(* - za izpit zadosca program tudi brez branja tabel*)

5. Pri vodenju racunalniske trgovine imamo naslednje tabele: monitorji, procesorske enote, diski, prodano (po zelji dodajte). V vsako tabelo vpisite vsaj po tri primere, nato pa zapisite naslednja vprasanja:
a) Ali je Janez Opeka kupil kaksen racunalnik?
b) Ali imamo na zalogi dva monitorja z isto ceno?
c) Ali je kdo kupil vsaj tri racunalnike?
d) Ali kaksnega prodanega dela nimamo vec na zalogi?
e) Koliko bi stal najdrazji racunalnik?

Zadnji izpit je tu.

Vaje dobite tukaj.

Pretvorniki znakov.

Nekaj sistemov za govor.

mg