Разработать схему алгоритма и код приложения

@Grigers · Регистрация: 24.12.2013

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

Помогите решить, вроде всё правильно сделал, но не работает...
Поставить задачу. Разработать схему алгоритма и код приложения. Отладить код приложения.
{ b^3,если x<0
m = 100x +{ c*ctg(x),если x>0
{ 0,если x=0
Private Sub Command1_Click()
Dim x As Single, b As Single, c As Single, m As Single
x = InputBox("Введите значение x")
b = InputBox("Введите значение b")
c = InputBox("Введите значение c")
If x < 0 Then
m = 100 * x + b ^ 3
Else
If x > 0 Then
m = 100 * x + c * 1 / Tan(x)
ElseIf x = 0 Then
m = 100 * x
MsgBox (" m= " & m)
End If
End If
End Sub

SoftIce · 08.01.2014, 16:14

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
    Dim x As Single, b As Single, c As Single, m As Single
    x = InputBox("Введите значение x")
    b = InputBox("Введите значение b")
    c = InputBox("Введите значение c")
    m = 100 * x
    
    If x < 0 Then
         m = m + b ^ 3
    ElseIf x > 0 Then
         m = m + c * (1 / Tan(x))
    End If
    
    MsgBox (" m = " & m)
    
End Sub

@Grigers · 08.01.2014, 16:24 **[ТС]**

У меня не работает...

SoftIce · 08.01.2014, 16:32

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

У меня не работает...

Ничем не могу помочь.

@Grigers · 08.01.2014, 16:38 **[ТС]**

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

Ничем не могу помочь.

Извини, сам накосячил немного, потому и не работало

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Grigers 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 10

	Разработать схему алгоритма и код приложения 08.01.2014, 15:21. Показов 1760. Ответов 4 Метки нет (Все метки) Помогите решить, вроде всё правильно сделал, но не работает... Поставить задачу. Разработать схему алгоритма и код приложения. Отладить код приложения. { b^3,если x<0 m = 100x +{ cctg(x),если x>0 { 0,если x=0 Private Sub Command1_Click() Dim x As Single, b As Single, c As Single, m As Single x = InputBox("Введите значение x") b = InputBox("Введите значение b") c = InputBox("Введите значение c") If x < 0 Then m = 100 x + b ^ 3 Else If x > 0 Then m = 100 * x + c * 1 / Tan(x) ElseIf x = 0 Then m = 100 * x MsgBox (" m= " & m) End If End If End Sub 0

@Grigers 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 10
	08.01.2014, 16:24 [ТС]
	У меня не работает... 0

Разработать схему алгоритма и код приложения

Решение