17.01.2011, 19:28 | #1 (permalink) |
Новичок
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
QBasic, массивы
Задание: Написать программу формирования одномерного массива размера М. Полученный массив напечатать. Выполнить обработку и преобразование массива На печатать преобразованный массив Подобрать контрольный пример Вариант: Найти сумму модулей отрицательных нечетных элементов. Получить новый массив путем возведения в квадрат элементов, стоящих на четных местах |
17.01.2011, 19:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Судя по всему проблема частая, на нашем форуме нашлись совпадения Задача в QBasic QBasic |
17.01.2011, 19:49 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Массив как заполнять будете: случайными значениями или путем ввода с клавиатуры?
Алгоритм следующий: 1) определяем значение переменной M 2) определяем числовой массив вещественного типа (так как не сказано, какой именно тип данных в нем хранится) размерностью M элементов. 3) инициализируем переменную для суммы. 4) в цикле заполняем массив значениями и в следующем цикле выводим массив на экран 5) в цикле анализируем значение текущего элемента массива и при отрицательном значении к переменной суммы прибавляем модуль значения этого элемента (функция ABS - модуль числа). в этом же цикле анализируем индекс текущего элемента и, если он нечетный, возводим во вторую степень значение текущего элемента массива. 6) выводим значение суммы 7) в цикле выводим значение элементов массива
__________________
Убить всех человеков! |
19.01.2011, 06:08 | #5 (permalink) |
Новичок
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
INPUT "vvedite razmernoct massiva:"; M
INPUT "Vvedite znachenie massiva"; I, K DIM A(M) S = 0 FOR I = 1 TO M A(I) = K NEXT I FOR I = 1 TO M PRINT "Znachenie massiva "; I; "="; A(I) IF A(I) < 0 THEN S = S + ABS(A(I)) ELSE S = S + (I) IF ABS(I / 2) <> (I / 2) THEN A(I) = A(I) ^ 2 NEXT I PRINT "Summa="; S FOR I = 1 TO M PRINT "Znachenie massiva I="; A(I) NEXT I END так правильно?? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.01.2011, 11:42 | #6 (permalink) |
Новичок
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот правильно
INPUT "vvedite razmernoct massiva:"; M
DIM A(M) S = 0 FOR I = 1 TO M INPUT "Vvedite znachenie massiva:"; K A(I) = K NEXT I REM Vivodim na pechat FOR I = 1 TO M PRINT "Znachenie massiva "; I; "="; A(I) NEXT I FOR I = 1 TO M IF A(I) < 0 AND (INT(A(I)/2) <> A(I)/2) THEN S = S + ABS(A(I)) IF INT(I / 2) = (I / 2) THEN A(I) = A(I) ^ 2 NEXT I PRINT "Summa="; S FOR I = 1 TO M PRINT "Znachenie massiva I="; A(I) NEXT I END |
21.12.2013, 06:04 | #7 (permalink) |
Новичок
Регистрация: 21.12.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы
1) Найти количество отрицательных элементов массива.
2) Даны два массива K(9)=(1, -3, 7, 8, -14, 60, -5, 9, -2) и M(9)=(-4, 71, 8, 13, 17, 54, 7, 1, 0). Составить программу определяющую порядковые номера отрицательных элементов массива. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|