[es] - Repeat untill pitanje

emiru
Emir Ugljanin
Novi Pazar

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

Sajt: www.autopijac.com

Profil

^{13.03.2004. u 12:42}

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

^{13.03.2004. u 12:42}

Bojan Basic
Bojan Basic
Novi Sad

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

Jabber: bojan_basic@elitesecurity.org
ICQ: 305820253

Profil

Re: Repeat untill pitanje

^{13.03.2004. u 12:57}

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.

^{13.03.2004. u 12:57}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

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

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Repeat untill pitanje

^{14.03.2004. u 00:37}

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

^{14.03.2004. u 00:37}

Crazy Mix
Nemanja Avramovic
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}

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

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

^{16.03.2004. u 18:48}

manefrenki
Mirso Mehic
Zavidovici

Član broj: 73216
Poruke: 39
80.65.66.*

Profil

Re: Repeat untill pitanje

^{07.03.2006. u 20:37}

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

^{07.03.2006. u 20:37}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Repeat untill pitanje

^{07.03.2006. u 20:47}

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]}

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.03.2006. u 20:47}

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}

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.

^{07.03.2006. u 23:16}