Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Jedna komanda u Pascalu :)

[es] :: Pascal / Delphi / Kylix :: Jedna komanda u Pascalu :)

[ Pregleda: 3345 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Terminator X
BiH

Član broj: 90097
Poruke: 46
*.PPPoE-716.sa.bih.net.ba.



Profil

icon Jedna komanda u Pascalu :)03.04.2006. u 21:55 - pre 219 meseci
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]
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Jedna komanda u Pascalu :)03.04.2006. u 22:14 - pre 219 meseci
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.
 
Odgovor na temu

Terminator X
BiH

Član broj: 90097
Poruke: 46
*.PPPoE-716.sa.bih.net.ba.



Profil

icon Re: Jedna komanda u Pascalu :)03.04.2006. u 22:25 - pre 219 meseci
Nije mi ovo uspjelo :(
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Jedna komanda u Pascalu :)03.04.2006. u 22:39 - pre 219 meseci
Pa reci gde je problem.

Ovde gde vidis ..., tu umetni kod koji hoces.
 
Odgovor na temu

Terminator X
BiH

Član broj: 90097
Poruke: 46
*.PPPoE-716.sa.bih.net.ba.



Profil

icon Re: Jedna komanda u Pascalu :)03.04.2006. u 22:50 - pre 219 meseci
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]
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Jedna komanda u Pascalu :)03.04.2006. u 23:04 - pre 219 meseci
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.
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 01:08 - pre 219 meseci
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
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 07:22 - pre 219 meseci
Mislim da nije to hteo da pita.
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.adsl.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 11:59 - pre 219 meseci
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
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 13:03 - pre 219 meseci
Pogledaj onaj screenshot koji je okacio, vidis da ima readln; na kraju. Znaci nije u tome problem :)
 
Odgovor na temu

Terminator X
BiH

Član broj: 90097
Poruke: 46
*.PPPoE-577.sa.bih.net.ba.



Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 14:02 - pre 219 meseci
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]
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Jedna komanda u Pascalu :)04.04.2006. u 14:35 - pre 219 meseci
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]
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.madnet.sohosistem.net.



+5 Profil

icon Re: Jedna komanda u Pascalu :)21.11.2008. u 11:33 - pre 187 meseci
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!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Jedna komanda u Pascalu :)21.11.2008. u 12:07 - pre 187 meseci
Svo računanje prebaci iz main posebnu funkciju a u main stavi pozivanje te metode i interakciju sa korisnikom.
 
Odgovor na temu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.madnet.sohosistem.net.



+5 Profil

icon Re: Jedna komanda u Pascalu :)21.11.2008. u 12:25 - pre 187 meseci
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?!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Jedna komanda u Pascalu :)21.11.2008. u 13:21 - pre 187 meseci
> 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.


 
Odgovor na temu

ivan85_zmaj
Ivan Nikolic
Smederevo City

Član broj: 73665
Poruke: 323
*.madnet.sohosistem.net.



+5 Profil

icon Re: Jedna komanda u Pascalu :)21.11.2008. u 14:43 - pre 187 meseci
@savkic

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

hvala
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Jedna komanda u Pascalu :)

[ Pregleda: 3345 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.