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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.06.2010, 15:01   #1
064
Новичок
Джуниор
 
Регистрация: 22.06.2010
Сообщений: 6
По умолчанию QBasic

парни после завтра экзамен по информатике......не могу сделать 1 практическую!!!! помогите плиз кто чем может!!!!
язык QBasic
массивы
1 - В заданном массиве X(N) замените нулями отрицательные компоненты, а положительные - единицей
2 - Выведети на печать номера элементов заданного массива X(N), удовледворяюще условия 0<yi<1
064 вне форума Ответить с цитированием
Старый 22.06.2010, 15:12   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Код:
CLS
RANDOMIZE TIMER
INPUT "Введите количество элементов массива"; n
DIM x(n)
FOR i = 1 TO n
x(i) = RND * 200 - 100
NEXT i
PRINT "Исходный массив"
FOR i = 1 TO n
PRINT x(i)
NEXT i
PRINT "Полученный массив"
FOR i = 1 TO n
IF x(i) < 0 THEN x(i) = 0 ELSE x(i) = 1
PRINT x(i)
NEXT i
Код:
CLS
RANDOMIZE TIMER
INPUT "Введите количество элементов массива"; n
DIM x(n)
FOR i = 1 TO n
x(i) = RND * 2 - 1
NEXT i
PRINT "Исходный массив"
FOR i = 1 TO n
PRINT x(i)
NEXT i
PRINT "Полученный массив"
FOR i = 1 TO n
IF x(i) > 0 AND x(i) < 1 THEN PRINT x(i)
NEXT i
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948

Последний раз редактировалось Stilet; 30.06.2010 в 09:30.
Z1000000 вне форума Ответить с цитированием
Старый 22.06.2010, 15:44   #3
064
Новичок
Джуниор
 
Регистрация: 22.06.2010
Сообщений: 6
По умолчанию

огромное спасибо у меня два вопроса
что за оператор "RANDOMIZE TIMER" насколько я понял "RND" это тоже самое??
и второй...в подписи у тебя WM??
064 вне форума Ответить с цитированием
Старый 22.06.2010, 16:19   #4
T@Rak0t
Пользователь
 
Аватар для T@Rak0t
 
Регистрация: 10.03.2010
Сообщений: 17
По умолчанию

Цитата:
Сообщение от 064 Посмотреть сообщение
огромное спасибо у меня два вопроса
что за оператор "RANDOMIZE TIMER" насколько я понял "RND" это тоже самое??
и второй...в подписи у тебя WM??
RANDOMIZE TIMER - ставится для того что бы генерация случайных числе была зависима от времение, т.е. реально случайная, если это не написать то функция RND будет генерить постоянно одни и те же числа ( это удобно использовать при отладке, что бы можно было выделить проблемы при генерации некоторых чисел)
T@Rak0t вне форума Ответить с цитированием
Старый 22.06.2010, 16:24   #5
064
Новичок
Джуниор
 
Регистрация: 22.06.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от T@Rak0t Посмотреть сообщение
RANDOMIZE TIMER - ставится для того что бы генерация случайных числе была зависима от времение, т.е. реально случайная, если это не написать то функция RND будет генерить постоянно одни и те же числа ( это удобно использовать при отладке, что бы можно было выделить проблемы при генерации некоторых чисел)
спасибо...ппц.нахрен мне юисту это знать??))
064 вне форума Ответить с цитированием
Старый 23.06.2010, 11:12   #6
Игорян211
Новичок
Джуниор
 
Регистрация: 23.06.2010
Сообщений: 2
По умолчанию

помогите с практикой.
Задача:Имеется сто чисел А1,А2...А100. подсчитать сколько имеется троек равных соседних чисел в этом ряду.
Игорян211 вне форума Ответить с цитированием
Старый 30.06.2010, 07:54   #7
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Цитата:
Сообщение от 064 Посмотреть сообщение
огромное спасибо у меня два вопроса
что за оператор "RANDOMIZE TIMER" насколько я понял "RND" это тоже самое??
Уже ответил T@Rak0t

Цитата:
и второй...в подписи у тебя WM??
Да.
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
qBasic Floro Flores Помощь студентам 3 12.05.2010 23:44
QBasic Stervec Помощь студентам 4 06.05.2010 19:23
qbasic kenny495 Помощь студентам 2 21.12.2009 21:36
QBASIC FLORA Помощь студентам 1 19.02.2009 20:43