nbarox Napisano Grudzień 30, 2005 Zgłoś Share Napisano Grudzień 30, 2005 mam program w ktorym chcialbym zrobic aby wylaczal sie tylko i wylacznie po kliknieciu ESC'a a po wykonaniu poszczegolnych zadan z pod np '1' aby wracal do poczatkowej strony i nie mam pojecia jak sobie z tym poradzic i tez nie moge znalezc tego w zadnym kursie z gory dziekuje za pomoc [code=Delphi] Program instrukcje_programow ; Uses graph, crt; Var d,m:inYBKX[BXBBCBS7G&ćsćv6śó7G&ćsG&W37G&ć4(4(4)4(4)%ŃĄąŃ4(4(4)ą4)Ńcrtmode; textcolor(lightred); writeln('Wybierz program z lHXHXXY[YHH[ZIĘNB][FWF6Ć\"ĆvG&VBw&FVĆu&w&FV7FvSrFWąĄąĄŃąŃmtŃŃąĄĄŃŃą(' Struktura programu w pascalu'); textcolor(lightblue);wriH WIĘN^]JN][ [YHZIFWF6Ć\"ĆvF&VRw&FRrł%rFWF6Ć\"vFRŃą]Ń4)ŃŃąĄąĄŃąŃl'); textcolor(white); writeln(' Rownanie kwadratowe'); writ[BB^YY NB][ [^HYXNĘNFWF6Ć\"ĆvF&VRw&FRrrFWF6Ć\"vFRŃą4)ŃŃąĄąĄŃąŃmt); textcolor(white); writeln(' Animacja 2'); textcolor(lighYJN]H IĘN^]JN][ [[XX2rw&FVĆFWF6Ć\"ĆvG&VBw&FVĆuĆ7ŚVćźŃŃź4)ŃŃąĄąĄŃąwrite (' [6]'); textcolor(white); writeln(' Obliczanie poHYĘNB][BB^YY NB][ [NrFWF6Ć\"ĆvF&VRw&FRrU45rFWF6Ć\"vŃą]4)ŃŃąĄĄŃ4)n (wybor); case wybor of '1':begin clrscr; textcoloYY N][ TTSQHRN[HY]ćV&ćRć2%W'w7&w&\"rvF4(ŃŃąĄĄŃŃąA'); readln; clrscr;textcolor(lightred); writeln (TTSQHRN]H[Y]H[]IĘNB][w&FVĆFWF6Ć\"vFRw&FRr&w&w6ćRFV7GŃŃąĄąĄŃąŃąąprogramu }'); writeln; textcolor(white);write (' begin');^YYJN][ ]Z[]HIĘNw&FVĆFWF6Ć\"vFRw&FRrw&FVĆb3cWŃŃąĄąĄŃą4)Ńąprowadzenie tekstu }'); textcolor(white);write (' readĘN^YYJN][ X][YHIĘNBFVĆFWF6Ć\"vFRw&FRrVćBrFWF6Ć\"ĆvF&VŃą4)ą4)4(4 '2':begin clrscr; textcolor(lightred); writeln ('WIZUN[H[ZY]ZH[H]H[HHZHHĆRrw&FVĆw&FVĆw&FRuFSr4(ąĄ4(ŃAź4( readln (nazwisko); write ('Podaj adres: '); rXY YĘNBJLL NB][ OKOKOKOKOKOKOKÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓrvFŃąl ]%ieQ=]-t-'); gotoxy(10,12); writeln('-=-=-=-=-=-=-=-=-=-KOKOKOKOKOKOKOKOKOKOKOKOKOKOKIĘNBJLM NBw&FVĆtSrĆRvF\"Rw&FVĆtćźąź4)Ń4(Ńąądres); gotoxy(10,18); writeln('-=-=-=-=-=-=-=-=-=-=-=OKOKOKOKOKOKOKOKOKOKOKOKOKIĘNBXYB[BBYŚ6'67#6WFw&FR6WF6Ć\"ąĄŃ4(ŃŃŃad=ą dla szescianu'); rectangle(250,250,350L NBX[J NCBĆćRC#3#ĆćR4( ą4 line(350,350,400,300); [JLL NBXYBXFSFWF6Ć\"ĆvFw&VVw&ąmAąĄŃŃt4( writeln; write('Podaj dlugosc krawedzi: 'NBXYNB][Bw&FVĆuĆRvW'Ś6ćrbŚ2Ś3ŁŁ2Ńą=Ńą4(Ńąąosc przekatnej: ',c*SQRT(3):0:3); readln; endBBB[B[ [/code] Link do komentarza Udostępnij na innych stronach More sharing options...
pawell Napisano Grudzień 30, 2005 Zgłoś Share Napisano Grudzień 30, 2005 Zawsze możesz w pętli sprawdzać stan poszczególnych klawiszy Link do komentarza Udostępnij na innych stronach More sharing options...
Kezard Napisano Grudzień 30, 2005 Zgłoś Share Napisano Grudzień 30, 2005 Skorzystaj z pętli while, albo do...unit. Dla przykładu : [code=Delphi] While (not koniec) begin .... end[ĄŚ4)4(4(4)ŃĄ-=}M [/code] Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.