[es] - pomoc oko naredbe u pascalu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.sezampro.yu.

+5 Profil

^{19.05.2006. u 10:28 - pre 218 meseci}

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!

Odgovor na temu

cassey
Andreja Ilic
Nis

Član broj: 57788
Poruke: 188
212.200.11.*

+1 Profil

Re: pomoc oko naredbe u pascalu

^{19.05.2006. u 12:21 - pre 218 meseci}

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

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

Odgovor na temu

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

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

Profil

Re: pomoc oko naredbe u pascalu

^{19.05.2006. u 12:36 - pre 218 meseci}

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

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

Prikačeni fajlovi

Repeat.rar - 23.05k

Odgovor na temu

bondja

Član broj: 10286
Poruke: 167
*.adsl.sezampro.yu.

+3 Profil

Re: pomoc oko naredbe u pascalu

^{19.05.2006. u 13:38 - pre 218 meseci}

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

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: pomoc oko naredbe u pascalu

^{19.05.2006. u 18:13 - pre 218 meseci}

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

Laravel Srbija.

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

Odgovor na temu

_deran_

Član broj: 69493
Poruke: 252
*.suonline.net.

+1 Profil

Re: pomoc oko naredbe u pascalu

^{21.05.2006. u 19:24 - pre 218 meseci}

Code:

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

Odgovor na temu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.sezampro.yu.

+5 Profil

Re: pomoc oko naredbe u pascalu

^{22.05.2006. u 17:56 - pre 218 meseci}

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!

Odgovor na temu

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

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

Profil

Re: pomoc oko naredbe u pascalu

^{22.05.2006. u 18:13 - pre 218 meseci}

Evo resenja...

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

Prikačeni fajlovi

RepeatUntil.rar - 23.21k

Odgovor na temu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.sezampro.yu.

+5 Profil

Re: pomoc oko naredbe u pascalu

^{22.05.2006. u 19:09 - pre 218 meseci}

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

Pozdrav!

Odgovor na temu