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

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

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

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

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

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

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

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

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

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

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

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

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

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,105
	18.03.2018, 04:14	8
	Sasha_Smirnov, 6; 6; 6; Добавлено через 15 минут fever brain, Сообщение от fever brain Я придерживаюсь мнения что лучше заново написать программу с учетом исходных данных, чем исправлять корявый код я не исправлял код, а просто взял вид листа у г-на "Изучайте", а макрос поставил свой 1

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

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

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

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

	21.03.2018, 18:54