PDA

Просмотр полной версии : Срочно нужна помощь! (Не очень сложно)



JonAleks
11.05.2011, 18:16
В общем, мне очень срочно нужны решения 6-ти задач в QBasic!!!(я заранее ОЧЕНЬ благодарен)
1.Заполнить одномерный массив случайными числами, ввести эталонное число с клавиатуры, найти, сколько раз эталонное число встречается в массиве.
2.Заполнить массив из 60 элементов целыми случайными числами в пределах от 10 до 99. Выведите их на экран в обратном порядке по 6 чисел в строке.
3. Заполнить массив из десяти элементов целыми случайными числами в пределах от 10 до 99. Найдите максимальный и минимальный элементы, а также разность между ними.
4.Напишите программу, которая заполняет двухмерный массив случайными числами от -50 до 50 и вычисляет сумму его элементов по столбцам.
5.Напишите программу, которая заполняет двухмерный массив случайными числами от -10 до 50 и вычисляет среднее арифметическое его элементов.
6. Напишите программу, которая заполняет двумерный массив случайными числами и находит сумму максимального и минимального значения.
ОЧЕНЬ ПРОШУ, И КАК МОЖНО БЫСТРЕЕ.

Angel666
12.05.2011, 16:10
1.Заполнить одномерный массив случайными числами, ввести эталонное число с клавиатуры, найти, сколько раз эталонное число встречается в массиве.
CLS
INPUT"vvedite kolichestvo strok ",n
DIM MAS(n)
INPUT"vvedite etalonnoe chislo ",m
SUMM = 0
RANDOMIZE TIMER
FOR i = 1 TO n
MAS(i) = INT(RND * 100)
IF MAS(i) = m THEN
SUMM = SUMM + 1
END IF
NEXT I
PRINT "_________"
PRINT "Kolichestvo etalonnyh chisel "; SUMM
2.Заполнить массив из 60 элементов целыми случайными числами в пределах от 10 до 99. Выведите их на экран в обратном порядке по 6 чисел в строке.
CLS
n =60
DIM MAS(n)
RANDOMIZE TIMER
FOR i = 1 TO n
MAS(i) = INT(RND * 90 + 10)
NEXT I
FOR i = n TO 1
IF (I MOD 6) = 0 THEN
PRINT
END IF
PRINT MAS(i);
NEXT I
3. Заполнить массив из десяти элементов целыми случайными числами в пределах от 10 до 99. Найдите максимальный и минимальный элементы, а также разность между ними.
CLS
n =60
DIM MAS(n)
RANDOMIZE TIMER
FOR i = 1 TO n
MAS(i) = INT(RND * 90 + 10)
NEXT I
MAS(1) = MAX
MAS(1) = MIN
FOR i = 2 TO n
IF MAX < MAS(i) THEN
MAX = MAS(i)
END IF
IF MIN > MAS(i) THEN
MIN = MAS(i)
END IF
NEXT I
RAZ = MAX - MIN
PRINT
PRINT "MAX = "; MAX
PRINT
PRINT "MIN = "; MIN
PRINT
PRINT "RAZNOST' = "; RAZ
4.Напишите программу, которая заполняет двухмерный массив случайными числами от -50 до 50 и вычисляет сумму его элементов по столбцам.
CLS
INPUT"VVEDITE RAZMERNOST' MASSIVA ",n
DIM MAS(n, n)
DIM SUM(n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
MAS(i, j) = INT(RND * 102 - 51)
NEXT
NEXT
FOR j = 1 TO n
FOR i = 1 TO n
SUM(j) = SUM(j) + MAS(i, j)
NEXT
NEXT
PRINT
FOR i = 1 TO n
PRINT SUM(i)
5.Напишите программу, которая заполняет двухмерный массив случайными числами от -10 до 50 и вычисляет среднее арифметическое его элементов.
CLS
INPUT"VVEDITE RAZMERNOST' MASSIVA ",n
DIM MAS(n, n)
SUM = 0
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
MAS(i, j) = INT(RND * 62 - 51)
SUM = SUM + MAS(i, j)
NEXT
NEXT
SREDNEE = SUM / (n*n)
PRINT
PRINT "SREDNEE = "; SREDNEE
6. Напишите программу, которая заполняет двумерный массив случайными числами и находит сумму максимального и минимального значения.
CLS
INPUT"VVEDITE RAZMERNOST' MASSIVA ",n
DIM MAS(n, n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
MAS(i, j) = INT(RND * 100)
NEXT
NEXT
MAX = MAS(1, 1)
MIN = MAS(1, 1)
FOR i = 1 TO n
FOR j = 1 TO n
IF MAX < MAS(i, j) THEN
MAX = MAS(i, j)
END IF
IF MIN > MAS(i, j) THEN
MIN = MAS(i, j)
END IF
NEXT
NEXT
SUM = MAX + MIN
PRINT
PRINT "SUM = "; SUM

PS: вроде все правильно, но я не проверяла