I pocetnici nesto znaju......;)

[ Passwd @ 09.04.2005. 21:35 ] @

Pogledajte sta je pocetnik napravio zahvaljujuci ES forumu.
Molim komentare

[ peromalosutra @ 09.04.2005. 22:54 ] @

Mocan fazon. I sve si to uradio uz pomoc onog loading...
:)

[ Nemanja Avramović @ 09.04.2005. 23:23 ] @

lepo lepo...

[ Srki_82 @ 10.04.2005. 01:47 ] @

Pa... mozda bi i bilo zanimljivo kad bi moj win bio instaliran u "c:\windows", ali posto nije

U svakom slucaju bar znas da koristis write funkciju

[ Passwd @ 10.04.2005. 11:08 ] @

Drago mi je cuti tako lijepe komentare.Zapravo nisam koristio onaj loading jer nekako prebrzo ide i jako treperi,koristio sam delay(x)..
Al zanima me dal je moguce povecat ta slova?

[ Passwd @ 10.04.2005. 11:15 ] @

@peromalosutra

Dal bi mogao poslat onaj kod tvoje igrice,zanima me da vidim kako si to napravio:

[email protected]

[ Srki_82 @ 10.04.2005. 14:18 ] @

Citat:

Passwd: Al zanima me dal je moguce povecat ta slova?

Mislis kao kad menjas velicinu fonta u Win aplikacijama? Ako je to upitanju u obicnom text modu to ne mozes da radis. Mozes da crtas karaktere nekim znacima (puno polje, gornja polovina puna, donja polovina puna) i da time napravis veca slova ili da koristis graficki mod u kojem mozes kao i u Win aplikacijama da podesavas velicinu fonta samo onda moras da koristis BGI drajvere i fontove pa ces morati ili da ih distribuiras sa programom ili da ih staticki linkujes. Imas primer za to u Pascalu (BGILink).

[ peromalosutra @ 10.04.2005. 15:18 ] @

Kod i nije nesto komplikovan, ali je dosta neuredan, na kraju ni ja sam ne znam sta je sta pa moram stalno gledati u glavnom programu koju proceduru poziva itd.
Inace glavni program bi bio mnogo kraci da nisam koristio goto naredbu (za koju sam cuo da nije u duhu paskala), ali nisam se mogao sjetiti drugog nacina da organizujem meni. Sada znam da sam i taj dio mogao napisati u obliku procedure, pa bi mi se glavni program mogao svesti na ovo:

...
begin
meni;
end.

I da dalje ne pricam, evo ti kod pa sam pogledaj.

[ Byk @ 11.04.2005. 11:42 ] @

Kojom komandom si napravio ovaj delay (kasnjenje i kucanje slovo po slovo) kursora? - mislim naravno na kvaziVirus program :)

[ peromalosutra @ 11.04.2005. 13:13 ] @

Izvini sto se ja ubacujem, ali napravio je to upravo sa delay(x), gdje ti je x broj mikrosekundi. (1000 ms=1 sek)

[ bancika @ 11.04.2005. 13:20 ] @

a font mozes da povecas, ali u grafickom rezimu

[ Passwd @ 11.04.2005. 20:41 ] @

Da tocno to,a ako te bude bas zanimalo mogu ti okacit kod.
Googleo sam i traziiiiiio svasta o pascalu i nasao skoro 100 primjera
iz pascala,sad to sve proucavam-vjerovatno ste stoga opazili da me nema
previse na ES-u...:)

[ Nemanja Avramović @ 11.04.2005. 23:48 ] @

peromalosutra, zasto si koristio goto u paskalu!? to se ne radi tako......

[ RnD57 @ 12.04.2005. 06:23 ] @

Da bre... "goto statement considered harmful"!

[ peromalosutra @ 12.04.2005. 14:14 ] @

Pa kada sam pravio meni nisam se nikako mogao sjetiti deugog nacina! Sada znam da sam to mogao uraditi na drugi nacin, ali mi se GOTO ucinio nekako najpogodnijim. A zasto se kaze da naredba goto "nije u duhu Paskala" i ako je tako zasto su je uopste ugradili u Paskal?

[ RnD57 @ 13.04.2005. 20:28 ] @

Mislim da se ne kazhe da 'nije u duhu Pascala', nego da 'nije u duhu strukturiranog programiranja'... Postoje neke sheme za pretvaranje nestrukturiranog programa u strukturirani...
Rad sa goto, break, i slichnim naredbama [onima koje menjaju tok programa, a nisu for, while, repeat ili poziv funkcije] se smatra rizichnim ako je u pitanju iole slozheniji software, jer je, kazhu, teshko pratiti tok programa...
Inache, kada sam ja prvi put chuo to, umalo da se shlogiram jer sam na Commodoreu sve radio uz pomoc goto...

Sada sam se navikao i uopshte ne vidim potrebu za goto.

[ Nemanja Avramović @ 13.04.2005. 20:45 ] @

Citat:

RnD57:Inache, kada sam ja prvi put chuo to, umalo da se shlogiram jer sam na Commodoreu sve radio uz pomoc goto...
Sada sam se navikao i uopshte ne vidim potrebu za goto.

isti slucaj, samo nije commodore, vec QBASIC ;)

[ RnD57 @ 13.04.2005. 20:59 ] @

Jest, samo shto na Commodore-ovom Basic-u nisi im'o [bar kol'ko se ja secam] implementirane ni procedure ni iteracije... Sve goto! Na njemu sam odrastao!

[ Byk @ 14.04.2005. 14:16 ] @

Citat:

peromalosutra: Izvini sto se ja ubacujem, ali napravio je to upravo sa delay(x), gdje ti je x broj mikrosekundi. (1000 ms=1 sek)

Ili nije ta komanda ili je ja pogresno koristim, jer kada povecam delay program mi odstampa citav text npr. write ('delay') sa kasnjenjem koje sam stavio. A mene zanima kako da stampa slovo po slovo sa odredjenim delay-om?

[ sasas @ 14.04.2005. 14:51 ] @

Citat:

Sada znam da sam to mogao uraditi na drugi nacin, ali mi se GOTO ucinio nekako najpogodnijim. A zasto se kaze da naredba goto "nije u duhu Paskala" i ako je tako zasto su je uopste ugradili u Paskal?

GoTo su ugradili (odnosno g-din Niklaus Wirth je ugradio :) u pascal iz istorijskih razloga - to je u stvari direktan naslednik mašinske JUMP instrukcije, pa je starim kukama koje su na strukturirane jezike prelazili sa asemblera to bilo verovatno znatno olakšanje. Stvar svakako i danas ima primenu (ja sam baš neki dan uglavio jedan GoTo u kood - moglo se i drugačije ali GoTo je bio najčišće rešenje). Pogledaj npr. ovaj kood koji koristi GoTo:

Code:

procedure TForm1.Button1Click(Sender: TObject);
label
  exit;
var
  i, j, k, x: integer;
begin
  x := 0;
  for i := 1 to 700 do
    for j := 1 to 700 do
      for k := 1 to 700 do
      begin
        inc(x);
        if j = 10 then goto exit; // ovde je dostignut neki uslov za izlaz iz sve tri petlje
      end;

exit:
  label1.Caption := inttostr(x);
end;

i njegov ekvivalent bez GoTo-a:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, k, x: integer;
  bExit: boolean;
begin
  x := 0;
  bExit := false;
  for i := 1 to 700 do
  begin
    for j := 1 to 700 do
    begin
      for k := 1 to 700 do
      begin
        inc(x);
        if j = 10 then // ovde je dostignut neki uslov za izlaz iz sve tri petlje
        begin
          bExit := true;
          break;
        end;
      end;
      if bExit then break;
    end;
    if bExit then break;
  end;

  label1.Caption := inttostr(x);
end;

Sad, voleo bih da me neko ubedi da je dobra praksa u svakom slučaju izbegavati GoTo, odnosno da neko ovaj drugi kood napiše na jednostavniji i kraći način od prvog. Plaćam pivo ko to uradi :)

Svakako, preteranu upotrebu je najbolje izbegavati (imho).

ss.

[ _v!rus_ @ 14.04.2005. 16:27 ] @

Citat:

Rad sa goto, break, i slichnim naredbama [onima koje menjaju tok programa, a nisu for, while, repeat ili poziv funkcije] se smatra rizichnim ako je u pitanju iole slozheniji software

Uopste ne mora da znaci, break i continue su extemno korisne direktive (odnosno u paskalu nisu direktive nego procedure, ali trebalo bi da su direktive). Pri bilo kom iterativnom poslu (npr. kada treba nesto naci) spasavaju od overheada i koriscenja kontrolnih varijabli.

[ Toyo @ 14.04.2005. 18:02 ] @

Citat:

Sad, voleo bih da me neko ubedi da je dobra praksa u svakom slučaju izbegavati GoTo, odnosno da neko ovaj drugi kood napiše na jednostavniji i kraći način od prvog. Plaćam pivo ko to uradi :)

Evo ovako:

Posto me je ss u nekim postovima opisao kao (geek, budala, neerd), odgovoricu mu sutra (psto sam danas pijan ko konj!!). I od najboljeg algoritma koji neko napisao ima boljeg.
Na prvi pogled, samo pogledaj kako ti kompajler optimizuje to sto si napisao u 2. code-u.

[ sasas @ 16.04.2005. 07:58 ] @

@toyo:

Citat:

Posto me je ss u nekim postovima opisao kao (geek, budala, neerd)...

Pažljivije čitaj poruke ili ih još bolje ne čitaj dok si pijan. U pomenutoj poruci nisi bio spomenut.

Citat:

odgovoricu mu sutra (psto sam danas pijan ko konj!!

Još se nisi otreznio?

Citat:

I od najboljeg algoritma koji neko napisao ima boljeg.

Slažem se, just do it ;)

ss.

[ Toyo @ 16.04.2005. 09:19 ] @

Necu da se svadjam, ali nisi u pravu, za prozivanje.

Da te podsetim, to je bilo u temi predlozi i pitanja. Nisi nikoga prozvao licno, ali se dalo zakljuciti indirekno, da svi koji nekom urade neki zadatak (domaci) - jesu upravo to sto sam spomenuo. Posto sam i ja bio jedan od tih koji je te zadatke radio, sta treba vise da mislim.

Evo sad sam se opametio, i necu vise nikom da radim domace zadatke.

Ako je izbegavanje while, razlog da se koristi goto, onda OK.

Pozdrav

_{[Ovu poruku je menjao Toyo dana 16.04.2005. u 10:43 GMT+1]}

[ sasas @ 16.04.2005. 09:43 ] @

Citat:

Necu da se svadjam, ali nisi u pravu, za prozivanje.

Neću da se svađam ali jesam u pravu. Mislio sam (i napisao) u toj poruci generalno na sve, uključujući i samog sebe. I nisu bili prozvani oni koji rešavaju zadatke, nego oni koji na forum dolaze isključivo radi toga da im se domaći reše.

Citat:

Ako je izbegavanje while, razlog da se koristi goto, onda OK.

Ne, razlog je izbegavanje dva breaka, dva if-a, jedne promenjive & u tom konkretnom slučaju koji sam naveo cele gomile begin/end konstrukcija. Samo sam objasnio okolnosti u kojima se GoTo koristi, that's all....

ss.

[ Toyo @ 16.04.2005. 09:45 ] @

Za taj konkretan primer si u pravu. Sad (trezan) nemam sta da dodam.

Dobro, ako si mislio i na sebe, onda je ok. :)
Bez ljutnje, izvini ako samte uvredio, ali ja sam bio pomalo kad sam procitao poruku.

Pozdrav (Izgleda da nema nista od piva)

[ sasas @ 16.04.2005. 09:49 ] @

No hard feelings, of course :)

ss.