Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 program name; uses Timers, Events; var timer, i: integer; procedure TimerProc; begin for i: = 1 to 4 do begin writeln ( 'Текст'); end; end; begin timer: = CreateTimer (200, TimerProc); end.Как зупинити таймер після виконання циклу? Тобто після чотирьох висновків writeln?
Я хочу створити досить складну програму з застосуванням фізичних формул, але зіткнувся з проблемою: мені потрібно щоб на початку програми після натискання клавіші (бажано пробілу) запускався секундний таймер, а по другому натискання змінної присвоювалося число секунд для подальшого використання прошу допомогти, облазив інтернет але ненашёл нічого підходящого Додано через 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 begin write ( 'a (', i, ',', j, ') ='); readln (a [i, j]); end; write ( 'b (', i, ') ='); readln (b [i]); end; for i: = 1 to n do begin if i = 1 then k [i]: = 0 else k [i]: = a [i, i-1]; m [i]: = - a [i, i]; if i = n then t [i]: = 0 else t [i]: = a [i, i + 1]; end; p [1]: = t [1] / m [1]; q [1]: = - b [1] / m [1]; for i: = 2 to n do begin 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]); end; x [n]: = (b [n] -k [n] * q [n-1]) / (k [n] * p [n-1] -m [n]); for i: = n-1 downto 1 do x [i]: = p [i] * x [i + 1] + q [i]; for i: = 1 to n do writeln ( 'x (', i, ') =', x [i]); end.поставіть таймер щоб він писав в секундах за який час ця програма весь метод прогонки расчитаем? допоможіть пож буду вам дуже вдячна
як зробити програму в паскале котораю після закінчення таймера сама по сибе виходила (без Натисніть будь-яку клавішу.)?
Створити таймер включається на 10 секунд. Є просто таймер який не закінчується, не могли б ви допомогти щоб таймер закінчився на 10 секунді з написом Ващаєв програма завершена натисніть будь-яку клавішу.