Repeat untill pitanje

[ emiru @ 13.03.2004. 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

[ Bojan Basic @ 13.03.2004. 12:57 ] @

U zaglavlje programa stavi

Code:
uses crt;

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

[ Bojan Kopanja @ 14.03.2004. 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.

[ Crazy Mix @ 16.03.2004. 18:48 ] @

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

[ manefrenki @ 07.03.2006. 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

[ Srki_82 @ 07.03.2006. 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]}

[ Miloš Baić @ 07.03.2006. 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]}