Započni novu temu Odgovori na temu  [ 9 Posta ] 
Autoru Poruka
 Tema posta:
PostPoslato: 17.01.2003. 11:46:01 

Pridružio se: 15.01.2002. 00:30:21
Postovi: 73
Lokacija: uzice
napisati paskal program za pracenje glasanja na muzickom festivalu
svaka pesma dobija ocenu zirija od 0 do 10,
program treba da omoguci unos naziva pesme
nazive izvodjaca, i broj osvojenih bodova, kao i
izlistavanje rezultata po opadajucem broju bodova.
Moze da glasa samo jedan covek, i trebalo bi da odmah izlistava stanje.Da naglasim da je ovde obavezno koriscenje lista.Oki pozeljno bi bilo i komentarisanje procedura vezanih za sortiranje sa listama, ker tu je meni glavni problem.

_________________
www.root-sys.com/lug/forum lug, uclanite se


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 17.01.2003. 18:35:34 

Pridružio se: 17.01.2002. 01:08:22
Postovi: 261
Lokacija: /home/kruzer/
Pa nemoj samo da napi


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 17.01.2003. 18:40:25 
Moderator
Korisnikov avatar

Pridružio se: 13.11.2001. 08:45:08
Postovi: 4717
Lokacija: Novi Bgd.
Godina: Dipl.
Smer: IS
Pa ti si se ba

_________________
Oni hipotetički kostrukti o kojima se može govoriti kao o konzistentnim i relativno trajnim dinamičkim sistemima koji objašnjavaju veći deo procesa motivacije, obuhvatajući i ciljeve i motive kroz njihove međusobne relacije, čime se mogu uslovno..


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 19.01.2003. 12:59:40 

Pridružio se: 15.01.2002. 00:30:21
Postovi: 73
Lokacija: uzice
Probao sam, ali imam problema sa pointerima, nisam isao na predavanja, a iz knjige se malo razumeva, a zbog toga je ceo zadatak povezan sa ovim (Zbog struktur epodataka).A sto da ne pitam, ovo mi je poslednji zadatak (ako ga uradim ne idem na kolokvijum), a i drugi kad nesto pitaju ja kazem ako znam.

_________________
www.root-sys.com/lug/forum lug, uclanite se


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 20.01.2003. 09:50:45 
Moderator
Korisnikov avatar

Pridružio se: 13.11.2001. 08:45:08
Postovi: 4717
Lokacija: Novi Bgd.
Godina: Dipl.
Smer: IS
Ja sam ti u su

_________________
Oni hipotetički kostrukti o kojima se može govoriti kao o konzistentnim i relativno trajnim dinamičkim sistemima koji objašnjavaju veći deo procesa motivacije, obuhvatajući i ciljeve i motive kroz njihove međusobne relacije, čime se mogu uslovno..


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 22.01.2003. 00:00:51 

Pridružio se: 15.01.2002. 00:30:21
Postovi: 73
Lokacija: uzice
Kod:
program pesme;
uses crt;
type
 pokazivac=^izvodjac;
 izvodjac=record
            bodovi:integer;
            naziv:string[80];
            pesma:string[30];
            redB:integer;
            sledeci:pokazivac;
 end;
 {Ovako znam da uradim
 izvodjac=record
 naziv:string;
 pesma:string;
 bodovi:integer;
 end;
 lista=record
 redbr:integer;
 sledeci:pokazivac;
 end;
 a pokazivac bi presako u ^lista}
var{Globalne promenjive}
 Redb:integer; {Na pocetku pitam  koliko pesama ima, radi izlaza
 i radi odvojenog unsa imena , naziva pesme,da bih odvojio proces od glasanja}
 Prvi:pokazivac;

{***************pocetak-----------------------------------------------------}

Procedure ispis(prvi:pokazivac);  {Ispisuje  listu}
var
 brojac:byte;
begin
 brojac:=0;
 while (prvi <> nil) do begin
  writeln(prvi^.naziv:10,' | ',prvi^.pesma,':',prvi^.bodovi);{Ispisuje }
  prvi:=prvi^.sledeci;    {Linujem na sledeci}
  {Pa nastavljam dalje}
  inc(brojac);       {Zastita zbog duzine ekrana}
  if brojac=35 then begin;brojac:=0; end;
 end;
end;

Procedure Menu;
var            {Mora malo da se preradi}
opcija:char;
begin                      {smesna}
 writeln;writeln;writeln;
 writeln('.---+-----------+-----------------------.');
 writeln('|   |  opcije:  |                       |');
 writeln('| 1 | ispis                             |');
 writeln('| 2 | Glasj                             |');
 writeln('| 3 | Promeni naziv pesme               |');
 writeln('| 4 | Snimi rezultat u datoteku         |');
 writeln('|   |                                   |');
 writeln('| 5 | --> IZLAZ                         |');
 writeln('+---''                                   |');
 writeln('|                                       |');
 writeln('`---------------------------------------''');
  Repeat
  opcija:=readkey;
  if not(opcija in ['1'..'5']) then continue else clrscr;
  case opcija of
   '1':sortl;     {Sotiranje}
   '4':if (prvi<>nil) then begin
                             ispis(prvi);
                             writeln;
                             writeln ('pritisni bilo koji taster za kraj');
                             readkey;
                             clrscr;
                            end
                            else writeln('Lista je prazna');
  end;
  Menu;{Rekurzijica}
 until opcija='5';
end; {Menu}

Procedure isprazni (var temp1:pokazivac);
{Procedura sluzi da isprazni listu, daje joj se samo pozicija odakle pocinjem da
praznim listu, u pitanju su jednostruke liste}
var
 temp2:pokazivac;{ lokalna promenjive cisto zbog promene}
BEGIN
 writeln;
  while(temp1<>nil) do
   begin  {Dok ne dodje na kraj}
    temp2:=temp1^.sledeci;      {Menjam,da bi posle zamenio}
    dispose(temp1);   {Praznim}
    temp1:=temp2;  {Sa sledecom nastavljam}
   end;
 temp1:=nil;{Pozicija}
end;

Procedure linkovanje(var curr:pokazivac;var nw:pokazivac);{Dodaje u listu}
BEGIN
 nw^.sledeci:=curr;
 curr:=nw;               {Linkovanje jednog na drugi}
END;
Procedure redbroj(var redbroj:integer);
begin
writeln ('Ovaj program je namenjen za glasanje na muzickom festivalu');
writeln;
WRITELN;
WRITELN ('Sada unesite koliko ce biti takmicara');
repeat
{$I-}
readln (redbroj);
if (ioresult<>0) or (redbroj<2) or  (redbroj>20) writeln (perr);
until (ioresult=0) and (redbroj>1) and (redbroj<21);{$i+};
end;


Procedure sortl;     {Sortirane}
var
 nw,temp:Pokazivac;
 Procedure citajd(var nw:Pokazivac;autor,pesma:string);   {Sluzi za glasanje, da se u slog ubaci bodovi}
begin
  nw^.sledeci:=nil;
  writeln ('Molimo vas ocenite datu pesmu ocenom od 1 d0 10');
  writeln(autor:14,':',pesma);
  readln(nw^.bodovi);{Ovo treba da se pobojsa u kasnijoj reviziji
  tako sto nece menajti vrednost vec sabirati}
end;
Begin
  if (prvi<>nil) then isprazni(prvi);  {Oslobodi memoriju}}

 new(prvi);
  nw:=nil;
 {Ovde treba da se postovi nesto za uslov while ili repeat}
  new(nw);
  ispis(prvi);{Treba da ostampam stanje na tabeli pre glasanja}
  citajd(nw);
  IF (prvi^.bodovi > nw^.bodovi) THEN {Ako je veci od prvog ubaci ga iza prvog}
     linkovanje(prvi,nw)
  ELSE
   BEGIN
   temp:=prvi;
   while (temp^.sledeci <> NIL) AND (temp^.sledeci^.bodovi < nw^.bodovi) do temp:=temp^.sledeci;
   {A ako nije nastavi sekvencijalno}
   dodajl(temp^.sledeci,nw);           END;
  end;
  temp:=nil;
end;


END;
BEGIN {------------- MAIN PROGRAM ------------------------------------------}
 TextMode(c80+Font8x8);
 TextColor(4);TextBackground(7);
                             {Ovde kasnije sredi nadogradnja
za sada nisam podesio menije ali je to lamerska stvar,
treba prvo da ide nesto kao broj prijavljenih ucesnika,
pa onda da se ubaci njihov naziv i naziv pesme,
pa onda da startuje meni, koji ce imati opcije tipa glasanje}
 clrscr;
 writeln; writeln;
   prvi:=nil;

 Menu;


END.{main  


Ja sam samo dovde uspeo sam da dodjem.

_________________
www.root-sys.com/lug/forum lug, uclanite se


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 22.01.2003. 00:04:57 

Pridružio se: 15.01.2002. 00:30:21
Postovi: 73
Lokacija: uzice
Tacnije ovde me buni jedna sytvar samo.Ovaj zadatak bih uradio kada bise uporedo unosili naziv pesme, autor, i bodovi, ali ja hocu da razdvojim ova dva procesa.A nisam skontao kako.

_________________
www.root-sys.com/lug/forum lug, uclanite se


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 23.01.2003. 06:49:48 
Moderator
Korisnikov avatar

Pridružio se: 13.11.2001. 08:45:08
Postovi: 4717
Lokacija: Novi Bgd.
Godina: Dipl.
Smer: IS
Onaj tvoj kod je nezavrsen i nije mi jasni

_________________
Oni hipotetički kostrukti o kojima se može govoriti kao o konzistentnim i relativno trajnim dinamičkim sistemima koji objašnjavaju veći deo procesa motivacije, obuhvatajući i ciljeve i motive kroz njihove međusobne relacije, čime se mogu uslovno..


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
 Tema posta:
PostPoslato: 24.01.2003. 13:27:25 

Pridružio se: 15.01.2002. 00:30:21
Postovi: 73
Lokacija: uzice
Hala zlatko, na zalost kasno, ooki evo i mog koda, sa nekim izmenama koje su naknadno zahtevane od asistenta.

[code]PROGRAM lista1;
uses crt;
const broj=3;
TYPE

zirij=record
ime:string;
drzava:string;
end;
nizz=array[1..broj] of zirij;

  izvodjac = record
      ime: string;
      pesma:string;
      grad:string;
      drzava:string;
      bodovi:real;
  end;
  pl = ^cvor;   {pokazivac na slog cvor}
  cvor = record {cvor jednostruko spregnute liste}
      podaci: izvodjac;
      veza: pl;
  end;

VAR
  glava: pl; ziri:nizz;

  Procedure isprazni (var temp1:pl);
{Procedura sluzi da isprazni listu, daje joj se samo pozicija odakle pocinjem da
praznim listu, }
var
temp2:pl;{ lokalna promenjive cisto zbog promene}
BEGIN
writeln;
 while(temp1<>nil) do
  begin  {Dok ne dodje na kraj}
   temp2:=temp1^.veza;      {Menjam,da bi posle zamenio}
   dispose(temp1);   {Praznim}
   temp1:=temp2;  {Sa sledecom nastavljam}
  end;
temp1:=nil;{Pozicija}
end;
Procedure velika(var s:string);
Var i,j:integer;
Begin
 j:=Length(s);
 For i:=1 to  j Do
  s[i]:=UpCase(s[i]);
end;
{najva

_________________
www.root-sys.com/lug/forum lug, uclanite se


Share on FacebookShare on TwitterShare on Google+
Vrh
 Profil  
Odgovori sa citatom  
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 9 Posta ] 


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 20 gostiju


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
cron
Copyleft FONForum 2001-2014 | Powered by phpBB © phpBB Group