[es] - Repeat untill pitanje

emiru
Emir Ugljanin
Novi Pazar

Član broj: 19526
Poruke: 126
*.verat.net

Sajt: www.autopijac.com

Profil

^{13.03.2004. u 12:42 - pre 244 meseci}

Pocetnik sam u pascalu, interesuje me naredba za izvrsavanje programa, kada pretisnem ctrl F9 da mi ostane program,tj. da vidim kako radi.
cini mi se da je bila naredba repeat until keypressed ili tako nesto

www.autopijac.com
www.zenskisvet.com
www.boatsagent.com

Odgovor na temu

Bojan Basic
Novi Sad

SuperModerator
Član broj: 6578
Poruke: 3996
*.smin.sezampro.yu.

Jabber: bojan_basic@elitesecurity.org
ICQ: 305820253

+605 Profil

Re: Repeat untill pitanje

^{13.03.2004. u 12:57 - pre 244 meseci}

U zaglavlje programa stavi

Code:
uses crt;

pa onda možeš da upotrebiš naredbu koju si naveo.

Ljubičice crvena, što si plava kô zelena trava.

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
*.ptt.yu

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Repeat untill pitanje

^{14.03.2004. u 00:37 - pre 244 meseci}

Imas i jednostavnije resenje, a to je koriscenje naredbe readln; na kraju programa (program ces prekidati na "Enter"), ili koriscenjem naredbe repeat until port[$60]=1; (u ovom slucaju program prekidas na "Escape").

Kada koristis neki od ova 2 nacina za prekidanje programa ne moras nista da dodajes u uses listu (ka sto si dodavao uses crt; kada si koristio repeat until keypressed).

p0z.

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr

Profil

Re: Repeat untill pitanje

^{16.03.2004. u 18:48 - pre 244 meseci}

evo kako ja radim:
uses crt;
...
...
writeln('bla');
repeat
until keypressed;

Avram,
http://www.eyesburn.co.sr/

Odgovor na temu

manefrenki
Mirso Mehic
RTV
Zavidovici

Član broj: 73216
Poruke: 39
80.65.66.*

Profil

Re: Repeat untill pitanje

^{07.03.2006. u 20:37 - pre 220 meseci}

ako neko moze da mi da adresu neke stranice gdje mogu da najdem nesto o naredbi repeat imam referat ali uopste o njoj nista ne znam

manefrenki

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Repeat untill pitanje

^{07.03.2006. u 20:47 - pre 220 meseci}

Zasto ne koristis Google?

Da ne zaboravim... imas i u help-u lepo objasnjenje.

_{[Ovu poruku je menjao Srki_82 dana 07.03.2006. u 21:50 GMT+1]}

Play Store

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Repeat untill pitanje

^{07.03.2006. u 23:16 - pre 220 meseci}

Citat:

manefrenki: ako neko moze da mi da adresu neke stranice gdje mogu da najdem nesto o naredbi repeat imam referat ali uopste o njoj nista ne znam

Nemam adresu, ali nešto malo ti mogu reći o REPEAT naredbi.
Naredba ciklusa sa postuslovom repeat omogućava organizovanje ciklusa sa nepoznatim brojem ponavljanja.

Code:
repeat
  N1;
  N2;
  ...
  Nk
until
  L

N su naredbe, a L izraz. Ako je vrednost logičkog izraza iza until jednaka FALSE niz naredbi se ponavlja dok logički izraz ne dobije vrednost TRUE. Uslov se proverava posle svake iteracije. Rezervisane reči repeat i until su graničnici te ne treba unositi begin i end.
Jedan mali primer programa.
Napiši broj simbola različitih od praznine u ulaznoj datoteci. Čitanje ulazne datoteke prekinuti kada se dostigne kraj.

Code:
program simboli(input, output);
var
   simbol: char;
   brojsimbola: integer;
begin
   brojsimbola:=0;
   repeat
      read(simbol);
      if simbol<>' ' then
            brojsimbola:=brojsimbola + 1
   until
      eof;
      write('U datoteci ima:', brojsimbola, ' simbola!')
end.

brojsimbola - promenljiva koja predstavlja brojač simbola;
simbol - promenljiva koja dobija vrednost tekućeg simbola...

Otprilike, ovo je nešto uopšteno, ali moraš se sam snaći za još zadataka da bi to baš lepo leglo gde je i mesto...

pozzz

_{[Ovu poruku je menjao loshmiscg dana 08.03.2006. u 00:21 GMT+1]}

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu