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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
882 / 1077 / 347
Регистрация: 23.10.2013
Сообщений: 5,026
Записей в блоге: 2
#1

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

01.01.2017, 14:16. Просмотров 82. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 14:16     Задано четыре вещественных числа A, B, C, D
Посмотрите здесь:

QBasic Увеличить на 3 единицы все числа, расположенные до первого числа, равного 10
QBasic Удалить элементы массива вещественных чисел, больше заданного числа
QBasic Найти сумму всех элементов массива вещественных чисел, больших заданного числа
Сгенерировать числа, чтобы в массиве выходили числа заданного формата QBasic
Имеется четыре произвольных числа: А, B, C, D QBasic
QBasic Даны натуральные числа n и m. Получить сумму m последних цифр числа n
QBasic Образовать матрицу R в три строки и четыре столбца по формуле
QBasic Даны четыре действительных числа. Упорядочить их по убыванию
QBasic Задано трехразрядное число а с двумя разрядам в дробной части. Определить, есть ли в этом числе цифра 8
QBasic Задано случайное множество точек. Вычислить периметр четырехугольника
Образовать массив Z, состоящий из 10 вещественных чисел QBasic
Задано случайное множество точек. Вычислить периметр четырехугольника (графически) QBasic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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