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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

Задано четыре вещественных числа A, B, C, D - QBasic

01.01.2017, 14:16. Просмотров 87. Ответов 0
Метки нет (Все метки)

Задано четыре случайных вещественных числа
A, B, C, D. Требуется между этими числами поставить
знаки арифметических операций сложения и умножения
(всего три различных или равных операции) таких, чтобы
после выполнения этих операций получилось максимальное
число.
Вывести на экран
1. сами числа
2. максимум
3. операции либо в явном виде, либо в числовом
(0 - сложение, 1 - умножение)

Вопросы
1. Можно ли упростить эту программу?
2. Есть ли иное решение?
3. Вам понравилась эта Новогодняя задача?

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
REM
REM  0 < A,B,C,D < 5
REM
 
CLS
RANDOMIZE TIMER
A = 5 * RND
B = 5 * RND
C = 5 * RND
D = 5 * RND
 
FOR i = 0 TO 1
FOR j = 0 TO 1
FOR k = 0 TO 1
   IF i + j + k = 3 THEN
      M = A * B * C * D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF i = 0 AND j + k = 2 THEN
      M = A + B * C * D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF j = 0 AND i + k = 2 THEN
      M = A * B + C * D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF k = 0 AND i + j = 2 THEN
      M = A * B * C + D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF i = 1 AND j + k = 0 THEN
      M = A * B + C + D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF j = 1 AND i + k = 0 THEN
      M = A + B * C + D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF k = 1 AND i + j = 0 THEN
      M = A + B + C * D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   ELSEIF i + j + k = 0 THEN
      M = A + B + C + D
      IF max < M THEN
         max = M
         i1 = i: j1 = j: k1 = k
      END IF
   END IF
NEXT k, j, i
 
PRINT "A,B,C,D ="; A; B; C; D
PRINT "MAX ="; max
PRINT "i,j,k ="; i1; j1; k1
END
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 14:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задано четыре вещественных числа A, B, C, D (QBasic):

Имеется четыре произвольных числа: А, B, C, D - QBasic
пожалуйста можете решить... Имеется четыре произвольных числа: А, B, C, D. ЭВМ должна ответить на вопрос: Правда ли что среди чисел точно...

Даны четыре действительных числа. Упорядочить их по убыванию - QBasic
Даны четыре действительных числа. Упорядочить их по убыванию. делается как-то через IF, но не могу представить как

Удалить элементы массива вещественных чисел, больше заданного числа - QBasic
Удалить элементы массива вещественных чисел, больше заданного числа.

Найти сумму всех элементов массива вещественных чисел, больших заданного числа - QBasic
найти сумму всех элементов массива вещественных чисел, больших заданного числа.

Даны четыре вещественных числа от нуля. Проверить: образуют ли данные числа геометрическую прогрессию. - C++
Даны четыре вещественных числа от нуля. Проверить: образуют ли данные числа геометрическую прогрессию.

Даны четыре вещественных числа. Определить, сколько из них отрицательных. - Pascal ABC
Даны четыре вещественных числа. Определить, сколько из них отрицательных.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2017, 14:16
Привет! Вот еще темы с ответами:

Даны четыре вещественных числа. Определить, сколько из них отрицательных - Pascal
Даны четыре вещественных числа. Определить, сколько из них отрицательных(без массива) Pascal ABC Добавлено через 4 минуты Пожалуйста...

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные - Pascal
Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные.

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти - Pascal ABC
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

Вывести и обработать четыре массива, содержащие соответственно 3, 5, 8 и 6 вещественных компонентов - Pascal ABC
Вывести и обработать четыре массива, содержащие соответственно 3, 5, 8 и 6 вещественных компонентов. Разработать следующие процедуры: ...


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

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

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