Jedna komanda u Pascalu :)

[ Terminator X @ 03.04.2006. 21:55 ] @

Naime,interesuje me sta trebam ukucati u programu u pascalu da mi se prozor nakon ctrl+F9 ne vrati na program vec da nastavlja dalje izvrsavanje:
Npr: ako sam napravio program da kada ja ukucam redni broj dana da mi ispisuje ime dana, eh onda nakon tog ispisivanja da mi se ne vrati na program nego ostane onaj crni ekran pa da npr. ukucam drugi broj.Nadam se da ste skontali na sta sam mislio

_{[Ovu poruku je menjao Terminator X dana 03.04.2006. u 22:56 GMT+1]}

[ reiser @ 03.04.2006. 22:14 ] @

Napisi ovako nesto:

Code:

var
  izlazak : Char;
begin
  izlazak := '';
  While izlazak <> 'y' Do
  Begin
    ...

    Write('Izlazak iz programa (y/n) ?');
    ReadLn(izlazak);
  End;
end.

I kad korisnik unese y, izaci ce se iz While petlje.

[ Terminator X @ 03.04.2006. 22:25 ] @

Nije mi ovo uspjelo :(

[ reiser @ 03.04.2006. 22:39 ] @

Pa reci gde je problem.

Ovde gde vidis ..., tu umetni kod koji hoces.

[ Terminator X @ 03.04.2006. 22:50 ] @

Evo sam uslikao program pa ako ti nije tesko da mi to malo detaljnije objasnis...

EDIT: Eh kada pritisnem Ctrl+F9 onda se pojavi onaj crni prozor i pise "UNESI REDNI BROJ DANA".I kada ja unesem redni br. onda on ispise odredjeni dan i kdada ja pritisnem enter onda mi se povrati na tu sliku.Eh pa me interesuje sta da uradim da mi se ne vrati na sliku nego da odmah za redom npr. ukucam 2 dana.
Mislim da je naredba repeat,ali niti sam siguran niti znam kako se ona upotrebljava.

_{[Ovu poruku je menjao Terminator X dana 03.04.2006. u 23:54 GMT+1]}

[ reiser @ 03.04.2006. 23:04 ] @

Pa sto ne uradis ovako kako sam ti gore napisao ? :)
Evo ti jedno krace resenje od onog tvog:

Code:

program Dan_U_Sedmici;
const
  dani : Array[1..7] of String = ('Ponedeljak', 'Utorak', 'Sreda', 'Cetvrtak', 'Petak', 'Subota', 'Nedelja');
var
  a     : Integer;
  izlaz : Char;
begin
  izlaz := ' ';
  While izlaz <> 'y' Do
  Begin
    Write('Upisi redni broj dana: ');
    ReadLn(a);
    WriteLn(dani[a]);

    Write('Izlazak iz programa (y/n) ?');
    ReadLn(izlaz);
  End;
end.

[ IvanBeograd @ 04.04.2006. 01:08 ] @

kad kazes ReadLn(); program ocekuje neki unos,pa ne izlazi automatski!
Ako to ne kazes program ti sam izlazi!
Napisi samo ReadLn(); i program ti nece odmah izaci,nego kad uneses nesto sa tastature!
Pozzz

[ reiser @ 04.04.2006. 07:22 ] @

Mislim da nije to hteo da pita.

[ IvanBeograd @ 04.04.2006. 11:59 ] @

Pa on samo nije hteo da izadje iz programa,kada mu se ispisu dani,
nego da unese jos neki broj,posto nema nista vise sta da radi program kad ispise te dane,
ako sam ga ja dobro skontao!

Pozzz

[ reiser @ 04.04.2006. 13:03 ] @

Pogledaj onaj screenshot koji je okacio, vidis da ima readln; na kraju. Znaci nije u tome problem :)

[ Terminator X @ 04.04.2006. 14:02 ] @

Da,tako je.Nije u readln bio problem, vec u ovoj WHILE i DO naredbi.Shvatio sam u cemu je bio problem.Evo mozete vidjeti na slici (ono uokvireno sam samo dodao :))

U svakom slucaju hvala svima koji su pokusali pomoci ;)

_{[Ovu poruku je menjao Terminator X dana 04.04.2006. u 15:03 GMT+1]}

[ IvanBeograd @ 04.04.2006. 14:35 ] @

Ok,ok,ja ne mogu da pogledam te njegove slike,Nod mi nedozvoljava,
Razumeo sam ga nesto drugo!

Pozz

_{[Ovu poruku je menjao IvanBeograd dana 04.04.2006. u 15:37 GMT+1]}

[ ivan85_zmaj @ 21.11.2008. 11:33 ] @

Ja imam slican problem, pa ako moze jedna mala pomoc.
Napravio sam program za neko racunanje tezina limova, raznih profila i tako dalje. Medjutim zelim da kad program zavrsi proces i izbaci mi rezultat da me pita da li zelim da izadjem iz programa ili da obavi jos neko racunanje.
Jer me nervira da kad unesem jedne podatke, on izadje, pa ja ako zelim opet da racunam nesto drugo moram opet da ga startujem i to oduzima vreme...

Nadam se da ste razumeli sta zelim?!

Dakle, na unos Y/N da izadje odnosno da se vrati na pocetak unosa podataka i racunanja...

Hvala!

[ savkic @ 21.11.2008. 12:07 ] @

Svo računanje prebaci iz main posebnu funkciju a u main stavi pozivanje te metode i interakciju sa korisnikom.

[ ivan85_zmaj @ 21.11.2008. 12:25 ] @

Citat:

savkic: Svo računanje prebaci iz main posebnu funkciju a u main stavi pozivanje te metode i interakciju sa korisnikom.

Auuuu... ?!?!?! Ja nista ne razumem...
Mislio sam da u program dopisem jos tu neku liniju, komandu, da me vrati na pocetak programa ili da izadje?!

[ savkic @ 21.11.2008. 13:21 ] @

> Mislio sam da u program dopisem jos tu neku liniju, komandu, da me vrati na pocetak programa ili da izadje?!

Ne ide to tako, osim ako ne planiraš da koristiš labele (tada bukvalno jeste dva reda) ali se to uglavnom ne preporučuje.

Ovako otprilike možeš organizovati kod:

Code:

procedure UradiRacunanje;
begin
  // Ovde ide svo racunanje
end;

var
  Uslov: Boolean;
  Temp: string;
begin
  Uslov := True;
  while Uslov do
  begin
     UradiRacunanje;
     WriteLn('Ponoviti postupak (D/N)?');
     ReadLn(Temp);
     Uslov := Temp = 'D';
  end;
end.

[ ivan85_zmaj @ 21.11.2008. 14:43 ] @

@savkic

To je to care! To sam hteo... radi super!

hvala