4e

4e https://f1racingfans.do.am/ News Wed, 08 May 2013 12:07:03 GMT uCoz Web-Service sadjads http://www60.zippyshare.com/v/63581986/file.html http://www60.zippyshare.com/v/63581986/file.html https://f1racingfans.do.am/blog/sadjads/2013-05-08-181 vajmar1 https://f1racingfans.do.am/blog/sadjads/2013-05-08-181 Wed, 08 May 2013 12:07:03 GMT sd <head><br><title>Provjera prakticnog rada-CSS</title><br><link rel="stylesheet"<br>        type="text/css" href="css.css"><br></head><br><body><br>    <div class="kontejner"><br>        <div class="banner"><br>        </div><br>        <div class="izbornik"><br>        </... <head><br><title>Provjera prakticnog rada-CSS</title><br><link rel="stylesheet"<br>        type="text/css" href="css.css"><br></head><br><body><br>    <div class="kontejner"><br>        <div class="banner"><br>        </div><br>        <div class="izbornik"><br>        </div><br>        <div class="sadrzaj"><br>        </div><br>        <div class="bottom"><br>        </div><br>    </div><br></body><br><br>css:<br>body{<br>div.kontejner{<br>    width:950px;<br>    height:1000px;<br>    position:center;<br>    margin-left:auto;<br>    margin-right:auto;<br>    }<br>    <br>div.banner{<br>    background-color:red;<br>    width:950px;<br>    height:100px;<br>    float:right;<br>    }<br>div.izbornik{<br>    background-color:blue;<br>    float:left;<br>    width:100px;<br>    height:900px;<br>    }<br><br>div.sadrzaj{<br>    background-color:black;<br>    float:right;<br>    width:850px;<br>    height:900px;<br>    }<br>    <br>p{<br>    font-size:10pt;<br>    font-family:arial;<br>    text-align:justify;<br>}<br><br>ul.izbornik{<br>list-style-type:none;<br>font-family:verdana;<br>font-size:12pt;<br>}<br><br>a:link{<br>color:white;<br>text-decoration:none;<br>}<br><br>a:hover{<br>background-color:white;<br>color:black;<br>}<br> https://f1racingfans.do.am/blog/sd/2013-05-08-180 vajmar1 https://f1racingfans.do.am/blog/sd/2013-05-08-180 Wed, 08 May 2013 11:10:10 GMT Template <html><head><br><meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"><br><title>PPR-CSS</title><br><link rel="stylesheet" type="text/css" href="stil.css" /><br></head><br><body><br>    <div class="kontejner"><br>        <div class="banner"><br>        </div><br>        <div class="izbornik"><br> &n... <html><head><br><meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"><br><title>PPR-CSS</title><br><link rel="stylesheet" type="text/css" href="stil.css" /><br></head><br><body><br>    <div class="kontejner"><br>        <div class="banner"><br>        </div><br>        <div class="izbornik"><br>            <ul class="menu"><br>            </ul><br>        </div><br>        <div class="sadrzaj"><br>        </div><br>        <div class="bottom"><br>        </div><br>    </div><br></body></html> https://f1racingfans.do.am/blog/template/2013-05-08-179 vajmar1 https://f1racingfans.do.am/blog/template/2013-05-08-179 Wed, 08 May 2013 10:40:36 GMT Javascript dopuna <html><br><head><br><script><br>    function pozdrav()<br>    {<br>    ime=window.prompt("Unesi ime");<br>    prijatelj=window.prompt("Unesi ime prijatelja");<br>    document.write("Pozdrav "+ime+"! Prijatelj ti je "+prijatelj+"!");<br>    }<br></script><br></head><br><body onload="pozdrav()"><br></body><br></html><br><br> <html><br><head><br><script><br>    function pozdrav()<br>    {<br>    ime=window.prompt("Unesi ime");<br>    prijatelj=window.prompt("Unesi ime prijatelja");<br>    document.write("Pozdrav "+ime+"! Prijatelj ti je "+prijatelj+"!");<br>    }<br></script><br></head><br><body onload="pozdrav()"><br></body><br></html><br><br> https://f1racingfans.do.am/blog/javascript_dopuna/2013-03-01-178 Administrator https://f1racingfans.do.am/blog/javascript_dopuna/2013-03-01-178 Fri, 01 Mar 2013 13:51:33 GMT Javascript <html><br><head><br><script><br>    function pozdrav()<br>    {<br>    ime=window.prompt("Unesi ime");<br>    document.write("Pozdrav "+ime+"! Kako si?");<br>    }<br></script><br></head><br><body onload="pozdrav()"><br></body><br></html><br><br> <html><br><head><br><script><br>    function pozdrav()<br>    {<br>    ime=window.prompt("Unesi ime");<br>    document.write("Pozdrav "+ime+"! Kako si?");<br>    }<br></script><br></head><br><body onload="pozdrav()"><br></body><br></html><br><br> https://f1racingfans.do.am/blog/javascript/2013-03-01-177 Administrator https://f1racingfans.do.am/blog/javascript/2013-03-01-177 Fri, 01 Mar 2013 13:36:06 GMT Izbornici <html><br><head><br><link rel="stylesheet" type="text/css" href="izbornik.css"><br></head><br><body><br><ul id="izbornik"><br><li class=""><a href="#">Izbor 1</a></li><br><li class=""><a href="#">Izbor 2</a><br><ul><br><li class=""><a href="#"> Podizbornik 1</a></li><br><li class=""><a href="#"> Podizbornik 2</a></li><br><li class=""><a href="#"> Podizbo... <html><br><head><br><link rel="stylesheet" type="text/css" href="izbornik.css"><br></head><br><body><br><ul id="izbornik"><br><li class=""><a href="#">Izbor 1</a></li><br><li class=""><a href="#">Izbor 2</a><br><ul><br><li class=""><a href="#"> Podizbornik 1</a></li><br><li class=""><a href="#"> Podizbornik 2</a></li><br><li class=""><a href="#"> Podizbornik 3</a></li><br><li class=""><a href="#"> Podizbornik 4</a></li><br><li class=""><a href="#"> Podizbornik 9</a></li><br></ul><br></li><br><li class=""><a href="#">Izbor 3</a><br><ul><br><li class=""><a href="#"> Podizbornik 1</a></li><br><li class=""><a href="#"> Podizbornik 2</a></li><br></ul><br></body><br></html> https://f1racingfans.do.am/blog/izbornici/2013-02-22-176 vajmar1 https://f1racingfans.do.am/blog/izbornici/2013-02-22-176 Fri, 22 Feb 2013 10:23:26 GMT Web obrasci <html><br><head><br><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><br></head><br><body><br>    <form metod="post" action="posalji.php"><br>        <p align="justify">Ime i prezime:<br>        <input type="text" name="ime" size="20" value="unesi ime i prezime"><br>        </p><br>        &l... <html><br><head><br><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><br></head><br><body><br>    <form metod="post" action="posalji.php"><br>        <p align="justify">Ime i prezime:<br>        <input type="text" name="ime" size="20" value="unesi ime i prezime"><br>        </p><br>        <p align="justify">E-mail adresa:<br>        <input type="text" size="30" value="@"><br>        </p><br>        <p><br>        <textarea name="poruka" cols="60" rows="10" wrap="on"><br>        </textarea><br>        </p><br>        <br><br>        <input type="reset" value="Ponisti"><br>        <input type="submit" value="Posalji"><br>    </form><br></body> <br></html><br> https://f1racingfans.do.am/blog/web_obrasci/2013-02-22-175 Administrator https://f1racingfans.do.am/blog/web_obrasci/2013-02-22-175 Fri, 22 Feb 2013 10:14:51 GMT Napokon gotovo! JUHU! <div>program Konfiguracija;</div><div>uses crt;</div><div>type pokazivac=^struktura;</div><div>     struktura=record</div><div>     {Maticna varijable}</div><div>     mat:integer;</div><div>     nm1:string;</div><div>     nm2:string;</div><div>     nm3:string;</div><div>     nm4:string;</div><div>     nms1:string;</div><div>     nms2:string;</div><div>  &nbs... <div>program Konfiguracija;</div><div>uses crt;</div><div>type pokazivac=^struktura;</div><div>     struktura=record</div><div>     {Maticna varijable}</div><div>     mat:integer;</div><div>     nm1:string;</div><div>     nm2:string;</div><div>     nm3:string;</div><div>     nm4:string;</div><div>     nms1:string;</div><div>     nms2:string;</div><div>     nms3:string;</div><div>     nms4:string;</div><div>     nmc1:integer;</div><div>     nmc2:integer;</div><div>     nmc3:integer;</div><div>     nmc4:integer;</div><div>     socketm1:string;</div><div>     socketm2:string;</div><div>     socketm3:string;</div><div>     socketm4:string;</div><div>     {Procesor varijable}</div><div>     proc:integer;</div><div>     np1:string;</div><div>     np2:string;</div><div>     np3:string;</div><div>     np4:string;</div><div>     nps1:string;</div><div>     nps2:string;</div><div>     nps3:string;</div><div>     nps4:string;</div><div>     npc1:integer;</div><div>     npc2:integer;</div><div>     npc3:integer;</div><div>     npc4:integer;</div><div>     socketp1:string;</div><div>     socketp2:string;</div><div>     socketp3:string;</div><div>     socketp4:string;</div><div>     {Graficka varijable}</div><div>     graf:integer;</div><div>     ng1:string;</div><div>     ng2:string;</div><div>     ng3:string;</div><div>     ng4:string;</div><div>     ngs1:string;</div><div>     ngs2:string;</div><div>     ngs3:string;</div><div>     ngs4:string;</div><div>     ngc1:integer;</div><div>     ngc2:integer;</div><div>     ngc3:integer;</div><div>     ngc4:integer;</div><div>     {RAM varijable}</div><div>     ram:integer;</div><div>     nr1:string;</div><div>     nr2:string;</div><div>     nrs1:string;</div><div>     nrs2:string;</div><div>     nrc1:integer;</div><div>     nrc2:integer;</div><div>     {Disk varijable}</div><div>     di:integer;</div><div>     nd1:string;</div><div>     nd2:string;</div><div>     nds1:string;</div><div>     nds2:string;</div><div>     ndc1:integer;</div><div>     ndc2:integer;</div><div>     {Napajanje varijable}</div><div>     nap:integer;</div><div>     nn1:string;</div><div>     nn2:string;</div><div>     nns1:string;</div><div>     nns2:string;</div><div>     nnc1:integer;</div><div>     nnc2:integer;</div><div>     {Pokazivac}</div><div>     p:pokazivac;</div><div><br></div><div>end;</div><div><br></div><div>var trenutni,pocetni,prethodni:pokazivac;</div><div>    a,b,c,d,e,i,x,y,z:integer;</div><div>    ms,p1s,p2s,p3s,p4s:string;</div><div><br></div><div>{PROCEDURE ZA UNOS NOVIH KOMPONENATA}</div><div>procedure dodajmat;</div><div>begin</div><div>  clrscr();</div><div>  writeln('UNOS NOVIH MATICNIH PLOCA (KOLICINA - 4)');</div><div>  writeln('Socketi: A - AMD, I - INTEL');</div><div>  writeln('======');</div><div>  write('Maticna ploca 1 => ');</div><div>  readln(trenutni^.nm1);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketm1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nms1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nmc1);</div><div>  writeln('');</div><div>  write('Maticna ploca 2 => ');</div><div>  readln(trenutni^.nm2);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketm2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nms2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nmc2);</div><div>  writeln('');</div><div>  write('Maticna ploca 3 => ');</div><div>  readln(trenutni^.nm3);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketm3);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nms3);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nmc3);</div><div>  writeln('');</div><div>  write('Maticna ploca 4 => ');</div><div>  readln(trenutni^.nm4);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketm4);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nms4);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nmc4);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>procedure dodajproc;</div><div>begin</div><div>  clrscr();</div><div>  writeln('UNOS NOVIH PROCESORA (KOLICINA - 4)');</div><div>  writeln('Socketi: A - AMD, I - INTEL');</div><div>  writeln('======');</div><div>  write('Procesor 1 => ');</div><div>  readln(trenutni^.np1);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketp1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nps1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.npc1);</div><div>  writeln('');</div><div>  write('Procesor 2 => ');</div><div>  readln(trenutni^.np2);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketp2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nps2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.npc2);</div><div>  writeln('');</div><div>  write('Procesor 3 => ');</div><div>  readln(trenutni^.np3);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketp3);;</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nps3);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.npc3);</div><div>  writeln('');</div><div>  write('Procesor 4 => ');</div><div>  readln(trenutni^.np4);</div><div>  write('Socket (A/I) => ');</div><div>  readln(trenutni^.socketp4);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nps4);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.npc4);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>procedure dodajgraf;</div><div>begin</div><div>  clrscr();</div><div>  writeln('UNOS NOVIH GRAFICKIH KARTI (KOLICINA - 4)');</div><div>  writeln('======');</div><div>  write('Graficka karta 1 => ');</div><div>  readln(trenutni^.ng1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.ngs1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ngc1);</div><div>  writeln('');</div><div>  write('Graficka karta 2 => ');</div><div>  readln(trenutni^.ng2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.ngs2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ngc2);</div><div>  writeln('');</div><div>  write('Graficka karta 3 => ');</div><div>  readln(trenutni^.ng3);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.ngs3);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ngc3);</div><div>  writeln('');</div><div>  write('Graficka karta 4 => ');</div><div>  readln(trenutni^.ng4);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.ngs4);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ngc4);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>procedure dodajram;</div><div>begin</div><div>clrscr();</div><div>  writeln('UNOS NOVIH MEMORIJA (RAM) (KOLICINA - 2)');</div><div>  writeln('======');</div><div>  write('RAM 1 => ');</div><div>  readln(trenutni^.nr1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nrs1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nrc1);</div><div>  writeln('');</div><div>  write('RAM 2 => ');</div><div>  readln(trenutni^.nr2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nrs2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nrc2);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>procedure dodajdisk;</div><div>begin</div><div>clrscr();</div><div>  writeln('UNOS NOVIH TVRDIH DISKOVA (KOLICINA - 2)');</div><div>  writeln('======');</div><div>  write('Tvrdi disk 1 => ');</div><div>  readln(trenutni^.nd1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nds1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ndc1);</div><div>  writeln('');</div><div>  write('Tvrdi disk 2 => ');</div><div>  readln(trenutni^.nd2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nds2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.ndc2);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>procedure dodajnap;</div><div>begin</div><div>clrscr();</div><div>  writeln('UNOS NOVIH NAPAJANJA (KOLICINA - 2)');</div><div>  writeln('======');</div><div>  write('Napajanje 1 => ');</div><div>  readln(trenutni^.nn1);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nns1);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nnc1);</div><div>  writeln('');</div><div>  write('Napajanje 2 => ');</div><div>  readln(trenutni^.nn2);</div><div>  write('Specifikacija => ');</div><div>  readln(trenutni^.nns2);</div><div>  write('Cijena => ');</div><div>  readln(trenutni^.nnc2);</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura unos maticne}</div><div>procedure maticna;</div><div>begin</div><div>  clrscr();</div><div>  writeln('Raspolozive maticne ploce');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.nm1,'; ',trenutni^.socketm1,'; ',trenutni^.nms1,' - ',trenutni^.nmc1,' kn');</div><div>  writeln('2. ',trenutni^.nm2,'; ',trenutni^.socketm2,'; ',trenutni^.nms2,' - ',trenutni^.nmc2,' kn');</div><div>  writeln('3. ',trenutni^.nm3,'; ',trenutni^.socketm3,'; ',trenutni^.nms3,' - ',trenutni^.nmc3,' kn');</div><div>  writeln('4. ',trenutni^.nm4,'; ',trenutni^.socketm4,'; ',trenutni^.nms4,' - ',trenutni^.nmc4,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>    case i of</div><div> 1: trenutni^.mat:=trenutni^.nmc1;</div><div> 2: trenutni^.mat:=trenutni^.nmc2;</div><div> 3: trenutni^.mat:=trenutni^.nmc3;</div><div> 4: trenutni^.mat:=trenutni^.nmc4;</div><div> end;</div><div>  if trenutni^.mat=trenutni^.nmc1 then</div><div>  ms:=trenutni^.socketm1;</div><div>  if trenutni^.mat=trenutni^.nmc2 then</div><div>  ms:=trenutni^.socketm2;</div><div>  if trenutni^.mat=trenutni^.nmc3 then</div><div>  ms:=trenutni^.socketm3;</div><div>  if trenutni^.mat=trenutni^.nmc4 then</div><div>  ms:=trenutni^.socketm4;</div><div>  a:=trenutni^.mat;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura unos procesora}</div><div>procedure procesor;</div><div>begin  </div><div>  clrscr();</div><div>  trenutni^.socketp1:=p1s;</div><div>  trenutni^.socketp2:=p2s;</div><div>  trenutni^.socketp3:=p3s;</div><div>  trenutni^.socketp4:=p4s;</div><div>  writeln('Raspolozivi procesori');</div><div>  writeln('======');</div><div>  writeln('NAPOMENA! Pazi na socket! (A - AMD, I - INTEL)');</div><div>  if trenutni^.mat=trenutni^.nmc1 then</div><div>  writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm1,';')</div><div>  else</div><div>  if trenutni^.mat=trenutni^.nmc2 then</div><div>  writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm2,';')</div><div>  else</div><div>  if trenutni^.mat=trenutni^.nmc3 then</div><div>  writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm3,';')</div><div>  else</div><div>  if trenutni^.mat=trenutni^.nmc4 then</div><div>  writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm4,';');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.np1,'; ',trenutni^.socketp1,'; ',trenutni^.nps1,' - ',trenutni^.npc1,' kn');</div><div>  writeln('2. ',trenutni^.np2,'; ',trenutni^.socketp2,'; ',trenutni^.nps2,' - ',trenutni^.npc2,' kn');</div><div>  writeln('3. ',trenutni^.np3,'; ',trenutni^.socketp3,'; ',trenutni^.nps3,' - ',trenutni^.npc3,' kn');</div><div>  writeln('4. ',trenutni^.np4,'; ',trenutni^.socketp4,'; ',trenutni^.nps4,' - ',trenutni^.npc4,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>    case i of</div><div> 1: trenutni^.proc:=trenutni^.npc1;</div><div> 2: trenutni^.proc:=trenutni^.npc2;</div><div> 3: trenutni^.proc:=trenutni^.npc3;</div><div> 4: trenutni^.proc:=trenutni^.npc4;</div><div> end;</div><div>  b:=trenutni^.proc;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura unos graficke}</div><div>procedure graficka;</div><div>begin  </div><div>  clrscr();</div><div>  writeln('Raspolozive graficke karte');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.ng1,'; ',trenutni^.ngs1,' - ',trenutni^.ngc1,' kn');</div><div>  writeln('2. ',trenutni^.ng2,'; ',trenutni^.ngs2,' - ',trenutni^.ngc2,' kn');</div><div>  writeln('3. ',trenutni^.ng3,'; ',trenutni^.ngs3,' - ',trenutni^.ngc3,' kn');</div><div>  writeln('4. ',trenutni^.ng4,'; ',trenutni^.ngs4,' - ',trenutni^.ngc4,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>  case i of</div><div> 1: trenutni^.graf:=trenutni^.ngc1;</div><div> 2: trenutni^.graf:=trenutni^.ngc2;</div><div> 3: trenutni^.graf:=trenutni^.ngc3;</div><div> 4: trenutni^.graf:=trenutni^.ngc4;</div><div> end;</div><div>  c:=trenutni^.graf;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura unos rama}</div><div>procedure rammem;</div><div>begin  </div><div>  clrscr();</div><div>  writeln('Raspolozivi RAM');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.nr1,'; ',trenutni^.nrs1,' - ',trenutni^.nrc1,' kn');</div><div>  writeln('2. ',trenutni^.nr2,'; ',trenutni^.nrs2,' - ',trenutni^.nrc2,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>    case i of</div><div> 1: trenutni^.ram:=trenutni^.nrc1;</div><div> 2: trenutni^.ram:=trenutni^.nrc2;</div><div> end;</div><div>  e:=trenutni^.ram;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div><br></div><div>{Procedura unos diska}</div><div>procedure disk;</div><div>begin  </div><div>  clrscr();</div><div>  writeln('Raspolozivi tvrdi diskovi');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.nd1,'; ',trenutni^.nds1,' - ',trenutni^.ndc1,' kn');</div><div>  writeln('2. ',trenutni^.nd2,'; ',trenutni^.nds2,' - ',trenutni^.ndc2,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>    case i of</div><div> 1: trenutni^.di:=trenutni^.ndc1;</div><div> 2: trenutni^.di:=trenutni^.ndc2;</div><div> end;</div><div>  d:=trenutni^.di;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura unos napajanja}</div><div>procedure napajanje;</div><div>begin  </div><div>  clrscr();</div><div>  writeln('Raspoloziva napajanja');</div><div>  writeln('======');</div><div>  writeln('1. ',trenutni^.nn1,'; ',trenutni^.nns1,' - ',trenutni^.nnc1,' kn');</div><div>  writeln('2. ',trenutni^.nn2,'; ',trenutni^.nns2,' - ',trenutni^.nnc2,' kn');</div><div>  write('Tvoj izbor => ');</div><div>  readln(i);</div><div>    case i of</div><div> 1: trenutni^.nap:=trenutni^.nnc1;</div><div> 2: trenutni^.nap:=trenutni^.nnc2;</div><div> end;</div><div>  e:=trenutni^.nap;</div><div>  trenutni^.p:=pocetni;</div><div>  pocetni:=trenutni;</div><div>end;</div><div><br></div><div>{Procedura brisanje komponenata}</div><div>procedure obrisi;</div><div>begin</div><div>    clrscr();</div><div>    writeln ('Unesite komponentu koju zelite obrisati iz odabira: ');</div><div>    writeln('1. Maticna ploca');</div><div>    writeln('2. Procesor');</div><div>    writeln('3. Graficka kartica');</div><div>    writeln('4. RAM');</div><div>    writeln('5. Tvrdi disk');</div><div>    writeln('6. Napajanje');</div><div>    write('Tvoj izbor => ');</div><div>    readln(i);</div><div>    case i of</div><div>    1:   begin</div><div>         trenutni^.mat:=0;</div><div>         writeln('Obrisana je maticna!');</div><div>         end;</div><div>    2:   begin</div><div>         trenutni^.proc:=0;</div><div>         writeln('Obrisan je procesor!');</div><div>         end;</div><div>    3:   begin</div><div>         trenutni^.graf:=0;</div><div>         writeln('Obrisana je graficka!');</div><div>         end;</div><div>    4:   begin</div><div>         trenutni^.ram:=0;</div><div>         writeln('Obrisana je RAM!');</div><div>         end;</div><div>    5:   begin</div><div>         trenutni^.di:=0;</div><div>         writeln('Obrisan je disk!');</div><div>         end;</div><div>    6:   begin</div><div>         trenutni^.nap:=0;</div><div>         writeln('Obrisano je napajanje!');</div><div>         end;</div><div>         end;</div><div>         end;</div><div><br></div><div>{Procedura ukupna cijena}</div><div>procedure ukupno;</div><div>var w,l,m,j,n,q:integer;</div><div>begin</div><div>clrscr();</div><div>w:=0;</div><div>l:=0;</div><div>m:=0;</div><div>j:=0;</div><div>n:=0;</div><div>q:=0;</div><div>begin</div><div>     w:=trenutni^.mat;</div><div>     l:=trenutni^.proc;</div><div>     m:=trenutni^.graf;</div><div>     j:=trenutni^.ram;</div><div>     n:=trenutni^.di;</div><div>     q:=trenutni^.nap;</div><div>end;</div><div>y:=w+l+m+j+n+q;</div><div>writeln('Cijena i komponente');</div><div>writeln('======');</div><div>writeln('Ukupna cijena vaseg racunala iznosi = ',y,' kn');</div><div>writeln('======');</div><div>writeln('Komponente koje ste izabrali:');</div><div>writeln('');</div><div>{Maticne}</div><div>writeln('Maticna ploca:');</div><div>if trenutni^.mat=trenutni^.nmc1 then</div><div>writeln('',trenutni^.nm1,'; ',trenutni^.socketm1,'; ',trenutni^.nms1,' - ',trenutni^.nmc1,' kn')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc2 then</div><div>writeln('',trenutni^.nm2,'; ',trenutni^.socketm2,'; ',trenutni^.nms2,' - ',trenutni^.nmc2,' kn')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc3 then</div><div>writeln('',trenutni^.nm3,'; ',trenutni^.socketm3,'; ',trenutni^.nms3,' - ',trenutni^.nmc3,' kn')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc4 then</div><div>writeln('',trenutni^.nm4,'; ',trenutni^.socketm4,'; ',trenutni^.nms4,' - ',trenutni^.nmc4,' kn');</div><div>{Procesori}</div><div>writeln('');</div><div>writeln('Procesor:');</div><div>if trenutni^.proc=trenutni^.npc1 then</div><div>writeln('',trenutni^.np1,'; ',trenutni^.socketp1,'; ',trenutni^.nps1,' - ',trenutni^.npc1,' kn')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc2 then</div><div>writeln('',trenutni^.np2,'; ',trenutni^.socketp2,'; ',trenutni^.nps2,' - ',trenutni^.npc2,' kn')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc3 then</div><div>writeln('',trenutni^.np3,'; ',trenutni^.socketp3,'; ',trenutni^.nps3,' - ',trenutni^.npc3,' kn')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc4 then</div><div>writeln('',trenutni^.np4,'; ',trenutni^.socketp4,'; ',trenutni^.nps4,' - ',trenutni^.npc4,' kn');</div><div>{Graficke}</div><div>writeln('');</div><div>writeln('Graficka karta:');</div><div>if trenutni^.graf=trenutni^.ngc1 then</div><div>writeln('',trenutni^.ng1,'; ',trenutni^.ngs1,' - ',trenutni^.ngc1,' kn')</div><div>else</div><div>if trenutni^.graf=trenutni^.ngc2 then</div><div>writeln('',trenutni^.ng2,'; ',trenutni^.ngs2,' - ',trenutni^.ngc2,' kn')</div><div>else</div><div>if trenutni^.graf=trenutni^.ngc3 then</div><div>writeln('',trenutni^.ng3,'; ',trenutni^.ngs3,' - ',trenutni^.ngc3,' kn')</div><div>else</div><div>if trenutni^.graf=trenutni^.ngc4 then</div><div>writeln('',trenutni^.ng4,'; ',trenutni^.ngs4,' - ',trenutni^.ngc4,' kn');</div><div>{RAM}</div><div>writeln('');</div><div>writeln('RAM:');</div><div>if trenutni^.ram=trenutni^.nrc1 then</div><div>writeln('',trenutni^.nr1,'; ',trenutni^.nrs1,' - ',trenutni^.nrc1,' kn')</div><div>else</div><div>if trenutni^.ram=trenutni^.nrc2 then</div><div>writeln('',trenutni^.nr2,'; ',trenutni^.nrs2,' - ',trenutni^.nrc2,' kn');</div><div>{Tvrdi diskovi}</div><div>writeln('');</div><div>writeln('Tvrdi disk:');</div><div>if trenutni^.di=trenutni^.ndc1 then</div><div>writeln('',trenutni^.nd1,'; ',trenutni^.nds1,' - ',trenutni^.ndc1,' kn')</div><div>else</div><div>if trenutni^.di=trenutni^.ndc2 then</div><div>writeln('',trenutni^.nd2,'; ',trenutni^.nds2,' - ',trenutni^.ndc2,' kn');</div><div>{Napajanja}</div><div>writeln('');</div><div>writeln('Napajanje:');</div><div>if trenutni^.nap=trenutni^.nnc1 then</div><div>writeln('',trenutni^.nn1,'; ',trenutni^.nns1,' - ',trenutni^.nnc1,' kn')</div><div>else</div><div>if trenutni^.nap=trenutni^.nnc2 then</div><div>writeln('',trenutni^.nn2,'; ',trenutni^.nns2,' - ',trenutni^.nnc2,' kn');</div><div>{Usporedbe socketa}</div><div>writeln('');</div><div>if trenutni^.mat=trenutni^.nmc1 then</div><div>writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm1,';')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc2 then</div><div>writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm2,';')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc3 then</div><div>writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm3,';')</div><div>else</div><div>if trenutni^.mat=trenutni^.nmc4 then</div><div>writeln('Socket trenutno odabrane maticne ploce: ',trenutni^.socketm4,';');</div><div>if trenutni^.proc=trenutni^.npc1 then</div><div>writeln('Socket trenutno odabranog procesora: ',trenutni^.socketp1,';')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc2 then</div><div>writeln('Socket trenutno odabranog procesora: ',trenutni^.socketp2,';')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc3 then</div><div>writeln('Socket trenutno odabranog procesora: ',trenutni^.socketp3,';')</div><div>else</div><div>if trenutni^.proc=trenutni^.npc4 then</div><div>writeln('Socket trenutno odabranog procesora: ',trenutni^.socketp4,';');</div><div>readln;</div><div>end;</div><div><br></div><div>{O programu}</div><div>procedure opis;</div><div>begin</div><div>clrscr();</div><div>writeln('O programu');</div><div>writeln('======');</div><div>writeln('Program za odabir konfiguracije za seminar iz informatike.');</div><div>writeln('Napravio Dino Dzafovic, Lipanj 2012.');</div><div>writeln('Pritisnite <ENTER> da bi se vratili u izbornik.');</div><div>readln;</div><div>end;</div><div><br></div><div>begin</div><div>    new(trenutni);</div><div>    clrscr();</div><div>    repeat</div><div>    clrscr();</div><div>    writeln('Dodavanje komponenata');</div><div>    writeln('======');</div><div>    writeln('1. Dodaj maticne ploce');</div><div>    writeln('2. Dodaj procesore');</div><div>    writeln('3. Dodaj graficke karte');</div><div>    writeln('4. Dodaj RAM');</div><div>    writeln('5. Dodaj tvrdi disk');</div><div>    writeln('6. Dodaj napajanje');</div><div>    writeln('======');</div><div>    writeln('0. Pokreni Program');</div><div>    writeln('======');</div><div>    write('Tvoj izbor => ');</div><div>    readln(x);</div><div>    case x of</div><div>    0: x:=0;</div><div>    1: dodajmat;</div><div>    2: dodajproc;</div><div>    3: dodajgraf;</div><div>    4: dodajram;</div><div>    5: dodajdisk;</div><div>    6: dodajnap;</div><div>    end;</div><div>    until x=0;</div><div>    pocetni:=NIL;</div><div>    repeat</div><div>    clrscr();</div><div>    writeln('Program za odabir konfiguracije racunala');</div><div>    writeln('======');</div><div>    writeln('1. Odaberi maticnu plocu');</div><div>    writeln('2. Odaberi procesor');</div><div>    writeln('3. Odaberi graficku karticu');</div><div>    writeln('4. Odaberi RAM');</div><div>    writeln('5. Odaberi tvrde diskove');</div><div>    writeln('6. Odaberi napajanja');</div><div>    writeln('======');</div><div>    writeln('7. Obrisi komponentu');</div><div>    writeln('8. Prikazi cijenu');</div><div>    writeln('======');</div><div>    writeln('9. O programu');</div><div>    write('Tvoj izbor => ');</div><div>    readln(i);</div><div>    case i of</div><div> 1: maticna;</div><div> 2: procesor;</div><div> 3: graficka;</div><div> 4: rammem;</div><div> 5: disk;</div><div> 6: napajanje;</div><div> 7: obrisi;</div><div> 8: ukupno;</div><div> 9: opis;</div><div>    end;</div><div>    until i=0;</div><div>end.</div> https://f1racingfans.do.am/blog/napokon_gotovo_juhu/2012-06-12-168 Administrator https://f1racingfans.do.am/blog/napokon_gotovo_juhu/2012-06-12-168 Mon, 11 Jun 2012 21:39:02 GMT Borna program Racunanje_cijene_plina;<br>uses crt,graph;<br>type pokazivac=^struktura;<br>     struktura=record<br> ime:string[30];<br> mjesto:string[20];<br> ulica:string[50];<br> postanski_broj:integer;<br> v:real;<br> e:real;<br> eo:real;<br> cbruto:real;<br> cneto:real;<br> p:pokazivac;<br>     end;<br>var trenutni,pocetni,prethodni:pokazivac;<br>    i:integer;<br><br>{PROCEDURA ZA UNOS NOVOG E... program Racunanje_cijene_plina;<br>uses crt,graph;<br>type pokazivac=^struktura;<br>     struktura=record<br> ime:string[30];<br> mjesto:string[20];<br> ulica:string[50];<br> postanski_broj:integer;<br> v:real;<br> e:real;<br> eo:real;<br> cbruto:real;<br> cneto:real;<br> p:pokazivac;<br>     end;<br>var trenutni,pocetni,prethodni:pokazivac;<br>    i:integer;<br><br>{PROCEDURA ZA UNOS NOVOG ELEMENTA LISTE:}<br>procedure dodaj;<br>begin <br>  new(trenutni);<br>  clrscr();<br>  writeln('UNOS PODATAKA');<br>  writeln('======================');<br>  write('Ime i prezime korisnika  => ');<br>  readln(trenutni^.ime);<br>  write('Mjesto u kojem korisnik stanuje => ');<br>  readln(trenutni^.mjesto);<br>  write('Ulica u kojoj korisnik stanuje => ');<br>  readln(trenutni^.ulica);<br>  write('Broj na kojem korisnik stanuje => ');<br>  readln(trenutni^.postanski_broj);<br>  write('Unesite potrosenu kolicinu plina,kubikazu =>');<br>  readln(trenutni^.v);<br>  trenutni^.e:=trenutni^.v * (33.33835/3.6);<br>  trenutni^.eo:=trenutni^.e-trenutni^.v*9.2607;<br>  trenutni^.cbruto:=trenutni^.e*0.252357+trenutni^.eo*0.183571;<br>  trenutni^.cneto:=trenutni^.cbruto*1.25;<br>  trenutni^.p:=pocetni;<br>  pocetni:=trenutni;<br>end;<br><br>{PROCEDURA ZA BRISANJE KORISNIKA}<br>procedure obrisi;<br>var ime:string[30];<br>    nadjen:boolean;<br>begin<br>    clrscr();<br>    writeln ('Unesite korisnika kojeg zelite ukloniti => ');<br>    readln(ime);<br>    trenutni:=pocetni;<br>    prethodni:=nil;<br>    nadjen:=false;<br>    while (trenutni<>nil) and not nadjen do<br>    begin<br>    if ime<>trenutni^.ime then<br>    begin<br>    prethodni:=trenutni;<br>    trenutni:=trenutni^.p;<br>    end<br>    else nadjen:=true;<br>    end;<br>    if nadjen then<br>    begin<br>    if prethodni=nil then<br>    pocetni:=trenutni^.p;<br>    if (prethodni <> nil) and (trenutni<>nil) then<br>    prethodni^.p:=nil;<br>    dispose(trenutni);<br>    writeln('Obrisan je',ime);<br>    end<br>    else writeln('Nema tog korisnika!');<br>end;<br><br>{PROCEDURA ZA RAČUNANJE UKUPNU CIJENU PLINA}<br>procedure vrijednost;<br>var a,b,c,d:real;<br>begin<br>  trenutni:=pocetni;<br>  b:=0;<br>  a:=0;<br>  d:=0;<br>  c:=0;<br>  clrscr();<br>  writeln('UKUPNA VRIJEDNOS,KOLICINA,ENERGIJA,CIJENA');<br>  writeln('=======================');<br>  while trenutni<>NIL do<br>  begin<br>     a:=a+trenutni^.v;<br>     b:=b+trenutni^.e;<br>     c:=c+trenutni^.cbruto;<br>     d:=d+trenutni^.cneto;<br>     trenutni:=trenutni^.p;<br>  end; <br>  writeln('=======================');<br>  writeln('Potrosen plin=>',a:4:2,'metara kubicnih');<br>  writeln('Potrosena energija=>',b:4:2,'MJ');<br>  writeln('Cijena bez poreza=>',c:4:2,'kn');<br>  writeln('Cijena s porezom=>',d:4:2,'kn');<br>  writeln;<br>  readln;<br>end;<br><br><br>{PROCEDURA ZA RAČUNANJE UKUPNU CIJENE PLINA U JEDNOJ ULICI}<br>procedure ulica;<br>var a,b,c,d:real;<br>    s,k:string;<br>begin<br>  trenutni:=pocetni;<br>  clrscr();<br>  b:=0;<br>  a:=0;<br>  d:=0;<br>  c:=0;<br>  writeln('Unesite ime grada u kojem korisnici se nalaze');<br>  readln(k);<br>  writeln('Unesite ime ulice u kojoj korisnici se nalaze');<br>  readln(s);<br>  writeln('UKUPNA VRIJEDNOST,KOLICINA,ENERGIJA,CIJENA ULICE');<br>  writeln('=======================');<br>  while trenutni<>NIL do<br>  begin<br>  if (k=trenutni^.mjesto) and (s=trenutni^.ulica)  then<br>  begin<br>     a:=a+trenutni^.v;<br>     b:=b+trenutni^.e;<br>     c:=c+trenutni^.cbruto;<br>     d:=d+trenutni^.cneto;<br>  end<br>  else writeln('Ulica nije nadjena');<br>     trenutni:=trenutni^.p;<br>  end;<br>  writeln('=======================');<br>  writeln('Potrosen plin=>',a:4:2,'metara kubicnih');<br>  writeln('Potrosena energija=>',b:4:2,'MJ');<br>  writeln('Cijena bez poreza=>',c:4:2,'kn');<br>  writeln('Cijena s porezom=>',d:4:2,'kn');<br>  writeln;<br>  readln;<br>end;<br><br><br>{PROCEDURA ZA RAČUNANJE CIJENE PLINA ZA JEDNOG KORISNIKA}<br>procedure korisnik;<br>var a,b,c,d:real;<br>    s:string;<br>begin<br>  trenutni:=pocetni;<br>  clrscr();<br>  a:=0;<br>  b:=0;<br>  d:=0;<br>  c:=0;<br>  writeln('Unesite korisnika o kojem zelite saznati podatke');<br>  readln(s);<br>  writeln('UKUPNA VRIJEDNOST,KOLICINA,ENERGIJA,CIJENA ULICE');<br>  writeln('=======================');<br>  while trenutni<>NIL do<br>  begin<br>  if s=trenutni^.ime then<br>  begin<br>     a:=a+trenutni^.v;<br>     b:=b+trenutni^.e;<br>     c:=c+trenutni^.cbruto;<br>     d:=d+trenutni^.cneto;<br>  end<br>  else writeln('Korisnik nije nadjen');<br>     trenutni:=trenutni^.p;<br>  end; <br>  writeln('=======================');<br>  writeln('Potrosen plin=>',a:4:2,'metara kubicnih');<br>  writeln('Potrosena energija=>',b:4:2,'MJ');<br>  writeln('Cijena bez poreza=>',c:4:2,'kn');<br>  writeln('Cijena s porezom=>',d:4:2,'kn');<br>  readln;<br>end;<br><br>{PROCEDURA ZA RAČUNANJE UKUPNU CIJENU PLINA U JEDNOM MJESTU}<br>procedure grad;<br>var a,b,c,d:real;<br>    s:string;<br>begin<br>  trenutni:=pocetni;<br>  clrscr();<br>  a:=0;<br>  b:=0;<br>  c:=0;<br>  d:=0;<br>  writeln('Unesite ime mjesta koje zelite analizirati');<br>  readln(s);<br>  writeln('UKUPNA VRIJEDNOST,KOLICINA,ENERGIJA,CIJENA MJESTA');<br>  writeln('=================================================');<br>  while trenutni<>NIL do<br>  begin<br>  if s=trenutni^.mjesto then<br>  begin<br>     a:=a+trenutni^.v;<br>     b:=b+trenutni^.e;<br>     c:=c+trenutni^.cbruto;<br>     d:=d+trenutni^.cneto;<br>  end<br>  else writeln('Mjesto nije nadjeno');<br>     trenutni:=trenutni^.p;<br>  end; <br>  writeln('=================================================');<br>  writeln('Potrosen plin=>',a:4:2,'metara kubicnih');<br>  writeln('Potrosena energija=>',b:4:2,'MJ');<br>  writeln('Cijena bez poreza=>',c:4:2,'kn');<br>  writeln('Cijena s porezom=>',d:4:2,'kn');<br>  writeln;<br>  readln;<br>end;<br><br>{PROCEDURA ZA UNOS PODATAKA U TEKSTUALNU DATOTEKU}<br>procedure tekst;<br>var f:text;<br>begin<br>  trenutni:=pocetni;<br>  clrscr();<br>  assign(f,'plin.txt');<br>  rewrite(f);<br>  while trenutni<>NIL do<br>  begin<br>     writeln(f,trenutni^.ime:30,trenutni^.mjesto:20,trenutni^.ulica:50,trenutni^.postanski_broj,trenutni^.e:2:4,trenutni^.cbruto:2:4,trenutni^.cneto);<br>     trenutni:=trenutni^.p;<br>     write('#');<br>  end;<br>  writeln;<br>  close(f);<br>  readln;<br>end;<br><br>{PROCEDURA ZA USPOREDBU BAR GRAFOM KOLICINE PLINA}<br>procedure koordinatni;<br>var gd,gm:smallint;<br>    x,y,n,i:integer;<br>    k:array[1..1000] of string[30];<br>    l:array[1..1000] of integer;<br>begin<br>detectgraph(gd,gm);<br>initgraph(gd,gm,'');<br>clrscr();<br>x:=0;<br>y:=getmaxy div 2;<br>writeln('Ucitajte zeljeni broj ljudi koje zelite graficki usporediti');<br>readln(n);<br>for i:=1 to n do<br>begin<br>writeln('Unesite ime osobe koju zelite usporediti');<br>readln(k[i]);<br>end;<br>while trenutni<>NIL do<br>begin<br>if k[i]=trenutni^.ime then<br>for i:=1 to n do<br>begin<br>l[i]:=round(trenutni^.v);<br>end;<br>trenutni:=trenutni^.p;<br>end;<br>for i:=1 to n do<br>begin<br>setfillstyle(1,3);<br>bar(x,y,x+10,y-l[i]);<br>outtextxy(x,y+10,k[i]);<br>x:=x+100;<br>end;<br>readln;<br>closegraph;<br>end;<br><br>{PROCEDURA ZA USPOREDBU CHUCKOVIM GRAFOM KOLICINE PLINA}<br>procedure maxminusp;<br>var gd,gm:smallint;<br>    x,y,z,e:integer;<br>    s,f:string[20];<br>begin<br>detectgraph(gd,gm);<br>initgraph(gd,gm,'');<br>x:=10;<br>y:=10;<br>z:=0;<br>e:=maxint;<br>while trenutni<>NIL do<br>  begin<br>     i:=round(trenutni^.v);<br>     if  i>z  then<br>     begin<br>     s:=trenutni^.ime;<br>     z:=i;<br>     end;<br>     if i<e then<br>     begin<br>     f:=trenutni^.ime;<br>     e:=i;<br>     end;<br>     trenutni:=trenutni^.p;<br>  end;<br>  setcolor(4);<br>  circle(getmaxx div 2, getmaxy div 2, z);<br>  outtextxy(x,y,s);<br>  setcolor(3);<br>  circle(getmaxx div 2, getmaxy div 2, e);<br>  outtextxy(x,y+10,f);<br>readln;<br>closegraph;<br>end;<br><br>procedure ekstremkubikaza;<br>var a,u:integer;<br>    b,c:string[20];<br>begin<br>trenutni:=pocetni;<br>a:=0;<br>clrscr();<br>while trenutni<>NIL do<br>begin<br>b:=trenutni^.ime;<br>u:=round(trenutni^.v);<br>if u>a then<br>begin<br>     c:=b;<br>     a:=u;<br>end;<br>trenutni:=trenutni^.p;<br>end;<br>writeln('Najvise je potrosio:',c,' ',a,' kubika');<br>readln;<br>end;<br><br><br>procedure minimum;<br>var a,u:integer;<br>    b,c:string[20];<br>begin<br>trenutni:=pocetni;<br>a:=maxint;<br>clrscr();<br>while trenutni<>NIL do<br>begin<br>b:=trenutni^.ime;<br>u:=round(trenutni^.v);<br>if u<a then<br>begin<br>     c:=b;<br>     a:=u;<br>end;<br>trenutni:=trenutni^.p;<br>end;<br>writeln('Najmanje je potrosio:',c,' ',a,' kubika');<br>readln;<br>end;<br><br>procedure ispis;<br>begin<br>  trenutni:=pocetni;<br>  clrscr();<br>  writeln('ISPIS');<br>  writeln('=======================');<br>  while trenutni<>NIL do<br>  begin<br>  writeln('IME-',trenutni^.ime);<br>  writeln('ADRESA-',trenutni^.mjesto,' ',trenutni^.ulica,' ',trenutni^.postanski_broj);<br>  writeln('POTROSNJA-',trenutni^.v:4:2,'metara kubicnih');<br>  writeln('CIJENA NETO-',trenutni^.cneto:4:2,'kn');<br>  writeln('CIJENA BRUTO-',trenutni^.cbruto:4:2,'kn');<br>  writeln('=======================');<br>  trenutni:=trenutni^.p;<br>  end;<br>  writeln;<br>  readln;<br>end;<br>begin<br>    pocetni:=NIL;<br>    repeat<br>    clrscr();<br>    writeln('PROGRAM ZA RACUNANJE POTROSENOG PLINA');<br>    writeln('==================================================================');<br>    writeln('1. Dodaj podatke o korisniku');<br>    writeln('2. Obrisi zeljenog korisnika');<br>    writeln('3. Ispisi ukupnu vrijednost potrosenog plina plina,kolicinu i energiju');<br>    writeln('4. Pronadite zeljenog korisnika');<br>    writeln('5. Ispisi vrijednost potrosenog plina plina,kolicinu i energiju jedne ulice');<br>    writeln('6. Ispisi vrijednost potrosenog plina plina,kolicinu i energiju jednog mjesta');<br>    writeln('7. Upis u datoteku s nazivom plin');<br>    writeln('8. Usporedi zeljeni broj korisnika bar grafom po kolicini potrosenog plina');<br>    writeln('9. Usporedi maxpotrosaca i minpotrosaca plina');<br>    writeln('10. Nadi osobu koja najvise trosi plin');<br>    writeln('11. Nadi osobu koja najmanje trosi plin');<br>    writeln('12. Ispisi ljude koji su uneseni');<br>    writeln('0. Kraj');<br>    write('Tvoj izbor => ');<br>    readln(i);<br>    case i of<br> 1: dodaj;<br> 2: obrisi;<br> 3: vrijednost;<br> 4: korisnik;<br> 5: ulica;<br> 6: grad;<br> 7: tekst;<br> 8: koordinatni;<br> 9: maxminusp;<br> 10:ekstremkubikaza;<br> 11:minimum;<br> 12:ispis;<br>    end;<br>    until i=0;<br>end.<br> https://f1racingfans.do.am/blog/borna/2012-06-11-167 vajmar1 https://f1racingfans.do.am/blog/borna/2012-06-11-167 Sun, 10 Jun 2012 20:49:58 GMT