UNIVERZITET U NOVOM SADU
PRIRODNO-MATEMATIČKI FAKULTET
DEPARTMAN ZA
MATEMATIKU I INFORMATIKU
Pripremni zadaci za prijemni
ispit iz Programiranja
-
Pascal-
morgensterncyber
Нови Сад
Pripremni zadaci za prijemni ispit iz programiranja
2
Kome je ova knjiga namenjena?
Ova knjiga odnosno zbirka zadataka je prvenstveno namenjena bududim studentima koji nameravaju da
upišu Prirodno-matematički fakultet Novom Sadu i to sledede smerove:
- Informatika
- Matematika
- Primenjena matematika
U zbirci se nalazi 145 detaljno uradjenih zadataka.
Ovu zbriku može koristiti svako ko je zainteresovan za učenje osnova programiranja u pascalu.
Svi programi u zbirka testirani su u Turbo Pascalu 7 i Delphi 7.
Ova zbirka ne sadrži teorijske osnove programiranja!
Zbirku je sastavio srednjoškolac tako da su mogude greške kao da neka rešanja zadataka nisu baš najbolja!
**** Iza ove zbirke ne stoji Prirodno-matematički fakultet !!! ****
Pripremni zadaci za prijemni ispit iz programiranja
4
6. Napisati program koji unetu veličinu u galonima
pretvara u litre. 1 galon = 4.54 l
var
galon,litri:real;
begin
write('Unesite kolicinu tecnosti u galonima:');
readln(galon);
litri:=galon*4.54;
writeln(litri:5:2);
readln
end
.
7. Automobil sa punim rezervoarom kapacitet V litara
predje put od S kilometara.Napisati program kojim se
računa potrošnja u litrama na 100 km.
var
v,s:real;
begin
write('Unesite kapacitet rezervoara:');
readln(v);
writeln('Unesite predjeni put:');
readln(s);
writeln('Potrosnja na 10 km je:',V*100/s:6:2,' l');
readln
end
.
8. Napisati program kojim se računa hipotenuza i
površina pravouglog trougla na osnovu zadatih kateta.
var
a,b,c,P:real;
begin
write('Unesite a katetu:');
readln(a);
write('Unesite b katetu:');
readln(b);
c:=sqrt(sqr(a)+sqr(b));
p:=(a*b)/2;
writeln('Hipotenuza je:',c:6:2,'Povrsina je:',P:5:2);
readln
end
.
9. Napisati program koji prevodi težinu iz funti u kg (1
funta = 400g)
var
kg,funta:real;
begin
writeln('Unesite tezinu u funtama:');
readln(funta);
kg:=funta*0.4;
writeln('Tezina je:',kg:10:2);
readln;
end
.
10. Napisati program koji izračunava cenu porcije sira x
grama,ako je 1kg sira 165 dinara.
var
x:real;
begin
write('Unesite tezinu porcije:');
readln(x);
writeln('Cena porcije je:',0.165*x:10:2,'din');
readln
end
Pripremni zadaci za prijemni ispit iz programiranja
5
11. Napisati program koji pomaže kasirki da
obračuna kusur,tako što od nje traži da unese
jediničnu cenu artikla i koliko novca dobije od kupca.
var
cena,kolicina,iznos:real;
begin
write('Unesite cenu aritkla:');
readln(cena);
write('Unesite kolicinu artikla:');
readln(kolicina);
write('Unesite iznos koji daje kupac:');
readln(iznos);
writeln('Kusur je:',iznos-cena*kolicina:10:2);
readln
end
.
12. Napisati program kojim se računa potrebno
vreme za download unete veličine fajla,pri unetoj
brzini. Program treba da ispiše za koliko de se sati,
minuta i sekundi skinuti fajl.
var
kolicina,brzina:real;
sat,sek,min,rez:integer;
begin
write('Unesite kolicinu mb za download:');
readln(kolicina);
write('Unesite brzinu downloada u KB/s:');
readln(brzina);
rez:=Trunc(((Kolicina*1024)/brzina));
writeln(rez);
sat:=rez
div
3600;
sek:=rez
mod
3600;
min:=sek
div
60;
sek:=sek
mod
60;
writeln('Potrebno je vreme:',sat:5,' h',min:5,'
min',sek:5,' sek');
readln
end
.
13. Napisati program koji računa ukupan broj poena
učenika,tako što korisnik unosi svoj uspeh četiri školske godine
(koji ne sme biti manji od 2,a ni vedi od 5 u suprotnom program
treba da ispiše „Greška u unosu“) kao i broj poena na
prijemnom ( koji ne sme biti manji od 0 niti vedi od 60).
var
Prva,Druga,Treca,Cetvrta,Skola,Prijemni,Bodovi:real;
begin
write('Unesite uspeh u I godini:');
readln(Prva);
write('Unesite uspeh u II godini:');
readln(Druga);
write('Unesite uspeh u III godini:');
readln(Treca);
write('Unesite uspeh u IV godini:');
readln(Cetvrta);
write('Unesite broj osvojenih poena na prijemnom:');
readln(Prijemni);
skola:=(prva+druga+treca+cetvrta)*2;
Bodovi:=Skola+Prijemni;
if
(Prva>=2)
and
(prva<=5)
and
(druga>=2)
and
(druga<=5)
and
(treca>=2)
and
(treca<=5)
and
(cetvrta>=2)
and
(cetvrta<=5)
and
(prijemni<=60)
and
(prijemni>=0)
then
writeln('Ukupan broj bodova je ',bodovi:5:2)
else
writeln('Pogresili ste negde u unosu podataka!');
readln
end.
Pripremni zadaci za prijemni ispit iz programiranja
7
2.Programi sa razgranatom strukturom
16. Napisati program kojim se odredjuje koji je od dva
uneta broja vedi i ispisuje poruku o tome.
var
broj1,broj2:integer;
begin
write('Unesite broj1:');
readln(broj1);
write('Unesite broj2:');
readln(broj2);
if
broj1>broj2
then
writeln('Broj1 je veci od broja2')
else
writeln('Broj2 je veci od broja1');
readln
end
.
17.Prethodni zadatak izmeniti tako da ukoliko su brojevi
jednaki program ispiše poruku o tome.
var
broj1,broj2:integer;
begin
write('Unesite broj1:');
readln(broj1);
write('Unesite broj2:');
readln(broj2);
if
broj1>broj2
then
writeln('Broj1 je veci od broja2')
else
if
broj1=broj2
then
writeln('Brojevi su jednaki')
else
writeln('Broj2 je veci od broja1');
readln
end
.
18. Imamo da je C = 5 korisnik unosi vrednost A i B. Ako je A
vede od B vrednost C de se uvedati za 12. U suprotnom C de
ostati 5.
var
a,b,c:integer;
begin
c:=5;
writeln('Unesite a:');
readln(a);
writeln('Unesite b:');
readln(b);
if
a>b
then
c:=c+12;
writeln('C=',C:2);
readln
end
.
