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

QBasic

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

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

05.01.2017, 09:37. Просмотров 106. Ответов 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 Заменить в массиве из 10 целых чисел все чётные элементы нулями
: Заменить в массиве из 10 целых чисел все чётные элементы нулями и вывести получен QBasic
QBasic Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами
QBasic В массиве К(5, 5) заменить элементы, стоящие ниже главной диагонали нулями
Заменить нулями все её элементы, расположенные на главной диагонале QBasic
Заменить нулями все ее элементы матрицы, расположенные на главной QBasic
QBasic Заменить нулями все элементы матрицы, расположенные на главной диагонали
Все элементы с наибольшим значением в данной матрице заменить нулями QBasic
QBasic Заменить нулями все элементы матрицы, расположенные ниже главной диагонали
Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё QBasic
QBasic В двумерном массиве D (5; 5) все элементы равные M заменить на N
В массиве R, состоящим из N элементов заменить все отрицательные элементы на ноль QBasic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
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
Ответ Создать тему
Опции темы

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