Soluție cronometru - pascal abc

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 nume de program; utilizează cronometrele, evenimentele; var timer, i: întreg; procedura TimerProc; începe pentru i: = 1 până la 4 nu începe writeln ("Text"); se încheie; se încheie; începeți cronometrul: = CreateTimer (200, TimerProc); Cum pot opri cronometrul după ce execută o buclă? Aceasta este după patru concluzii writeln?







Vreau să creeze un program destul de complex cu formule fizice, dar a fugit într-o problemă: am nevoie sa la începutul programului prin apăsarea tastelor (de preferință martor) a alerga al doilea cronometru, și al doilea clic dintr-o variabilă este atribuit un număr de secunde, pentru a fi utilizate în continuare vă rugăm să ajute, cățără pe Internet dar nu a ajuns la nimic adecvatAdăugat după 2 ore 13 minute

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 începe a scrie ( 'a (', i, '', j, ') ='); readln (a [i, j]); se încheie; scrie ('b (', i, ') ='); readln (b [i]); se încheie; pentru i: = 1 până la n începe dacă i = 1 atunci k [i]: = 0 alt k [i]: = a [i, i-1]; m [i]: = - a [i, i]; dacă i = n atunci t [i]: = 0 altfel t [i]: = a [i, i + 1]; se încheie; p [1]: = t [1] / m [1]; q [1]: = - b [1] / m [1]; pentru i: = 2 n do începe p [i]: = - t [i] / (k [i] * p [i-1] -m [i]); q [i]: = (b [i] -k [i] * q [i-1]) / (k [i] * p [i-1] -m [i]); se încheie; x [n]: = (b [n] -k [n] * q [n-1]) / (k [n] * p [n-1] -m [n]); pentru i: = n-1 downto 1 până la x [i]: = p [i] * x [i + 1] + q [i]; pentru i: = 1 la n scrie writeln ('x (', i, ') =', x [i]); end.set timer-ul, astfel încât el a scris în câteva secunde pentru ce timp acest program a calculat toată metoda de maturare? ajuta-ma va fi foarte recunoscător pentru tine







cum să faci programul în pascal care, după ce timerul se termină de la sine a ieșit (fără a apăsa nici o tastă.)?

Creați un cronometru care se activează timp de 10 secunde. Există doar un cronometru care nu se oprește, ai putea să-l ajuți să facă timerul să se termine la 10 secunde cu inscripția că poți termina programul? Apasă orice tastă.







Articole similare

Trimiteți-le prietenilor: