Skocz do zawartości

[Pascal] wylaczanie programy tylko poprzez 'Esc'


nbarox

Polecane posty

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

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...