Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 03.12.2010
Сообщений: 7

Вычислить произведение элементов массива, значения которых кратны 3

06.12.2010, 01:07. Показов 1476. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Скажите пожулуйста каким образом сделать данное задание именно на Qbasic
и какой алгоритм(если можно). Последнее вроде осталось.


Дан одномерный массив, состоящий из n элементов. Необходимо
сделать следующее:

1. Вычислить произведение элементов массива, значения которых кратны 3.

2. Преобразовать массив так, чтобы элементы массива с нечетными и четны-
ми индексами поменялись местами (первый – со вторым, третий – с четвер-
тым и т.д.).
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.12.2010, 01:07
Ответы с готовыми решениями:

Подсчитать сумму элементов массива, значения которых кратны 8
Здравствуйте форумчпни!!! Очень нуждаюсь в вашей помощи. Столкнулся с очень интересной задачей, решил её на Паскале, а Бейсик вооообще...

Определить произведение элементов, значения которых не кратны заданному числу F
решение в Visual Basic 6.0 Дан двумерный массив (матрица) размером NxM. 1. Определить произведение элементов, значения которых не...

Определить произведение элементов матрицы, значения которых не кратны заданному числу F
Двумерный массив (матрица) размером NxM. Определить произведение элементов, значения которых не кратны заданному числу F Как реализовать...

1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
06.12.2010, 09:54
Лучший ответ Сообщение было отмечено Mr.Green как решение

Решение

1.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
DIM M%(10)
   CLS
   RANDOMIZE TIMER
FOR i = 1 TO 10
  M%(i) = RND * 21 - 10
  PRINT M%(i);
NEXT i: PRINT
Pr# = 1
FOR i = 1 TO 10
  IF M%(i) MOD 3 = 0 THEN Pr# = Pr# * M%(i)
NEXT i
PRINT "Proizvedenye:"; Pr#
Добавлено через 16 минут
2.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
Again: INPUT "Vvedite razmer massiva:", n
n = (n \ 2) * 2
IF n <= 0 GOTO Again
PRINT "Razmer massiva preobrazovan k chetnomu chislu i raven "; n
DIM M%(n)
   ' Заполним массив и на экран его
   RANDOMIZE TIMER
FOR i = 1 TO n
  M%(i) = RND * 21 - 10
  PRINT M%(i);
NEXT i: PRINT
  '  Меняем эл-ты
FOR i = 2 TO n STEP 2
  SWAP M%(i), M%(i - 1)
NEXT i
  '  Вывод
FOR i = 1 TO n
  PRINT M%(i);
NEXT i
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.12.2010, 09:54
Помогаю со студенческими работами здесь

Вычислить сумму и произведение элементов массива, значения каждого из которых больше 0 и меньше 3
Дан одномерный массив a вещественного типа, состоящий из n элементов. Вычислить сумму и произведение элементов массива, значения каждого из...

Вывести на экран произведение тех элементов массива, номера которых кратны трем
дан одномерный массив А, состоящий из целых чисел. вывести на экран произведение тех элементов массива, номера которых кратны трем.

Определить количество элементов двумерного массива, значения которых не кратны заданному числу F
ПОМОГИТЕ ПОЖАААЛУЙСТА!, В этом вообще ничего не понимаю. Подскажите хотя бы с чего начать. Задание: 1. Организовать ввод элементов...

В массиве x(n) определить произведение элементов, значение которых кратны пяти.
Подскажите,как составить массив?он должен быть сделан при помощи rnd.. В массиве x(n) определить произведение элементов,значение которых...

Вычислить сумму и произведение элементов массива, индексы которых кратны 3
procedure TForm1.ResButtonClick(Sender: TObject); var i:integer; res:integer; s:integer; begin res :=1; for i:=1 to 9 do...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru