Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
1104 / 480 / 33
Регистрация: 05.07.2018
Сообщений: 1,870
Записей в блоге: 7

Решение иным алгоритмом?

18.09.2018, 09:17. Показов 1925. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача
1. Задать 10 случайных натуральных чисел на интервале от 10 до 39
2. Найти алгебраическую сумму этих чисел при условии, что чётные числа идут в сумму со знаком плюс, а нечётные - со знаком минус
3. Нельзя использовать операцию MOD
4. (для получения оценки 3 надо найти 3 варианта решения; для оценки 4 - 4 варианта и так далее)
...
Решение
Вариант 1 (программа прилагается). Алгоритм заключается в том, что чётность натурального числа определяется с помощью операции вычитания числа 2. Чётное число, после нескольких вычитаний обратится в 0. А нечётное - в 1.

Поиск иных решений.
Вариант 2. В силу того, что число заданных натуральных чисел определено на интервале [10, 39], то вероятно можно задать массив всех этих чисел, который будет указывать на чётность числа. Например 0 - чётное число, а -1 - нечётное число? Есть некоторые неясности в написании программы...

Вариант 3. Вообще говоря чётные числа оканчиваются на 0, 2, 4, 6, 8. Видимо это тоже можно использовать в алгоритме?

Вариант 4. Если нельзя напрямую использовать операцию MOD, то наверное её можно как то вычислить косвенно... Как?

Вариант 5. Нечего более в голову не приходит. Полагаю, что на форуме есть умные головы. Нет. Точно есть! Я в этом успел убедиться.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
CLS
RANDOMIZE TIMER
DIM A AS INTEGER
DIM B AS INTEGER
DIM k AS INTEGER
 
FOR i = 1 TO 10
   A = 10 + INT(29 * RND)
   PRINT A
   B = A
 
   FOR k = 1 TO 20
      B = B - 2
 
      IF B = 0 THEN
         SUM = SUM + A
         EXIT FOR
      ELSEIF B = 1 THEN
         SUM = SUM - A
         EXIT FOR
      END IF
   NEXT k
NEXT
 
PRINT
PRINT "SUM ="; SUM
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.09.2018, 09:17
Ответы с готовыми решениями:

Решение задачи иначе (другим алгоритмом)?
Задача 1. дано пятизначное число 56511 2. требуется найти пятизначное число большее заданного и удовлетворяющего условию 3. новое...

Шифрование алгоритмом моноалфавитной подстановки и Алгоритмом Цезаря
Здравствуйте, помогите исправить код чтобы выводилось одинаково зашифрованное сообщение, и методом моноалфавитной подстоновкой и методом...

Решение сравнений первой степени методом Эйлера и алгоритмом Евклида
Помогите написать программу для решения сравнений методом Эйлера и алгоритмом Евклида. Уже неделю сижу и не могу понять сами методы, а...

5
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
18.09.2018, 11:26
Лучший ответ Сообщение было отмечено нтч как решение

Решение

Цитата Сообщение от нтч Посмотреть сообщение
Если нельзя напрямую использовать операцию MOD, то наверное её можно как то вычислить косвенно... Как?
a mod b = a-int(a/b)*b

Добавлено через 2 минуты
Проверка на делимость без остатка:
a mod b = 0
a - int(a/b)*b = 0.
a = int(a/b)*b
a/b = int(a/b)
a/b = a\b

Добавлено через 5 минут
Проверка делимости на 2 без mod
a and 1 = 0
1
1104 / 480 / 33
Регистрация: 05.07.2018
Сообщений: 1,870
Записей в блоге: 7
18.09.2018, 11:29  [ТС]
Уважаемый мастер решения нестандартных задач m-ch,
я восхищён тем, как вы просто решили то, на чем я долго думал. Вы знаете, я полагал здесь сделать вычитание ... до тех пор, пока не получится остаток, а вот функцию INT() как-то проглядел...
СПАСИБО!!!

Добавлено через 2 минуты
Великий m-ch,
я ошеломлём таким количеством предложенных вами вариантов!!
0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
18.09.2018, 11:36
Лучший ответ Сообщение было отмечено нтч как решение

Решение

Собственно решение из нескольких строчек кода:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
DIM s AS INTEGER, a AS INTEGER, i AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO 10
    a = INT(RND * 29 + 10)
    IF a AND 1 THEN s = s - a ELSE s = s + a
    PRINT a
NEXT i
PRINT s
1
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
18.09.2018, 14:02
m-ch, это, конечно, хорошо, но 39 в вашей программе никогда не сгенерируется, потому что rnd(29) всегда меньше 29
QBasic/QuickBASIC
1
a = INT(RND * 30 + 10)
0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
18.09.2018, 14:21
Цитата Сообщение от кот Бегемот Посмотреть сообщение
это, конечно, хорошо, но 39 в вашей программе никогда не сгенерируется,
Да не сгенерируется, я скопировал подход ТС из первого сообщения и особо не заморачивался по данному вопросу
Показал как можно проверить число на четность без функции mod
соответственно нужно указать a = INT(RND * 30 + 10), будет сгенерированы целые числа от 10 до 39 (с ожидаемым равномерным распределением)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.09.2018, 14:21
Помогаю со студенческими работами здесь

Коннект к БД с иным источником данных
У меня стоят такие вещи: PWS(+ASP) + MS InterDev 6.0 + FP Server Extention. Есть проблема (а может я чего-то не знаю): <% dim Con: dim...

Время на преобразование void* к иным указателям
Здравствуйте. Имеется небольшой вопрос. Тратится ли время на преобразование из void* к иным типам? Насколько я понимаю не должно,...

Возможно ли получить список товаров через GET или иным способом?
Здравствуйте, пишу курсовой проект на delphi, требуется получить список товаров с магазина. Имеется ли функция у этого компонента...

Проблемы с написанием скрипта или иным вариантом решения лабы
Суть задания: Инициализировать две числовые переменные со знаком. Если обе переменные положительные инвертировать значение четвертого...

Как сделать выделение иным цветом первого элемента списка?
Здравствуйте. Получаю в qt quick программе список файлов и каталогов. Как сделать выделением иного цвета первый элемент списка и ...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru