Jedna komanda u Pascalu :)

Jedna komanda u Pascalu :) 03.04.2006. u 22:55 · pre 250 meseci #1

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

Re: Jedna komanda u Pascalu :) 03.04.2006. u 23:14 · pre 250 meseci #2

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.

Re: Jedna komanda u Pascalu :) 03.04.2006. u 23:25 · pre 250 meseci #3

Nije mi ovo uspjelo :(

Re: Jedna komanda u Pascalu :) 03.04.2006. u 23:39 · pre 250 meseci #4

Pa reci gde je problem.

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

Re: Jedna komanda u Pascalu :) 03.04.2006. u 23:50 · pre 250 meseci #5

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.

Re: Jedna komanda u Pascalu :) 04.04.2006. u 00:04 · pre 250 meseci #6

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.

Re: Jedna komanda u Pascalu :) 04.04.2006. u 02:08 · pre 250 meseci #7

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

Potpis

SERVIA NOSTRUM REGNUM!

Re: Jedna komanda u Pascalu :) 04.04.2006. u 08:22 · pre 250 meseci #8

Mislim da nije to hteo da pita.

Re: Jedna komanda u Pascalu :) 04.04.2006. u 12:59 · pre 250 meseci #9

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

Potpis

SERVIA NOSTRUM REGNUM!

Re: Jedna komanda u Pascalu :) 04.04.2006. u 14:03 · pre 250 meseci #10

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

Re: Jedna komanda u Pascalu :) 04.04.2006. u 15:02 · pre 250 meseci #11

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 ;)

Re: Jedna komanda u Pascalu :) 04.04.2006. u 15:35 · pre 250 meseci #12

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

Pozz

Potpis

SERVIA NOSTRUM REGNUM!

Re: Jedna komanda u Pascalu :) 21.11.2008. u 12:33 · pre 218 meseci #13

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!

Re: Jedna komanda u Pascalu :) 21.11.2008. u 13:07 · pre 218 meseci #14

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

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Jedna komanda u Pascalu :) 21.11.2008. u 13:25 · pre 218 meseci #15

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?!

Re: Jedna komanda u Pascalu :) 21.11.2008. u 14:21 · pre 218 meseci #16

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

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Jedna komanda u Pascalu :) 21.11.2008. u 15:43 · pre 218 meseci #17

@savkic

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

hvala

Forum kao aplikacija na telefonu

Srodne teme