[ ivan85_zmaj @ 19.05.2006. 10:28 ] @
Imam jedan mali problem... Napravio sam jedan jednostavan program u pascalu za neko matematicko racunanje. I taj program radi kako treba, ali... kad se program zavrsi i dobijem rezultati i posle pritiska na Enter on izadje. Pa ako treba da izracunam ponovo ja opet moram da startujem program i da racunam.
Pa sam mislio da uvdem naredbu gde ce biti pitanje da li zelim da nastavim ili da izadjem. Pa ako zelim da nastavim da se on vrati na pocetak programa (recimo pritiskom na Y), a ako zelim da izadjem da pretisnem recimo na N i da tek onda izadje potpuno iz programa u Windows.
Sad mi je problem, ne mogu da se setim kako da uvedem, tj. kako da ispisem tacno te naredbe da se vrati na pocetak programa ili da izadje iz programa.
Pretpostavljam da treba da se uvede naredba "Repeat" ili mozda ona "If", al nisam siguran kako tacno ide...

Pa ako neko od vas moze da mi pomogne, ko zna kako bi se to moglo izvesti.

Hvala unapred!
[ cassey @ 19.05.2006. 12:21 ] @
repeat
tvoj program;
ReadLn (s);
until (s = 'N');
[ Miloš Baić @ 19.05.2006. 12:36 ] @
Evo nesto nabrzinu sam otkucao u delphi-ju ( upload )...

P.S. ako nemas delphi, ovo:
Code:

var
  a, b, c: integer;
  Y, N: char;
  Odgovor:Char;
  Izlaz:Boolean;
begin
  repeat
   write('Unesi prvi broj: ');
   readln(a);
   write('Unesi drugi broj: ');
   readln(b);
   c:=a+b;
   writeln('Zbir je: ',c);
   readln;
   write('Da li zelite ponoviti racun? (y/n)?: ');
   readln(Odgovor);
   writeln;
    if Odgovor='n' then
       Izlaz:=true;
  until
     Izlaz=true ;

bi mozda moglo pomoci?!

[Ovu poruku je menjao loshmiscg dana 19.05.2006. u 13:42 GMT+1]
[ bondja @ 19.05.2006. 13:38 ] @
Ako se dobro secam, da bi progam u pascalu cekao u dos-u dok ne pritisnes neku tipku bilo je potrebno navesti
repeat until keypress; na kraju programa...

[ Nemanja Avramović @ 19.05.2006. 18:13 ] @
I valjda mora pored toga u uses listu da se doda crt... ili tako nesto
[ _deran_ @ 21.05.2006. 19:24 ] @
Code:

uses ...;
var r:char;
label pocetak;
begin
  //  
pocetak:
 //pitanje, racunanje itd
 write('Nastavak?');
 r:=readkey;
 if r='y' then goto pocetak;
 // 
end.

[ ivan85_zmaj @ 22.05.2006. 17:56 ] @
Hvala svima na trudu i pomoci. Svoj problem sam resio...
@loshmiscg, tvoja postavka je zavrsila posao. Bas kao i onaj zadatak sto si uradio, takav sistem je i meni trebao.
Ali sada bi hteo da ubacim u taj program jos nesto, pa mi opet treba pomoc, :D
Recimo, dok se program ponavlja to je OK, ali bilo bi cisto estetski lepo kada bi se posle ukucavanja "N" za kraj racuna, moglo pojaviti tekst (npr. "Created by..." ili nesto drugo). Dakle, da se ne izadje odmah iz programa nego da se zadrzi jos malo program pokazujuci jos neki tekst i onda pritiskom na neki taster da se izadje iz programa...

Da li bi i to moglo da se izvede?!

Hvala!
[ Miloš Baić @ 22.05.2006. 18:13 ] @
Evo resenja...
[ ivan85_zmaj @ 22.05.2006. 19:09 ] @
Hvala!
Siguran sam da ce raditi... cim probam javicu se...

Pozdrav!