pomoc oko naredbe u pascalu

pomoc oko naredbe u pascalu 19.05.2006. u 10:28 · pre 248 meseci #1

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!

Re: pomoc oko naredbe u pascalu 19.05.2006. u 12:21 · pre 248 meseci #2

repeat
tvoj program;
ReadLn (s);
until (s = 'N');

Potpis

Math is like love. A simple idea but it can get complicated.

Re: pomoc oko naredbe u pascalu 19.05.2006. u 12:36 · pre 248 meseci #3

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

Potpis

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

Repeat.rar23.05k

Re: pomoc oko naredbe u pascalu 19.05.2006. u 13:38 · pre 248 meseci #4

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...

Re: pomoc oko naredbe u pascalu 19.05.2006. u 18:13 · pre 248 meseci #5

I valjda mora pored toga u uses listu da se doda crt... ili tako nesto

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: pomoc oko naredbe u pascalu 21.05.2006. u 19:24 · pre 248 meseci #6

Code:

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

Re: pomoc oko naredbe u pascalu 22.05.2006. u 17:56 · pre 248 meseci #7

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!

Re: pomoc oko naredbe u pascalu 22.05.2006. u 18:13 · pre 248 meseci #8

Evo resenja...

Potpis

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

RepeatUntil.rar23.21k

Re: pomoc oko naredbe u pascalu 22.05.2006. u 19:09 · pre 248 meseci #9

Hvala!
Siguran sam da ce raditi... cim probam javicu se...

Pozdrav!

Srodne teme