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

QBasic

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

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

05.01.2017, 09:37. Просмотров 115. Ответов 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 09:37
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Заменить в массиве все чётные элементы нулями (QBasic):

Заменить в массиве из 10 целых чисел все чётные элементы нулями - QBasic
Заменить в массиве из 10 целых чисел все чётные элементы нулями и вывести исходный и полученный массивы на экран. CLS DIM...

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

Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами - QBasic
Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й...

В массиве К(5, 5) заменить элементы, стоящие ниже главной диагонали нулями - QBasic
CLS DIM X(5, 5) FOR i = 1 TO 5 FOR j = 1 TO 5 X(I, j) = INT(RND(i) * 20) LOCATE X(i * 2, j * 4) PRINT X(i, j);...

Заменить нулями все ее элементы матрицы, расположенные на главной - QBasic
. Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее. ...

Заменить нулями все её элементы, расположенные на главной диагонале - QBasic
Дана действительная квадратная матрица поядка n. Заменить нулями все её элементы, расположенные на главной диагонале. За помощь,...

1
echs
893 / 1089 / 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
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2017, 11:17
Привет! Вот еще темы с ответами:

Заменить нулями все элементы матрицы, расположенные на главной диагонали - QBasic
Дана действительная квадратная матрица порядка n. Заменить нулями все её элементы, расположенные на главной диагонали.

Все элементы с наибольшим значением в данной матрице заменить нулями - QBasic
Добрый вечер. Нужна помощь в написании программы на бейсике: Все элементы с наибольшим значением в данной целочисленной квадратной...

Заменить нулями все элементы матрицы, расположенные ниже главной диагонали - QBasic
Ввести квадратную матрицу В(k,k). Заменить нулями все элементы матрицы, расположенные ниже главной диагонали. Вывести исходную и...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё - QBasic
Ребят,помогите с одним вопросом. Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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