Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2009, 12:49   #1
sVIRUSs
Новичок
Джуниор
 
Регистрация: 22.05.2009
Сообщений: 2
Восклицание Нужна помощь в решении задач (qBasic) !

Нужна помощь в решении 2ух задач :
1. Напишите программу, которая в центре чистого экрана на одном и том же месте выведет последовательно цифры от 1 до 3600 (модель "электронного секундомера"). Подберите паузу между выводом цифр примерно в одну секунду. Добавьте звуковой сигнал, который будет звучать каждый 5 секунд.
p.s. звуковым сигналом можно принебреч лиш бы работало
2. Вводятся целые числа А1,..., А10. В программе нужно получить число отрицательных элементов последовательности А1,...,А5 и число нулевых элементов всей последовательности А1,...,А10.
-= помогите умные люди =-
sVIRUSs вне форума Ответить с цитированием
Старый 23.05.2009, 15:26   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,853
По умолчанию

Если нет своих наработок (ждёшь, паока всё сделают другие), и готов заплатить за решение, - обращайся в личку.
EducatedFool вне форума Ответить с цитированием
Старый 23.05.2009, 17:55   #3
sVIRUSs
Новичок
Джуниор
 
Регистрация: 22.05.2009
Сообщений: 2
По умолчанию

Цитата:
Сообщение от sVIRUSs Посмотреть сообщение
2. Вводятся целые числа А1,..., А10. В программе нужно получить число отрицательных элементов последовательности А1,...,А5 и число нулевых элементов всей последовательности А1,...,А10.
-= помогите умные люди =-
Родил вот такую нароботку
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
ктонить ХЕЕЕЛП
sVIRUSs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь в решении задач по Лазарусу 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