Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [QBasic]Одномерные массивы

Автор: kockroach 10.5.2008, 11:07

Я новичок в программировании и вообще гуманитарий smile

, помогите пожалуйста решить задачу:

задайте массив из 10 элементов с помощью датчика случайных чисел. Замените нулём элементы массива, которые больше введённого с клавиатуры числа N. Выведите на экран исходный и полученный массивы.

Автор: almagnit 10.5.2008, 11:31

Ностальжи ... smile

Код


CLS
INPUT n
DIM a(n), b(n)
FOR i = 1 TO n
a(i) = RND * 10
IF (a(i) > n) THEN b(i) = 0 ELSE b(i) = a(i)
PRINT "a(" + STR$(i) + ")=" + STR$(a(i))
NEXT i
PRINT
FOR i = 1 TO n
PRINT "b(" + STR$(i) + ")=" + STR$(b(i))
NEXT i

Автор: kockroach 10.5.2008, 11:34

О спасибо огромное!!!!а можно ещё вопрос...что это за оператор STR?

Автор: almagnit 10.5.2008, 11:53

STR$ преобразовывает число в строку.

Автор: Артемон 7.12.2009, 18:37

Здравствуйте!....Помогите с задачей плиз!))
Дан массив в виде матрицы 4х4
0011
0022
3300
4400
напечатать этот массив. Упорядочить массив по убыванию элементов в каждом столбце.Результат напечатать.