4 числа. Найти наибольшее и наименьшее число

@Сергей Иванов · Регистрация: 03.04.2013

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

Дано четыре числа. Пожалуйста определите сумму наибольшего и квадрата наименьшего чисел.

@Антихакер32 · 11.02.2014, 02:19

Не совсем понял, что требуется
вот пример как можно определить наибольшее или наименьшее из
группы чисел, можеш вместо обычного сравнения
в условии ..If заменить своим выражением

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
26
27
Option Explicit
Option Base 1
'
'       © FelixMacintosh
'
Private Sub Command1_Click()
    
    Dim j$(), s$, f&, min#, max#
    s = InputBox("Введи несколько чисел через запятую")
    j = Split(s, ","): s = ""
    For f = 0 To UBound(j)
        If IsNumeric(j(f)) Then s = s & " " & Trim(j(f))
    Next
    j = Split(Mid$(s, 2))
    For f = 0 To UBound(j) 'Определяем Наибольшее
        If j(f) > max Then max = j(f)
    Next
    min = max
    For f = 0 To UBound(j) 'Определяем Наименьшее
        If j(f) < min Then min = j(f)
    Next
    Cls
    Print "Всего чисел: =" & UBound(j) + 1
    Print "Наименьшее из них: =" & min
    Print "Наибольшее из них: =" & max
    
End Sub

@ViterAlex · 11.02.2014, 02:22

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Function Func(ByVal num1 As Double, ByVal num2 As Double, ByVal num3 As Double, ByVal num4 As Double)
    Func = Max(Max(Max(num1, num2), num3), num4) + Min(Min(Min(num1, num2), num3), num4) ^ 2
End Function
 
Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double
    Max = IIf(num1 >= num2, num1, num2)
End Function
 
Function Min(ByVal num1 As Double, ByVal num2 As Double) As Double
    Min = IIf(num1 <= num2, num1, num2)
End Function

@Антихакер32 · 11.02.2014, 02:38

ViterAlex, вы же вроде в ..VB.NET кодите
решили к нам переметнутся

Добавлено через 8 минут
Хотя я проанализировал, вполне можно прикрутить в мой пример, дополнив модуль вашими
функциями, думаю ТС это оценит )

Добавлено через 2 минуты
что то вроде ...
Func(j(1), j(2),j(3),j(4))

@ViterAlex · 11.02.2014, 03:05

Не по теме:

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

решили к нам переметнутся

Ну начинал-то я с VB6/VBA, а сейчас лежу, болею, голова не соображает, вот и разминаю мозги...

@Антихакер32 · 11.02.2014, 03:16

Не по теме:

Да ладно, я тоже мозги разминаю, а то после праздников они со скрипом работают )

@Сергей Иванов · 11.02.2014, 18:43 **[ТС]**

Как я правильно понял, вы использовали циклы. Можно ли решить эту задачу не прибегая к циклам?.
Например pascal-код будет выглядеть так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c,d,max,min:real;
begin
ClrScr;
Write('Введите первое число ');
Readln(a);
Write(' Введите второе число ');
Readln(b);
Write(' Введите третие число ');
Readln(c);
Write(' Введите четвертое число ');
Readln(d);
if a>b then max:=a
else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if a<b then min:=a
else min:=b;
if c<min then min:=c;
if d<min then min:=d;
Writeln('Сума наибольшего и квадрата наименьшего чисел равна',max-sqr(min):3:3 );
Readln;
End.

@ViterAlex · 12.02.2014, 03:22

Сообщение от Сергей Иванов

Можно ли решить эту задачу не прибегая к циклам?

Я вроде бы без циклов решил. Только не написал ввод данных, но с этим вы самостоятельно должны справиться

@Антихакер32 · 12.02.2014, 11:20

Pascal
1
2
Write(' Введите второе число '); 
Readln(b);

Visual Basic
1
b=InputBox(" Введите второе число ")

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
26
27
28
29
30
31
32
33
34
35
Option Explicit
'
'       © FelixMacintosh
'
Private Sub Command1_Click()
    
    Const i = 4 - 1 ' -1 Первый индекс =0
    
    Dim j$(), s$, f&, min#, max#
    s = "1 / 2 / 3 / 4"
    s = InputBox("Введи 4 числа через разделитель [ / ] ", , s)
    If s = "" Then Exit Sub
    
    j = Split(s, "/"): s = ""
    For f = 0 To UBound(j)
        If IsNumeric(j(f)) Then s = s & " " & Trim(j(f))
    Next
    j = Split(Mid$(s, 2))
    If UBound(j) < i Then MsgBox ("Неверный ввод"): Exit Sub
    ReDim Preserve j(i)
 
    For f = 0 To UBound(j) 'Определяем Наибольшее
        If j(f) > max Then max = j(f)
    Next
    min = max
    For f = 0 To UBound(j) 'Определяем Наименьшее
        If j(f) < min Then min = j(f)
    Next
    Cls
    Print "Всего чисел: =" & UBound(j) + 1
    Print "Наименьшее из них: =" & min
    Print "Наибольшее из них: =" & max
    Print "Сума наибольшего и квадрата наименьшего чисел равна  ...   " & max - Sqr(min) / 3 / 3
    
End Sub

А циклы про которые ты спрашивал,
и такая реализация ввода ...s = InputBox("Введи 4 числа через разделитель [ / ] ", , s)
это наиболее рациональный код, ну можеш конечно же прописать по отделности
каждую инструкцию и прокоментировать

Мож кому-нибудь и пригодится

@albertgateev1 · 18.04.2017, 19:45

олшол

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Сергей Иванов 0 / 0 / 0 Регистрация: 03.04.2013 Сообщений: 31

	4 числа. Найти наибольшее и наименьшее число 11.02.2014, 00:38. Показов 6452. Ответов 9 Метки нет (Все метки) Дано четыре числа. Пожалуйста определите сумму наибольшего и квадрата наименьшего чисел. 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	11.02.2014, 02:38
	ViterAlex, вы же вроде в ..VB.NET кодите решили к нам переметнутся Добавлено через 8 минут Хотя я проанализировал, вполне можно прикрутить в мой пример, дополнив модуль вашими функциями, думаю ТС это оценит ) Добавлено через 2 минуты что то вроде ... Func(j(1), j(2),j(3),j(4)) 0

@Антихакер32
	11.02.2014, 03:16
	Не по теме: Да ладно, я тоже мозги разминаю, а то после праздников они со скрипом работают ) 0

@albertgateev1 0 / 0 / 0 Регистрация: 05.04.2017 Сообщений: 1
	18.04.2017, 19:45
	олшол 0

4 числа. Найти наибольшее и наименьшее число

Решение