решение задачи двумя способами без использования функции и с использованием функции

@qwertyyyyy · Регистрация: 31.03.2013

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

Помогите((
Вычислить значение:
z = min(a,3b)*min(2a-b,2b)
где min(x, y) – минимальное из чисел x и y.
Задачу решить двумя способами: без использования функции и с использованием функции.

@Евгений12 · 22.05.2013, 23:27

Будем учится!
Задаешь 3 переменные - a, b ,z
Если без функции, тогда при задании переменной z сразу же записываешь в нее необходимое вычисление, готово.
Если с функцией, тогда пишешь функцию:

VB.NET
1
2
3
4
Private Function Zadacha(a, b)
'в теле функции пишешь то же самое вычисление, что и в варианте без функции
Return
End Function

Програма очень простая, поэтому за тебя решать не буду. Чуть подумать и все будет

Будут вопросы - спрашивай.

@qwertyyyyy · 26.05.2013, 16:25 **[ТС]**

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'С ИСПОЛЬЗОВАНИЕМ ФУНКЦИИ
Dim z, a, b As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
z = min(a, 3 * b) * min((2 * a) - b, 2 * b)
TextBox4.Text = z
End Sub
'ФУНКЦИЯ min
Function min(ByVal a As Double, ByVal b As Double) As Integer
If a < b Then
min = a
Else
min = b
End If
End Function
'БЕЗ ИСПОЛЬЗОВАНИЯ ФУНКЦИИ
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim z, a, b, min1, min2 As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
If a < 3 * b Then
min1 = a
Else
min1 = 3 * b
End If
If (2 * a - b) < 2 * b Then
min2 = 2 * a - b
Else
min2 = 2 * b
End If
z = min1 - min2
TextBox4.Text = z

End Sub
End Class
что не так??

@Евгений12 · 26.05.2013, 20:57

Для начала обрамлять большой код тэгом: [VBNET][слешьVBNET]

Читаться будет легче и смотриться красивее.

Для вычисления минимумов и максимумов лучше использовать встроеные мат. функции

VB.NET
1
2
Math.Min(a,3b) 'вернет минимальное значение
Math.Max(a,3b) 'вернет максимальное значение

Если используешь свою функции, тогда она должна что то возвращать:

VB.NET
1
2
3
4
5
6
7
8
'ФУНКЦИЯ min
Function min(ByVal a As Double, ByVal b As Double) As Integer
If a < b Then
Return a
Else
Return b
End If
End Function

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

@qwertyyyyy 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 11

	решение задачи двумя способами без использования функции и с использованием функции 22.05.2013, 23:13. Показов 1632. Ответов 3 Метки нет (Все метки) Помогите(( Вычислить значение: z = min(a,3b)*min(2a-b,2b) где min(x, y) – минимальное из чисел x и y. Задачу решить двумя способами: без использования функции и с использованием функции. 0

@qwertyyyyy 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 11
	26.05.2013, 16:25 [ТС]
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'С ИСПОЛЬЗОВАНИЕМ ФУНКЦИИ Dim z, a, b As Integer a = Val(TextBox1.Text) b = Val(TextBox2.Text) z = min(a, 3 * b) * min((2 * a) - b, 2 * b) TextBox4.Text = z End Sub 'ФУНКЦИЯ min Function min(ByVal a As Double, ByVal b As Double) As Integer If a < b Then min = a Else min = b End If End Function 'БЕЗ ИСПОЛЬЗОВАНИЯ ФУНКЦИИ Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim z, a, b, min1, min2 As Integer a = Val(TextBox1.Text) b = Val(TextBox2.Text) If a < 3 * b Then min1 = a Else min1 = 3 * b End If If (2 * a - b) < 2 * b Then min2 = 2 * a - b Else min2 = 2 * b End If z = min1 - min2 TextBox4.Text = z End Sub End Class что не так?? 0

Опции темы