|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2009, 12:49 | #1 |
Новичок
Джуниор
Регистрация: 22.05.2009
Сообщений: 2
|
Нужна помощь в решении задач (qBasic) !
Нужна помощь в решении 2ух задач :
1. Напишите программу, которая в центре чистого экрана на одном и том же месте выведет последовательно цифры от 1 до 3600 (модель "электронного секундомера"). Подберите паузу между выводом цифр примерно в одну секунду. Добавьте звуковой сигнал, который будет звучать каждый 5 секунд. p.s. звуковым сигналом можно принебреч лиш бы работало 2. Вводятся целые числа А1,..., А10. В программе нужно получить число отрицательных элементов последовательности А1,...,А5 и число нулевых элементов всей последовательности А1,...,А10. -= помогите умные люди =- |
23.05.2009, 15:26 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Если нет своих наработок (ждёшь, паока всё сделают другие), и готов заплатить за решение, - обращайся в личку.
|
23.05.2009, 17:55 | #3 | |
Новичок
Джуниор
Регистрация: 22.05.2009
Сообщений: 2
|
Цитата:
DIM a(10) FOR cnt = 1 TO 10 IF a(cnt) < 0 AND cnt < 6 THEN minsum = minsum + 1 IF a(cnt) = 0 THEN zeroelem = zeroelem + 1 NEXT cnt PRINT minsum, zeroelem ктонить ХЕЕЕЛП |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь в решении задач по Лазарусу | hp120 | Помощь студентам | 1 | 13.05.2009 20:33 |
Нужна помощь в решении нескольких задач | KpeHDeJIb | Помощь студентам | 16 | 28.06.2008 13:17 |
Нужна помощь в решении двух задач | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 23.05.2008 09:01 |