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

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

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

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

@gaw · 21.09.2014, 22:16

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

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

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

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

@gaw · 21.09.2014, 22:52

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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 секунд
можно добавить
если поле пустое то сообщение " Введите данные!"
ну и т.д.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9

	Вычислить значение выражения 21.09.2014, 19:57. Показов 1312. Ответов 11 Метки нет (Все метки) Помогите пожалуйста оформить алгоритм в виде программного кода. Миниатюры 0

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

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

@Александерк 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 9
	22.09.2014, 23:28 [ТС]
	такой отзывчивости я еще ни от кого не видел. спасибо еще раз Добавлено через 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
	корня четной степени из отрицательного числа в обл. действительных чисел нет по определению 1

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

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

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

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

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

Решение