Вычислить значение выражения

@Александерк · Регистрация: 21.09.2014

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

Помогите пожалуйста оформить алгоритм в виде программного кода.

@gaw · 21.09.2014, 22:16

а где же исходник для перевода или алгоритм для оформления

@Александерк · 21.09.2014, 22:40 **[ТС]**

пример на 19 стр. Сколько мучаюсь так как заочник

Добавлено через 2 минуты
PHP куда не шло, а это освоить - голову сломать, никто не учил...

@gaw · 21.09.2014, 22:52

Visual Basic

Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single
Dim Z As Single
Dim min As Single, max As Single
 
A = Val(InputBox("A=?"))
B = Val(InputBox("B=?"))
C = Val(InputBox("C=?"))
 
If A + B - C >= 0 Then
   If A - 1 < B - C Then min = A - 1 Else min = B - C
   If A > C Then max = A Else max = C
   Z = min + max
Else
   If A < B Then min = A Else min = B
   If min > C - 1 Then min = C - 1
   Z = min + A ^ (3 / 2)
End If
MsgBox "Z(" & A & "," & B & "," & C & ")=" & Z
 
End Sub

надо проверить на конкретных данных

@Александерк · 21.09.2014, 23:00 **[ТС]**

спасибо огромнейшее!! Дальше я сам проработаю. Благодарю))

@gaw · 21.09.2014, 23:11

тут добавил еще проверить корень

@Александерк · 22.09.2014, 23:28 **[ТС]**

такой отзывчивости я еще ни от кого не видел. спасибо еще раз

Добавлено через 3 минуты
благодаря Вам я теперь более лучше понял принцип их построения))

Добавлено через 5 минут
всё работает и корень из отрицательного считается

Добавлено через 23 минуты
Text4.Text = Sgn(-"Z(" & A & "," & B & "," & C & ")=" & Z)

чисто интуитивно))

@gaw · 22.09.2014, 23:37

корня четной степени из отрицательного числа в обл. действительных чисел нет по определению

@Александерк · 23.09.2014, 00:13 **[ТС]**

лол. я заработался. пытался еще ввести это противоречие.

Добавлено через 4 минуты
gaw, а нужно ли чтоб поля ввода были пустыми при запуске .exe? как вернее?

@gaw · 23.09.2014, 00:46

не имеет значения
A = Val(InputBox("A=?")) - пустое поле воспринимается как ноль
вот как десятичный разделитель для InputBox надо использовать точку
если ввести 1,2 получим 1

@Александерк · 23.09.2014, 20:22 **[ТС]**

это то я понял. я имел в виду при запуске проги, а потом вводить даннсые

@gaw · 23.09.2014, 20:36

это дело вкуса
варианты
1 оставить пустыми
2 забить какие то, например, тестовые данные
3 вписать текст типа " Введите сюда ..."
4 ...

Добавлено через 45 секунд
можно добавить
если поле пустое то сообщение " Введите данные!"
ну и т.д.

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	23.09.2014, 00:46	10
	не имеет значения A = Val(InputBox("A=?")) - пустое поле воспринимается как ноль вот как десятичный разделитель для InputBox надо использовать точку если ввести 1,2 получим 1 1

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	23.09.2014, 20:36	12
	это дело вкуса варианты 1 оставить пустыми 2 забить какие то, например, тестовые данные 3 вписать текст типа " Введите сюда ..." 4 ... Добавлено через 45 секунд можно добавить если поле пустое то сообщение " Введите данные!" ну и т.д. 0

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
		1
	Вычислить значение выражения 21.09.2014, 19:57. Показов 1163. Ответов 11 Метки нет (Все метки) Помогите пожалуйста оформить алгоритм в виде программного кода. Миниатюры 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.09.2014, 22:16	2
	а где же исходник для перевода или алгоритм для оформления 1

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
	21.09.2014, 23:00 [ТС]	5
	спасибо огромнейшее!! Дальше я сам проработаю. Благодарю)) 0

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
	22.09.2014, 23:28 [ТС]	7
	такой отзывчивости я еще ни от кого не видел. спасибо еще раз Добавлено через 3 минуты благодаря Вам я теперь более лучше понял принцип их построения)) Добавлено через 5 минут всё работает и корень из отрицательного считается Добавлено через 23 минуты Text4.Text = Sgn(-"Z(" & A & "," & B & "," & C & ")=" & Z) чисто интуитивно)) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.09.2014, 23:37	8
	корня четной степени из отрицательного числа в обл. действительных чисел нет по определению 1

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
	23.09.2014, 00:13 [ТС]	9
	лол. я заработался. пытался еще ввести это противоречие. Добавлено через 4 минуты gaw, а нужно ли чтоб поля ввода были пустыми при запуске .exe? как вернее? 0

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
	23.09.2014, 20:22 [ТС]	11
	это то я понял. я имел в виду при запуске проги, а потом вводить даннсые 0

Вычислить значение выражения

Решение