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

Найти наибольший элемент числового массива

26.12.2012, 21:42. Показов 1724. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1) Вывести элементы массива, состоящего из 10 элементов,
с чётными и нечётными номерами.
2) Составить программу для проверки утверждения: «Результатами вычислений по формуле х2 + х + 17 при 0 < х< 15 являются простые числа». Все результаты вывести на экран.
3) Найти наибольший элемент числового массива
A = (a1, a2 , ..., aN ) и определить его номер.
Буду очень благодарен

Добавлено через 53 минуты
задачу 3 я сделал. Вот незнаю как сделать 1 и 2

Добавлено через 13 часов 33 минуты
Помогите пожалуйста. мне 1 и 2 задание сделать. А то я в qbasic'e не шарю

Добавлено через 11 часов 34 минуты
Помогите очень прошу
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.12.2012, 21:42
Ответы с готовыми решениями:

Найти наибольший отрицательный элемент одномерного массива
помогите пожалуйста составить программу по задаче дан одномерный массив из 22 чисел, надо найти значение и номер наибольшего...

Найти наибольший элемент массива К, не имеющий себе равных в массиве L
Здравствуйте. Дано два целочисленных массива K(m) и L(n). Найти наибольший элемент массива К, не имеющий себе равных в массиве L. Задал...

Найти наибольший элемент числового массива А = (a1, a2, ..., aN) и его порядковый номер
{Найти наибольший элемент числового массива А = (a1, a2, ..., aN) и его порядковый номер. Тест ...

2
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
26.12.2012, 22:08
Лучший ответ Сообщение было отмечено Валька как решение

Решение

1)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CONST n = 10
DIM a(n)
FOR i = 1 TO n
    PRINT "input a("; i; ")";
    INPUT ": ", a(i)
NEXT
PRINT "i MOD 2 = 0"
FOR i = 2 TO n STEP 2
    PRINT a(i);
NEXT
PRINT
PRINT "i MOD 2 != 0"
FOR i = 1 TO n STEP 2
    PRINT a(i);
NEXT
Добавлено через 8 минут
Цитата Сообщение от Валька Посмотреть сообщение
0 < х< 15
наверное все же имелось в виду не строгое неравенство
2)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
FOR i = 0 TO 15
    u = i * i + i + 17
    f = prime(u)
    IF f THEN s$ = "YES" ELSE s$ = "NO"
    PRINT "x ="; i, "x^2+x+17 ="; u, s$
NEXT
FUNCTION prime (u)
f = 1
FOR i = 2 TO SQR(u)
    IF u MOD i = 0 THEN f = 0: EXIT FOR
NEXT
prime = f
END FUNCTION
1
0 / 0 / 0
Регистрация: 24.12.2012
Сообщений: 9
26.12.2012, 22:20  [ТС]
Спасибо большое! я вам очень благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.12.2012, 22:20
Помогаю со студенческими работами здесь

Найти минимальный элемент числового массива и вывести его на экран
Найти минимальный элемент числового массива и вывести его на экран

Найти наибольший элемент массива
Необходимо найти наибольший элемент массива размерностью 3х4 и вывести строчку в которой этот элемент состоит.

Найти наибольший элемент массива
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью датчика случайных чисел. Вывести его на...

Найти наибольший элемент массива.
Найти наибольший элемент массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале .

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru