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

олшол

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

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

	4 числа. Найти наибольшее и наименьшее число 11.02.2014, 00:38. Показов 6482. Ответов 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 числа. Найти наибольшее и наименьшее число

Решение