Есть простая задача, есть код (не работает), не пойму что я делаю не так

@MozGiNator · Регистрация: 25.03.2013

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

Знаю задача простая, заранее спасибо.

Задача:
Если сумма трех попарно различных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае оставить числа неизменными.

Visual Basic

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
z = Val(TextBox3.Text)
If (x + y + z < 10) Then
    If ((x < y) And (x < z)) Then
        x = (y + z) \ 2
            Label4.Caption = Str(x)
            Label5.Caption = Str(y)
            Label6.Caption = Str(z)
        Else
            If (y < z) Then
                y = (x + z) \ 2
                    Label4.Caption = Str(x)
                    Label5.Caption = Str(y)
                    Label6.Caption = Str(z)
            Else
                z = (x + y) \ 2
            End If
    End If
End If
    If (x + y + z > 10) Then
        Label4.Caption = Str(x)
        Label5.Caption = Str(y)
        Label6.Caption = Str(z)
    End If
End Sub

@Ruella · 11.10.2018, 15:54

MozGiNator, ну, во-первых, не так то, что вы объявляете одни переменные (a, b, c), а используете в коде другие (x, y, z); во-вторых, не совсем понятно, почему у Вас

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

If (x + y + z < 10) Then

если в условии сказано, что сумма д.б. меньше 1.
Попробуйте что-то вроде этого (далеко не оптимально, но работать должно):

Visual Basic

Private Sub CommandButton1_Click()
Dim x As Single, y As Single, z As Single
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
z = Val(TextBox3.Text)
If (x + y + z < 1) Then
    If ((x < y) And (x < z)) Then
        x = (y + z) \ 2
     Else
         If (y < z) Then
            y = (x + z) \ 2
         Else
             z = (x + y) \ 2
         End If
    End If
End If
Label4.Caption = Str(x)
Label5.Caption = Str(y)
Label6.Caption = Str(z)
End Sub

@Narimanych · 11.10.2018, 16:36

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

If ((x < y) And (x < z)) Then
x = (y + z) \ 2
Else
If (y < z) Then

А если Y>X

@Ruella · 11.10.2018, 17:46

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

А если Y>X

Ну и на здоровье, почему бы и нет

А что Вас смущает?

@Narimanych · 11.10.2018, 18:17

Тогда y не будет наименьшим из 3 чисел...

@Ruella · 11.10.2018, 18:24

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

Тогда y не будет наименьшим из 3 чисел...

Narimanych, Ну и пусть себе, ведь нигде не сказано, что он им должен быть

Тут ведь какая логика: поначалу мы сравниваем, не меньше ли Х, чем Y и Z. Если это так, то мы нашли наименьшее. Если не так, значит, Х не самый маленький. Следовательно, самый маленький - либо Y, либо Z. Поэтому затем мы сравниваем между собой Y и Z. Тот, который из них меньше, и будет самым маленьким

@Narimanych · 11.10.2018, 18:27

Тогда y не будет наименьшим из 3 чисел...

@Ruella · 11.10.2018, 18:31

Narimanych, у меня дежавю?

Зачем Вам так нужно, чтобы Y был наименьшим?

@Narimanych · 11.10.2018, 18:37

Sorry.пишу с телефона.Ответ от случайного прикосновения..

Условие X<Y and Х<Z может быть ложью при X>Y and X<Z и условие Y<Z не значит ,что Yв данном случае наименьший.

Добавлено через 2 минуты
Потому что по условию задачи необходимо заменить наименьшее из 3х чисел на полусумму...а строка 11 -не завершена...

@Ruella · 11.10.2018, 18:41

Narimanych, понятно, что не значит. На этот случай у нас ведь и есть второй else, который и сработает, если вдруг Y окажется больше Z. В этом случае Z нам проверять уже не нужно, так как тут без вариантов - X мы отсеяли в самом начале, а Y - на следующем шаге

Добавлено через 2 минуты
Narimanych, может, это я сегодня туплю, но покажите, пожалуйста, пример, где этот алгоритм неправильно сработает...

@Narimanych · 11.10.2018, 19:24

Ruella,

Извините, все у вас правильно.....

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	11.10.2018, 16:36	3
	Сообщение от Ruella If ((x < y) And (x < z)) Then x = (y + z) \ 2 Else If (y < z) Then А если Y>X 0

@Ruella 472 / 161 / 80 Регистрация: 07.10.2015 Сообщений: 379
	11.10.2018, 17:46	4
	Сообщение от Narimanych А если Y>X Ну и на здоровье, почему бы и нет А что Вас смущает? 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	11.10.2018, 18:17	5
	Тогда y не будет наименьшим из 3 чисел... 0

@Ruella 472 / 161 / 80 Регистрация: 07.10.2015 Сообщений: 379
	11.10.2018, 18:24	6
	Сообщение от Narimanych Тогда y не будет наименьшим из 3 чисел... Narimanych, Ну и пусть себе, ведь нигде не сказано, что он им должен быть Тут ведь какая логика: поначалу мы сравниваем, не меньше ли Х, чем Y и Z. Если это так, то мы нашли наименьшее. Если не так, значит, Х не самый маленький. Следовательно, самый маленький - либо Y, либо Z. Поэтому затем мы сравниваем между собой Y и Z. Тот, который из них меньше, и будет самым маленьким 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	11.10.2018, 18:27	7
	Тогда y не будет наименьшим из 3 чисел... 0

@Ruella 472 / 161 / 80 Регистрация: 07.10.2015 Сообщений: 379
	11.10.2018, 18:31	8
	Narimanych, у меня дежавю? Зачем Вам так нужно, чтобы Y был наименьшим? 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	11.10.2018, 18:37	9
	Sorry.пишу с телефона.Ответ от случайного прикосновения.. Условие X<Y and Х<Z может быть ложью при X>Y and X<Z и условие Y<Z не значит ,что Yв данном случае наименьший. Добавлено через 2 минуты Потому что по условию задачи необходимо заменить наименьшее из 3х чисел на полусумму...а строка 11 -не завершена... 0

@Ruella 472 / 161 / 80 Регистрация: 07.10.2015 Сообщений: 379
	11.10.2018, 18:41	10
	Narimanych, понятно, что не значит. На этот случай у нас ведь и есть второй else, который и сработает, если вдруг Y окажется больше Z. В этом случае Z нам проверять уже не нужно, так как тут без вариантов - X мы отсеяли в самом начале, а Y - на следующем шаге Добавлено через 2 минуты Narimanych, может, это я сегодня туплю, но покажите, пожалуйста, пример, где этот алгоритм неправильно сработает... 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	11.10.2018, 19:24	11
	Ruella, Извините, все у вас правильно..... 0

Опции темы

Есть простая задача, есть код (не работает), не пойму что я делаю не так

Решение