Даны числа А, В, С Меньшее из них утроить, "среднее" - удвоить После этого вновь найти большее, "среднее", меньшее

@eurobeat · Регистрация: 16.03.2018

Студворк — интернет-сервис помощи студентам

2. Даны числа А, В, С. Меньшее из них утроить, "среднее" - удвоить. После этого вновь найти большее, "среднее", меньшее.

@zewsua · 16.03.2018, 16:38

eurobeat, изучайте

@Burk · 17.03.2018, 15:56

eurobeat,

Сообщение от zewsua

, изучайте

лучше не изучать - громоздкий и неправильный алгоритм, одно select Case True чего стоит. Проверить неправильную работу можно взяв за исходные числа например такие 60 40 25
Проверьте следующий макрос (только расположение чисел и подписей на листе оставьте как у Zewsua). Всё сделано для целых чисел, можно любые описания ставить

Visual Basic
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
Sub NumTrue()
Dim I As Integer, Im As Integer, Il As Integer, L As Integer, M As Integer, Ic As Integer
M = 0: L = 10000
For I = 1 To 3
  If Cells(2, I) > M Then M = Cells(2, I): Im = I
  If Cells(2, I) < L Then L = Cells(2, I): Il = I
Next
For I = 1 To 3
  If I <> Im And I <> Il Then Ic = I: Exit For
Next
Cells(7, Il) = Cells(2, Il) * 3
Cells(7, Ic) = Cells(2, Ic) * 2
Cells(7, Im) = Cells(2, Im)
M = 0: L = 10000
For I = 1 To 3
  If Cells(7, I) > M Then M = Cells(7, I): Im = I
  If Cells(7, I) < L Then L = Cells(7, I): Il = I
Next
For I = 1 To 3
  If I <> Im And I <> Il Then Ic = I: Exit For
Next
Cells(2, 6) = Cells(7, Im)
Cells(2, 7) = Cells(7, Ic)
Cells(2, 8) = Cells(7, Il)
End Sub

@Sasha_Smirnov · 17.03.2018, 19:31

Burk, я не проверял, но навскидку — если специально не отсеивать в тройках совпадающие значения — у даной задачи ответов 27 — загляните сюда: Выбрать наименьшее из трёх чисел

У товарища под ником Аксима внешне код (проверенный) похож: Поиск наименьшего, среднего и наибольшего чисел из трех заданных!

@Burk · 17.03.2018, 19:37

Sasha_Smirnov, вы, наверно, не так поняли задачу - исходная тройка только одна во второй строке 1-3 колонка.
далее этапы работы макроса (как и было в файле zewsua): ниже результат после умножения минимального на 3 среднего на 2 (см. исходную постановку задачи). А справа во второй строке максимальное, среднее и минимальное после этих умножений. Задача проста до предела и однозначна

@Sasha_Smirnov · 17.03.2018, 23:12

Хорошо, пускай проста.

У меня нет сейчас ВБА-приложений, но интересно: а что программа скажет на тройку {2; 3; 6} и её линейные комбинации?

@fever brain · 18.03.2018, 00:11

Я придерживаюсь мнения что лучше заново написать программу
с учетом исходных данных, чем исправлять корявый код

Добавлено через 49 секунд
нате... изучайте )) ну опупел...

@Burk · 18.03.2018, 04:14

Sasha_Smirnov, 6; 6; 6;

Добавлено через 15 минут
fever brain,

Сообщение от fever brain

Я придерживаюсь мнения что лучше заново написать программу
с учетом исходных данных, чем исправлять корявый код

я не исправлял код, а просто взял вид листа у г-на "Изучайте", а макрос поставил свой

@zewsua · 18.03.2018, 19:25

прошу меня извинить за выражение "изучайте", не знаю чего так написал, был не в настроении да и код накидал "по-быстрому" особо не проверяя его... теперь понимаю что алгоритм никакой. Как говорится хотел как лучше а получилось как всегда

@Burk · 19.03.2018, 05:27

zewsua, принимается

@Pavel_RAM · 20.03.2018, 08:08

Сегодня попробуем ответить на вашу просьбу. Там нужны какие-либо дополнительные элементы интерфейса, или чисто код в IDE?

@Казанский · 20.03.2018, 08:53

Если речь про Excel, то можно использовать функцию НАИМЕНЬШИЙ (application.small), пример тут: Среди трех чисел a, b, и c найти два числа, дающие минимальную сумму

@Pavel_RAM · 20.03.2018, 14:55

Если судить, что парню задают задачу по программированию, то, думаю, что использование функций "Экселя" не очень интересно и практично

@Pavel_RAM · 21.03.2018, 18:54

Сообщение от eurobeat

2. Даны числа А, В, С. Меньшее из них утроить, "среднее" - удвоить. После этого вновь найти большее, "среднее", меньшее.

Если задача предполагала решение через цикл, то глядите. Если возникнут проблемы по поводу понимания кода, отпишите в ЛС.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@eurobeat -1 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 6

	Даны числа А, В, С Меньшее из них утроить, "среднее" - удвоить После этого вновь найти большее, "среднее", меньшее 16.03.2018, 12:06. Показов 3620. Ответов 13 Метки нет (Все метки) 2. Даны числа А, В, С. Меньшее из них утроить, "среднее" - удвоить. После этого вновь найти большее, "среднее", меньшее. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.03.2018, 19:31
	Burk, я не проверял, но навскидку — если специально не отсеивать в тройках совпадающие значения — у даной задачи ответов 27 — загляните сюда: Выбрать наименьшее из трёх чисел У товарища под ником Аксима внешне код (проверенный) похож: Поиск наименьшего, среднего и наибольшего чисел из трех заданных! 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	17.03.2018, 19:37
	Sasha_Smirnov, вы, наверно, не так поняли задачу - исходная тройка только одна во второй строке 1-3 колонка. далее этапы работы макроса (как и было в файле zewsua): ниже результат после умножения минимального на 3 среднего на 2 (см. исходную постановку задачи). А справа во второй строке максимальное, среднее и минимальное после этих умножений. Задача проста до предела и однозначна 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.03.2018, 23:12
	Хорошо, пускай проста. У меня нет сейчас ВБА-приложений, но интересно: а что программа скажет на тройку {2; 3; 6} и её линейные комбинации? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	18.03.2018, 00:11
	Я придерживаюсь мнения что лучше заново написать программу с учетом исходных данных, чем исправлять корявый код Добавлено через 49 секунд нате... изучайте )) ну опупел... 0

@zewsua 35 / 35 / 9 Регистрация: 16.07.2012 Сообщений: 253
	18.03.2018, 19:25
	прошу меня извинить за выражение "изучайте", не знаю чего так написал, был не в настроении да и код накидал "по-быстрому" особо не проверяя его... теперь понимаю что алгоритм никакой. Как говорится хотел как лучше а получилось как всегда 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	19.03.2018, 05:27
	zewsua, принимается 0

@Pavel_RAM 6 / 4 / 2 Регистрация: 10.12.2017 Сообщений: 81
	20.03.2018, 08:08
	Сегодня попробуем ответить на вашу просьбу. Там нужны какие-либо дополнительные элементы интерфейса, или чисто код в IDE? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	20.03.2018, 08:53
	Если речь про Excel, то можно использовать функцию НАИМЕНЬШИЙ (application.small), пример тут: Среди трех чисел a, b, и c найти два числа, дающие минимальную сумму 1

@Pavel_RAM 6 / 4 / 2 Регистрация: 10.12.2017 Сообщений: 81
	20.03.2018, 14:55
	Если судить, что парню задают задачу по программированию, то, думаю, что использование функций "Экселя" не очень интересно и практично 0