julko:

Tu się z Tobą zgadzam.
Ale o procedurach czy teź funkcjach "twórca tego tematu" pewnie nie słyszał.
Napijmy się i to by było na tyle.

Drobne sprostowanie – napisałem "wódki mi nalać" , a być miało 'mu' czyli Tobie.
Widać sylwestrowy jeszcze jestem :P

gusioo:

julko:

Ale jeśli daje się jakąś radę, to trzeba pamiętać o "sztuce programowania".

Święte słowa – wódki mi nalać.

Tu się z Tobą zgadzam.
Ale o procedurach czy teź funkcjach "twórca tego tematu" pewnie nie słyszał.
Napijmy się i to by było na tyle.

julko:

Ale jeśli daje się jakąś radę, to trzeba pamiętać o "sztuce programowania".

Święte słowa – wódki mi nalać.

aachi:

Pascala mam w paznokciu małego palca. Podałem poprostu odpowiedź na pytanie... Co z tego źe nieeleganckie skoro widzę, źe pytający nie ma pojęcia o programowaniu. Waźne, źe szybkie i skuteczne... A jeśli chce się nauczyć dobrze programować to jest tysiąc stronek na których znalazłby materiały, a ta raczej się do nich nie zalicza.

Masz rację. Pytający nie zna się na tym.
Ale jeśli daje się jakąś radę, to trzeba pamiętać o "sztuce programowania".

aachi:

Pascala mam w paznokciu małego palca. Podałem poprostu odpowiedź na pytanie... Co z tego źe nieeleganckie skoro widzę, źe pytający nie ma pojęcia o programowaniu. Waźne, źe szybkie i skuteczne... A jeśli chce się nauczyć dobrze programować to jest tysiąc stronek na których znalazłby materiały, a ta raczej się do nich nie zalicza.

Masz rację. Pytający nie zna się na tym.
Ale jeśli daje się jakąś radę, to trzeba pamiętać o "sztuce programowania".

Pascala mam w paznokciu małego palca. Podałem poprostu odpowiedź na pytanie... Co z tego źe nieeleganckie skoro widzę, źe pytający nie ma pojęcia o programowaniu. Waźne, źe szybkie i skuteczne... A jeśli chce się nauczyć dobrze programować to jest tysiąc stronek na których znalazłby materiały, a ta raczej się do nich nie zalicza.

aachi – funkcje exit i halt stosuje się do "brutalnego" zakończenia procedury, funkcji czy programu.
Przeanalizuj mój program (jeśli znasz sie na tym) i zobaczysz pętle repeat ... until, która steruje MENU.
Zamiast zmiennej kon, mozna uzyć funkcji halt czy teź exit, ale po co ?
Jak masz propozycję konkretną, to napisz fragment takiego programu, jak ja to zrobiłem, a nie "główkowac". Jeśli chcesz, to napisz do mnie maila, a wyślę ci przykład takiego programiku opartego na tym fragmencie.
Pozdrawiam wszystkich.

A funkcja exit przypadkiem nie zamyka programu? Ew. halt.

A źeby powracało trzeba program w pętli zamknąć i po kaźdym przebiegu wyświetlać menu.

Podałem przecieź to, o co ci chodzi.
Gdy wybierzesz Opcje 1, program przejdzie do obsługi części 1 i po jej zrealizowaniu nastapi powrót do menu głównego. wyjście z tego menu nastąpi po naciśnięciu klawisza K lub k
Napisz do mnie maila, a podeślę ci taki prosty programik.
Najlepiej uzywać procedur i funkcji do tego typu zadań, ale trzeba umieć programować w TP

Zrobić procedure menu i wywoływać ją po kaźdym powrocie.

dzieki!!

a mieli byscie jeszcze jakiegos sposoba na to zeby po wybraniu kturejs z pozycji w menu i dajmy na to przeczytaniu powracało spowrotem do menu ??

Spróbuj tak:


....
kon:=0;
repeat
clrscr;
writeln ('MENU');
writeln(' 1. opcja 1');
...
writeln('K – koniec pracy');
writeln;
write('Co wybierasz ? ');
readln(upcase(odp));
case odp of
'1': begin
...
end;
...
'K' : kon:=1;
until (kon<>0);
....

Jak juź wiele razy pisałem – nie znoszę pascal'a :P

A zrób taki myk:

case q :
delay(1000) ;

Powinien zamknąć sie po jednej sekundzie
Moźesz teź dać read() zeby wcisnąć jaki klwisz.

gusioo:

Jaki program ? Siebie źeby zamknoł ?

chodzi mi o ten program w ktorym to menu by ise znajdowało, po prostu zeby wracało do windowsa

niestety ta instrukcja co podyktowałes wymaga jeszcze czegos bowiem pojawia sie błas " no enclosing "for", "while" or "repeat" statement " :(

Jaki program ? Siebie źeby zamknoł ?
case 'q' :
break ;

Tak byłoby w C, sprawdź czy w pascalu teź to jest.