PASCAL MOLIM VAS ZA POMOC
Prikazujem rezultate 1 do 15 od 15

Tema: PASCAL MOLIM VAS ZA POMOC

  1. #1
    Zainteresovan član
    Učlanjen
    07.12.2004.
    Poruke
    164
    Reputaciona moć
    49

    Podrazumevano HVALA

    HVALA , NEK TI BOG PODARI SVE STO POZELIS !
    Poslednji put ažurirao/la sklopotnica : 26.04.2006. u 09:25



  2. #2
    Iskusan codemaker (avatar)
    Učlanjen
    05.04.2004.
    Lokacija
    Beograd
    Poruke
    6.416
    Reputaciona moć
    0

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    I to sve treba da "zgruvas" za ujutro?
    Najlakse i najbrze resenje ce ti biti da ubijes profesora....

    Salim se naravno, ali verovatno si trebala/o ranije vise raditi (ako jemoguce, jer premnogi profesori ni sami nista ne znaju, a kamoli to malo sto znaju da preneu ucenicima)
    A sami zadaci su stvarno egzemplari idiotizma.

    Mozda se neko nadje da ti pomogne, zelim ti srecu sutra

  3. #3
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    sad cu ih cas uradim. nije tesko. samo da pogledam nesto.

    bice tu do ponoci sva 4


  4. #4
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    2.
    var niz:array [20] of integer;
    i, a, b:integer;
    min:integer;

    function manji(a, b:integer);
    begin if a<b then manji:=a else manji:=b end;
    begin
    for i:= 1 to 20 do read(niz[i]);
    min:=niz[1];
    for i:= 1 to 19 do begin
    if min>manji (niz[i], niz[i+1]) then min:=manji(niz[i],niz[i+1]) end;
    write(min);
    end.

    nije bas elegantno ali moze da prodje


    kasnije cu i ostale
    malo su duzi...


  5. #5
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    function jednaki(a,b:integer):boolean;
    begin if a=b then jednaki:=true else jednaki:=false end;



    program zad01;

    const n:=nesto ovde definises koliko ti je n. mora da bude neki broj
    var i, j, res1, res2:integer;

    function jednaki......

    begin
    niz:array[n] of integer;
    for i:= 1 to n
    for j:= i+1 to n
    begin if jednaki(abs(niz[i]), abs(niz[j]))=true then res1:=i;

    res2:=j end;

    writeln (i, j);
    end.



    program zad3;

    const n:= nesto;
    var
    A:array[1..n] of integer;
    B:array[1..n-1] of integer;
    C:array[1..n-2] of integer;

    procedure formiraj(i:integer);
    begin
    B[i]:=A[i+1]-A[i];
    C[i]:=max(A[i],A[i+1].A[i+2]);
    end;

    function max(a, b, c:integer):integer;
    begin
    if a>b then if a>c then max:=a else max:=c;
    if a<b then if b<c then max:=c else max:=b;
    end;

    begin
    for i:= 1 to n do read(A[i]);

    for i:=1 to n do formiraj(i);

    writeln('Niz A':10, 'Niz B':10, 'Niz C':10);

    for i:= 1 to n do begin {ovde moze da bude greska, posto b i c

    imaju manji broj clanova. u tom slucaju stavi 1 to n-2, pa posle dodaj

    dva reda: writeln(A[i+1]:10, B[i+1]:10); writeln(A[i+2]:10,

    B[i+2]:10);}
    writeln(A[i]:10, B[i]:10, C[i]:10) end;

    end.

    program zad4;

    const n:= nesto;
    var
    A:array[1..n] of integer;
    B:array[1..n] of integer;
    C:array[1..n] of integer;
    i, j:integer;
    procedure uredi;
    var c:integer;
    begin
    for i:= 1 to n-1 do
    for j:= 1 to n-1 do begin
    if B[i]>B[i+1] then begin c:=B[i]; B[i]:=B[i+1]; B[i+1]:=c end;
    if C[i]<C[i+1] then begin c:=C[i]; C[i]:=C[i+1]; C[i+1]:=c end;
    end;
    end;

    begin
    for i:= 1 to n do begin read(A[i]); B[i]:=A[i]; C[i]:=A[i] end;

    uredi;

    writeln('Niz A':10, 'Niz B':10, 'Niz C':10); (ista sema kao u

    trecem)
    for i:= 1 to n do begin
    writeln(A[i]:10, B[i]:10, C[i]:10);
    end;
    end.


    ovo bi trebalo da odradi stvar, mada nisam proverio

    ako nesto nije jasno zovi pa pitaj


  6. #6
    Iskusan codemaker (avatar)
    Učlanjen
    05.04.2004.
    Lokacija
    Beograd
    Poruke
    6.416
    Reputaciona moć
    0

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    Svaka cast Peruzzi!
    Ovo se zove drugarstvo!
    cestitam iz sveg srca

  7. #7
    Poznat Garwor (avatar)
    Učlanjen
    27.04.2004.
    Pol
    muški
    Poruke
    7.152
    Reputaciona moć
    121

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    Peruzzi, zasluzio si titulu Wizarda ( nesto kao ruzicasti grand prix) za ovu nedelju

  8. #8
    Zainteresovan član
    Učlanjen
    07.12.2004.
    Poruke
    164
    Reputaciona moć
    49

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    HVALA NEK TI BOG PODARI SVE STO POZELIS !

  9. #9
    Primećen član
    Učlanjen
    24.11.2003.
    Poruke
    641
    Reputaciona moć
    58

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    i ja sam nekad davno ucio pascal u skoli, a sad mi izgleda tako debilno.
    krajnje je vreme da ga zamene bar sa c.

  10. #10
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    Fala fala...

    Opi, brate, jeste debilan ali ipak najzgodniji da se utuvi u glavu djacima. Nije c za pocetnike...

    E sad, treba meni pomoc.

    Pazi kod

    program zad01;

    var
    tekst, novi:string;
    i:integer;
    pozicija:integer;
    f:text;

    begin
    readln(tekst);
    pozicija:=length(tekst);
    for i:= length(tekst) downto 1 do begin
    if tekst[i]=' ' then novi:=novi+copy(tekst, i+1, pozicija - i);
    pozicija:=i end;
    assign(f, 'izlaz.txt'); rewrite(f);
    writeln(f, novi);
    close(f);
    end.

    program treba da ucitanu recenicu upise ali da okrene raspored reci naopako, tj. ako je ulaz 'jedan dva tri' da izlaz bude 'tri dva jedan'


    test ulaz je 'pera jedan dva'
    stavio sam namerno izlaz u fajl da bih video sta sve izlazi (zbog space i new line) i dobio ovo
    -----
    dj

    -----
    ([d][j][nov red])


    meni nije jasno zasto ne radi.



    objasnjene postupka:

    uzima se string i ide se unazad do prvog razmaka, onda se taj deo do kraja iskopira u nov string (zadnja rec) i ostavi marker na tom spaceu, zatim se dalje ide unazad do sledeceg space-a i ponovi isto, ali do markera (druga rec) itd do pocetka stringa


  11. #11
    Poznat Garwor (avatar)
    Učlanjen
    27.04.2004.
    Pol
    muški
    Poruke
    7.152
    Reputaciona moć
    121

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    Citat Original postavio Peruzzi
    Fala fala...

    Opi, brate, jeste debilan ali ipak najzgodniji da se utuvi u glavu djacima. Nije c za pocetnike...

    E sad, treba meni pomoc.

    Pazi kod

    program zad01;

    var
    tekst, novi:string;
    i:integer;
    pozicija:integer;
    f:text;

    begin
    readln(tekst);
    pozicija:=length(tekst);
    for i:= length(tekst) downto 1 do begin
    if tekst[i]=' ' then novi:=novi+copy(tekst, i+1, pozicija - i);
    pozicija:=i end;
    assign(f, 'izlaz.txt'); rewrite(f);
    writeln(f, novi);
    close(f);
    end.

    ...
    red
    pozicija:=i
    ti se nepotrebno izvrsava u svakoj iteraciji, treba samo kad apendujes na novi
    ovako je pozicija - i uvek 1 kad radis copy

  12. #12
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    pu MAJKU MU fali mi begin i end.
    to pozicija:=i treba da bude u sklopu if naredbe...


  13. #13
    Poznat Garwor (avatar)
    Učlanjen
    27.04.2004.
    Pol
    muški
    Poruke
    7.152
    Reputaciona moć
    121

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    eto, a da si na pocetku nacrtao dijagram toka, ne bi pogresio

  14. #14
    Zainteresovan član
    Učlanjen
    18.07.2004.
    Poruke
    118
    Reputaciona moć
    50

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    pih... meni je bolji VB 6
    Hello my bebe,
    h, my sugar.
    **** you sweet.

  15. #15
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: PASCAL MOLIM VAS ZA POMOC

    hehe...kvarezu mali...

    nego, jel zna neko sta je sa adresom z-trening.com?
    nije valjda da su je skinuli? a ja se tek logovao...


Slične teme

  1. Molim za pomoc
    Autor Halix u forumu Film i video
    Odgovora: 3
    Poslednja poruka: 11.02.2009., 19:55
  2. Molim, ali molim Vas za pomoć!
    Autor Stars111 u forumu Web dizajn
    Odgovora: 0
    Poslednja poruka: 24.03.2008., 11:39
  3. molim za pomoc
    Autor xpajamacax u forumu Dom i porodica
    Odgovora: 14
    Poslednja poruka: 23.02.2005., 11:37
  4. Pomoc u pascal-u
    Autor nikola88 u forumu Programiranje
    Odgovora: 9
    Poslednja poruka: 01.11.2003., 12:49

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
  •