Laslo Kraus - PJMP (Prvi parcijalni ispit 3.7.1999)

← ↑ ⇑ ↓ →

Ласло Краус	ПЈМП Први парцијални испит 3. 7. 1999.

Аутори: Владан Девеџић (задаци) и Ласло Краус (задаци и решења)

Задаци: 1 2 3 4 5 6 | Напоменe | Решења: 1 2 3 4 5 6

Поставка задатка 1 (20 поена) (⇒ решење | почетак)

Саставити потпрограм за генерисање псеудослучајних бројева чија је густина расподеле вероватноће приказана на слици. На располагању стоји генератор псеудослучајних бројева са униформном расподелом.

Поставка задатка 2 (20 поена) (⇒ решење | почетак)

Симболи A, B, C, ..., H кодирају се са по три бита 000, 001, 010, ..., 111. Извршити компресију низа симбола ADEA DGAD GDEG AG применом LZW поступка. Добијени резултат проверити применом инверзног поступка на добијени низ битова.

Поставка задатка 3 (20 поена) (⇒ решење | почетак)

Саставити на језику C потпрограм за претварање матрице од 8*8 вредности тачака (pixel-а) графичке слике у низ од 64 елемената по редоследу који се користи код JPEG компресије графичких података.

Поставка задатка 4 (20 поена) (⇒ решење | почетак)

Саставити програм који помоћу графичког система GKS црта криву r=aφ (за 0≤φ≤φ_max) и координатне осе (без обележавања). Параметре а и φ_max читати преко главног улаза. Слика треба, без изобличења, што више да попуни екран графичког терминала. Однос ширине и висине екрана графичког терминала је 1:0,6.

Поставка задатка 5 (10 поена) (⇒ решење | почетак)

У бази података налазе се чињенице облика predmet( Naziv, Semestar), student( Ime, Semestar) и ocena( Student, Predmet, Ocena). Студент може да има више оцена из истог предмета ако је испит полагао више пута. Саставити правила на Prolog-у помоћу којих могу да се добију одговори на питања Из ког предмета је студент положио испит?, Из ког предмета је студент пао на испиту? и Из ког премета студент треба да полаже испит?.

Поставка задатка 6 (10 поена) (⇒ решење | почетак)

Дата је листа парова шифра – податак. Саставити правила на Prolog-у за формирање листе која садржи само податке са задатом шифром. На пример, следећа релација треба да важи: podaci( [[1,5], [2,1], [3,2], [2,4], [2,7], [1,6]], 2, [1,4,7]).

Напоменe (⇒ почетак)

Испит траје 3 сата.
Дозвољена је употреба Подсетника за коришћење GKS-а из програма писаних на C-у.
Рад се предаје искључиво у вежбанци за испите. Није дозвољено имати поред себе друге листове папира.
Решења задатака навести по горњем редоследу на непарним страницама (са десне стране), док парне странице (са леве стране) користити за писање концепата. Прва страница после предње стране може да се прескочи. На овај начин концепт и пречишћено решење могу да буду један поред другог.
Водити рачуна о уредности. Препоручује се рад обичном графитном оловком.

Решење задатка 1 (⇒ поставка | почетак)

#include <math.h>
double urng ();
double rng () {
  double u=urng();
  return u<0.25 ? 2*sqrt(u)-1 : 2*u-0.5;
}

Решење задатка 2 (⇒ поставка | почетак)

Резултујући код: 0000 0011 0100 1000 0110 1011

Решење задатка 3 (⇒ поставка | почетак)

#define N 8
void jpeg(int a[N][N], int b[N*N]){
  int i, j, k, l, m, smer=1;
  for (m=k=0; k<2*N-1; k++) {
    if (smer == 1) { i = k<N ? k : N-1; j = k - i; }
      else         { j = k<N ? k : N-1; i = k - j; }
    for (l=0; l<=((k<N)?(k):(2*N-2-k)); l++)
      { b[m++] = a[i][j]; i -= smer; j += smer; }
    smer = -smer;
  }
}

Решење задатка 4 (⇒ поставка | почетак)

#include <gks.h>
void main ()
  enum { N = 200 };
  int rs_tip=GWS_VT340, i;
  float a, fimax, r, fi, dfi;
  Gpoint tacke[N+1];
  Glimit prozor;
  scanf ("%f%f", &a, &fimax);
  prozor.xmin = prozor.ymin =
    - (prozor.xmax = prozor.ymax =
       r = a*fimax);
  gopengks (0, 0);
  gopenws (10, "tt:", &rs_tip);
  gactivatews (10);
  gsetwindow (1, &prozor);
  gseltran (1);
  tacke[0].y = tacke[1].y = 0;
  tacke[0].x = -(tacke[1].x = r);
  gpolyline (2, tacke);
  tacke[0].x = tacke[1].x = 0;
  tacke[0].y = -(tacke[1].y = r);
  gpolyline (2, tacke);
  dfi = fimax / N;
  for (i=0; i<=N; i++) {
    r = a * (fi = i * dfi);
    tacke[i].x = r * cos (fi);
    tacke[i].y = r * sin (fi);
  }
  gpolyline (N+1, tacke);
  gdeactivatews (10);
  gclosews (10);
  gclosegks ();
}

Решење задатка 5 (⇒ поставка | почетак)

polozio(Student,Predmet) :-
  ocena(Student,Predmet,Ocena),
  Ocena >= 6;
pao(Student,Predmet) :-
  ocena(Student,Predmet,Ocena),
  Ocena < 6;
treba(Student,Predmet) :-
  student(Student,SemestarS),
  predmet(Predmet,SemestarP),
  SemestarP =< SemestarS,
  not(polozio(Student,Predmet)).

Решење задатка 6 (⇒ поставка | почетак)

podaci([],_,[]).
podaci([[S,P]|R1],S,[P|R2]) :-
  podaci(R1,S,R2), !.
podaci([_|R1],S,R2) :-
  podaci(R1,S,R2).

(⇒ почетак)

← ↑ ⇑ ↓ →

Аутор: Ласло Краус
Е-пошта: kraus@etf.rs