Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 име на програмата; използва таймери, събития; таймер Var, I: цяло число; процедура TimerProc; започнем защото: = 1 до 4 започвайте writeln ( 'текст'); приключи; приключи; започне таймер: = CreateTimer (200, TimerProc); end.Kak спрете таймера след един цикъл? Това означава, че след четири writeln заключения?
Искам да създам доста сложна програма с физически формули, но се натъкна на проблем: Имам нужда да в началото на програмата, като натискате клавишите (за предпочитане празно) тече втория таймер, и второто кликване променлива се задава брой секунди за по-нататъшна употреба, моля помогнете, се качи на интернет, но nenashel нищо подходящо Добавено след 2 часа и 13 минути
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 започва записване ( "а (" I "," J ") = '); readln (а [Ь, й]); приключи; пиша ( "б (" аз ") = '); readln (б [Ь]); приключи; за I: = 1 до п се започне ако аз = 1 тогава К [Ь]: = 0 друг к [Ь]: = а [I, I-1]; m [Ь]: = - на [Ь, Ь]; ако аз = п след тона [Ь]: = 0 друг т [Ь]: = а [I, I + 1]; приключи; р [1]: = т [1] / m [1]; В [1]: = - б [1] / m [1]; за I: = 2 до п направи започне р [Ь]: = - т [Ь] / (к [Ь] * р [I-1] -m [Ь]); Q [Ь]: = (б [Ь] К [Ь] * р [I-1]) / (к [Ь] * р [I-1] -m [Ь]); приключи; х [п]: = (б [п] К [п] * Q [М-1]) / (к [п] * р [М-1] -m [п]); за I: = N-1 Downto 1 направи х [п]: = р [Ь] * х [п + 1] + р [Ь]; за I: = 1 до п направи writeln ( "х (" I ") = ', х [п]); end.postavit таймер, който той пише в секунди колко дълго тази програма е насочена цялата метод почистване? ампера ще помогнат много благодарни
как да се направи програма в програма за управление на Паскал, че след края на таймера се Seeb изход (без натиснете произволен клавиш.)?
Създаване на таймер за 10 секунди. Има само един таймер, който не завършва, не може да помогне, че таймерът е приключила на 10 секунди с помощта на програмата за надпис vascha е завършена, натиснете произволен клавиш.
Свързани статии