Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Определить количество элементов массива, равных числу m Дан массив Х, состоящий из 20 це- лых случайных чисел, каждое из которых лежит в пределах от 3 до 13. С клавиатуры вводится число m, также лежащее в этих пределах. Определить количество элементов... https://www.cyberforum.ru/ qbasic/ thread1894338.html QBasic Найти максимальный элемент массива
Всем привет:) прошу помочь!!Буду очень благодарна. Дан массив А (7). Найти максимальный элемент массива. Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с...
QBasic Построить график функции |x| ^ x построить график функции y = |x| ^ x REM REM y = |x| ^ x REM CLS SCREEN 11 WINDOW (-4, 5)-(4, -1) https://www.cyberforum.ru/ qbasic/ thread1893810.html QBasic Построить график функции x ^ x https://www.cyberforum.ru/ qbasic/ thread1893773.html
Построить график функции y = x ^ x REM REM y = x^x REM CLS SCREEN 11 WINDOW (-3, 5)-(5, -1)
Вычислить 7 ^ 77 QBasic
REM REM Контрольное вычисление REM 7 ^ 77 = 1.181 813 865 805 959 D+65 REM DECLARE FUNCTION M! (i!) DECLARE FUNCTION ST$ (n!) DECLARE SUB Si7 () CLS
QBasic Как пользоваться операторами DEFSNG и др В QBasic есть группа операторов, которые задают тип переменных по умолчанию. DEFSNG, DEFLNG, DEFINT, DEFDBL, DEFSTR Первый из этих операторов можно забыть, ибо все переменные итак по умолчанию... https://www.cyberforum.ru/ qbasic/ thread1892724.html
QBasic Как заполнить оператор DATA данными На форуме дается немало советов о том как заполнить например матрицу. А вот об операторе DATA речь молчит. Однако в этом деле вполне может помочь QBasic. Задача Написать программу, которая... https://www.cyberforum.ru/ qbasic/ thread1892722.html QBasic Матрица и случайная сумма из ее элементов
Дана матрица размером 3×3, состоящая из натуральных чисел на интервале (1; 8). Требуется определить случайную сумму элементов принадлежащих этой матрице по следующему алгоритму. 1. начало (для...
QBasic Задано четыре вещественных числа A, B, C, D https://www.cyberforum.ru/ qbasic/ thread1892487.html
Задано четыре случайных вещественных числа A, B, C, D. Требуется между этими числами поставить знаки арифметических операций сложения и умножения (всего три различных или равных операции) таких,...
QBasic CONST. Она и в Африке CONST Объявить константу очень просто. CONST <Идентификатор> = <арифметическое выражение> Под арифметическим выражением понимается число или несколько чисел, а также идентификаторы ранее объявленных ... https://www.cyberforum.ru/ qbasic/ thread1892482.html
QBasic Числовое равенство для sin(N)
Задается натуральное число N и требуется найти пару натуральных чисел X и Y таких, чтобы выполнялось приближенное числовое равенство SIN(n) = SIN(x) + SIN(y) с погрешностью порядка 0.01% пример ...
QBasic Числовое равенство для ln(N) https://www.cyberforum.ru/ qbasic/ thread1892441.html
Задача задается натуральное число N и требуется найти пару натуральных чисел X и Y таких, чтобы выполнялось приближенное равенство ln(n) = ln(x) + ln(y) с погрешностью порядка 0,01%. пример,...
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
05.01.2017, 11:17 0

Заменить в массиве все чётные элементы нулями - QBasic - Ответ 9972201

05.01.2017, 11:17. Показов 739. Ответов 1
Метки (Все метки)

Ответ

Petro29
Ваши ошибки
1. Вы использовали переменную N, но никакого значения
ей не присвоили, то есть она была равна 0. Вот и результат
2. Вы проверяли на чётность индекс массива, а надо было
элемент массива.
3. (это не ошибка) Вы попытались все сделать в одном
цикле, тем самым усложнили себе задачу. Короткий код
часто бывает сложным для понимания.
...
я исправил вашу программу. Проверьте ее на работоспособность

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS 
N = 10
DIM A(10) 
DATA 5,6,3,7,1,8,2,9,3,4 
FOR i = TO N 
   READ A(i) 
   PRINT A(i); 
NEXT
PRINT; PRINT
 
FOR i = 1 TO N
   IF A(i) MOD 2 = 0 THEN A(i) = 0 
   PRINT A(i); 
NEXT i


Вернуться к обсуждению:
Заменить в массиве все чётные элементы нулями QBasic
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2017, 11:17
Готовые ответы и решения:

Заменить в массиве из 10 целых чисел все чётные элементы нулями
Заменить в массиве из 10 целых чисел все чётные элементы нулями и вывести исходный и...

Заменить в массиве все чётные элементы нулями и вывести полученный массив
Заменить в массиве из 10 целых чисел все чётные элементы нулями и ...

Заменить в массиве все четные элементы нулями
Всем привет! Как вы по названию уже поняли мне нужно заменить все четные числа в массиве на нули и...

Заменить в массиве все чётные элементы нулями
Заменить в массиве все чётные элементы нулями

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2017, 11:17
Помогаю со студенческими работами здесь

Массив: Заменить в массиве все четные элементы нулями...
Заменить в массиве все четные элементы нулями

В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом
В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным...

Все четные элементы файла заменить нулями
//Имеется типизированный файл с целыми числами. //Все его четные элементы заменить нулями. var...

Заменить все чётные элементы матрицы нулями
помогите решить... Заменить все чётные элементы матрицы нулями

Заменить все чётные элементы матрицы нулями.
Заменить все чётные элементы матрицы нулями

Все четные элементы файла заменить нулями
Помогите мне пожалуйста с задачами,очень вас прошу. 1)имеется типизированный файл с целыми...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru