Problem u Pascal-u
Prikazujem rezultate 1 do 10 od 10

Tema: Problem u Pascal-u

  1. #1
    Početnik
    Učlanjen
    28.09.2004.
    Poruke
    14
    Reputaciona moć
    0

    Podrazumevano Problem u Pascal-u

    Imam problem sa nizovima u Pascal-u. Na primer, kad deklarisem promenljivu koja je nizovnog tipa ciji su elementi slogovi, onda se nesto nepredvidjeno desava (bar za mene nepredvidjeno) sa prvim elementom niza. Kao da ga "proguta" i taj prvi ne postoji. Zna li neko sta se u stvari desava sa tim prvim elementom niza. Kako izbeci taj problem i ubaciti prvi element?



  2. #2
    Iskusan Кулиража (avatar)
    Učlanjen
    21.12.2003.
    Pol
    muški
    Lokacija
    BG, Dusanovac
    Poruke
    5.842
    Reputaciona moć
    110

    Podrazumevano

    Kakve veze to ima sa softverom? :?

  3. #3
    Početnik
    Učlanjen
    28.09.2004.
    Poruke
    14
    Reputaciona moć
    0

    Podrazumevano

    Vidim razbijas programiranje. Hvala na velikodusnoj pomoci.

  4. #4
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    aj napisi kod koji koristis

  5. #5
    Zainteresovan član
    Učlanjen
    18.03.2004.
    Poruke
    122
    Reputaciona moć
    52

    Podrazumevano

    Verovatno da si nesto zeznuo sa indexima. U svakom slucaju, posalji kod, pa da vidimo.

  6. #6
    Početnik
    Učlanjen
    28.09.2004.
    Poruke
    14
    Reputaciona moć
    0

    Podrazumevano

    Problem u zadatku znam da resim. Jedini problem mi je unos prvog elementa u nizove (svi, primljeni, potost, osteceni).
    Za niz radnik sam "napunio" nulti, pa onda radi kako treba za taj niz, ali ostali ne funkcionisu. Hvala na pomoci.


    Zadatak:

    U preduzeću je raspisan konkurs za prijem 3 nova radnika. Radnik, da bi bio primljen,
    mora da zadovoljava sledeće uslove:
    1. mora da bude muškarac
    2. mlađi od 35 godina
    3. sa sedmim stepenom stručne spreme
    4. prosekom ocena na fakultetu većim od 8,00
    U kadrovskoj službi rade neodgovorni ljudi kojima je teško da pregledaju sve prijave.
    Zato će oni primiti prvu trojicu ljudi koji su konkurisali, a koji zadovoljavaju uslove konkursa.
    Napisati program koji će uneti podatke za sve prijavljene, ispisati imena trojice primljenih radnika,
    kao i listu oštećenih tj. onih koji imaju bolje karakteristike od primljenih.
    Najveći prioritet ima stručna sprema, pa prosek na fakultetu i na kraju starost.



    ║Program preduzece; ▲
    ║type ■
    ║ covek=record ▒
    ║ ime:string[40]; ▒
    ║ pol:char; ▒
    ║ god,ss:integer; ▒
    ║ po:real; ▒
    ║ end; ▒
    ║var ▒
    ║ radnik,svi,primljeni,potost,osteceni:array[1..100] of covek; ▒
    ║ n,i,j,a,brpotost:integer; ▒
    ║begin ▒
    ║ writeln('Unesite broj prijavljenih'); ▒
    ║ read(n); ▒
    ║ j:=0; ▒
    ║ for i:=0 to n do ▒
    ║ if i<>0 then ▒
    ║ begin ▒
    ║ writeln('Unesite podatke za radnika pol,godine,strucna sprema,prosek ocena i ime');▒
    ║ readln(radnik[i].pol); ▒
    ║ readln(radnik[i].god); ▼
    ║ readln(radnik[i].ss); ▲
    ║ readln(radnik[i].po); ▒
    ║ readln(radnik[i].ime); ▒
    ║ if ((radnik[i].pol = 'm') and (radnik[i].god < 35) and (radnik[i].ss >= 7) and (radnik[i].po >= 8.00)) then▒
    ║ begin ▒
    ║ j:=j+1; ▒
    ║ svi[j]:=radnik[i]; ■
    ║ end ▒
    ║ end ▒
    ║ else ▒
    ║ begin ▒
    ║ radnik[0].pol:='m'; ▒
    ║ radnik[0].god:=40; ▒
    ║ radnik[0].ss:=1; ▒
    ║ radnik[0].po:=2.0; ▒
    ║ radnik[0].ime:='stevan' ▒
    ║ end; ▒
    ║ ▒
    ║ for i:=1 to 3 do ▒
    ║ begin ▒
    ║ primljeni[i]:=svi[i]; ▼
    ║ end; ▲
    ║ for i:=1 to 3 do ▒
    ║ begin ▒
    ║ writeln(svi[i].ime) ▒
    ║ end; ▒
    ║ for i:=4 to n do ▒
    ║ begin ▒
    ║ potost[i-3]:=svi[i]; ▒
    ║ end; ▒
    ║ brpotost:=j-3; ▒
    ║ a:=0; ■
    ║ for j:=1 to brpotost do ▒
    ║ for i:=1 to 3 do ▒
    ║ if(potost[j].ss > primljeni[i].ss) then ▒
    ║ begin ▒
    ║ a:=a+1; ▒
    ║ osteceni[a]:=potost[j]; ▒
    ║ end ▒
    ║ else ▒
    ║ if(potost[j].po > primljeni[i].po) then ▒
    ║ begin ▼
    ║ a:=a+1; ▲
    ║ osteceni[a]:=potost[j]; ▒
    ║ end ▒
    ║ else ▒
    ║ if(potost[j].god=primljeni[i].god) then ▒
    ║ begin ▒
    ║ a:=a+1; ▒
    ║ osteceni[a]:=potost[j]; ▒
    ║ end; ▒
    ║ writeln('Imena primljenih su'); ▒
    ║ for i:=1 to 3 do ▒
    ║ begin ▒
    ║ writeln(primljeni[i].ime); ▒
    ║ end; ▒
    ║ writeln('Imena ostecenih su'); ▒
    ║ for i:=1 to a do ■
    ║ begin ▒
    ║ writeln(osteceni[a].ime); ▒
    ║ end; ▒
    ║ end. ▒

  7. #7
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    deklarisao si niz da pocinje od 1 a koristis nulti...
    svejedno mislim da je najbolje da se niz sortira po datim kriterijumuma pa da uzmes prva tri

    pozdravi

  8. #8
    Početnik
    Učlanjen
    12.11.2004.
    Lokacija
    Nish
    Poruke
    5
    Reputaciona moć
    0

    Podrazumevano

    Citat Original postavio stormbringer
    deklarisao si niz da pocinje od 1 a koristis nulti...
    svejedno mislim da je najbolje da se niz sortira po datim kriterijumuma pa da uzmes prva tri

    pozdravi
    a za radnikti radi zato sto si ga predeklarisao u kodu eksplicitnim navodjenjem radnik[0].

  9. #9
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    ne razumem bas sta si hteo time da kazes?

    navedeni su prioriteti zato sto se to koristi kod sortiranja...mislim da ti ne trazis najbolje ljude nego samo one koji zadovoljavaju

  10. #10
    Početnik
    Učlanjen
    28.09.2004.
    Poruke
    14
    Reputaciona moć
    0

    Podrazumevano

    Hvala svima na pomoci. Uspeo sam da resim problem, doduse na glup nacin, ali nema veze.

Slične teme

  1. pascal...
    Autor Lota u forumu Filozofija
    Odgovora: 1
    Poslednja poruka: 13.03.2007., 18:39
  2. Odgovora: 3
    Poslednja poruka: 01.12.2004., 15:15
  3. Problem u Pascal-u
    Autor kopanjal u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 21.11.2004., 16:02
  4. Pascal
    Autor n_i_c_k_y u forumu Programiranje
    Odgovora: 2
    Poslednja poruka: 29.10.2004., 23:27

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •