Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
Petro29
2 / 2 / 0
Регистрация: 30.04.2016
Сообщений: 93
#1

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

05.01.2017, 09:37. Просмотров 91. Ответов 1
Метки нет (Все метки)

Как заменить массиве из 10 целых чисел все чётные элементы нулями? Как бы сделать так, чтобы нули заменили чётные индексы массива, а не так как у меня получилось. Да ещё бы и исходный массив печатался?
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
CLS
DIM A(10)
DATA 5,6,3,7,1,8,2,9,3,4
FOR I = TO N
   READ A(i)
   PRINT A(i);
IF I MOD 2 = 0 THEN
   A(i) = 0
    PRINT A(i);
  END IF
NEXT i
QBasic/QuickBASIC
1
5   6   0   3   7   0   1   8   0   2   9   0   3   4   0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 09:37     Заменить в массиве все чётные элементы нулями
Посмотрите здесь:

Заменить нулями все её элементы, расположенные на главной диагонале QBasic
QBasic В двумерном массиве D (5; 5) все элементы равные M заменить на N
QBasic Заменить нулями все элементы матрицы, расположенные на главной диагонали
QBasic В массиве есть два элемента равные 0. Заменить все элементы стоящие между ними, на единицы
QBasic В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте
В массиве R, состоящим из N элементов заменить все отрицательные элементы на ноль QBasic
QBasic Заменить нулями все элементы матрицы, расположенные ниже главной диагонали
QBasic Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами
Все элементы с наибольшим значением в данной матрице заменить нулями QBasic
QBasic Заменить отрицательные элементы матрицы нулями, а положительные - единицами
Заменить нулями все ее элементы матрицы, расположенные на главной QBasic
Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё QBasic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
821 / 1016 / 347
Регистрация: 23.10.2013
Сообщений: 4,763
Записей в блоге: 4
05.01.2017, 11:17     Заменить в массиве все чётные элементы нулями #2
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
Yandex
Объявления
05.01.2017, 11:17     Заменить в массиве все чётные элементы нулями
Ответ Создать тему
Опции темы

Текущее время: 14:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru