-6 / 0 / 0
Регистрация: 23.11.2022
Сообщений: 29

Вычислить кусочно-заданную функцию

18.12.2022, 21:08. Показов 610. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создание программ в среде Visual Basic 6.0
Необходимо создать в соответствии с индивидуальным варианта программу,
в ходе выполнения которой вводятся пользователем неизвестные числа и
вычисляется значение функции Y. При разработке программы следует
создать форму, программный код, проверить действие программы. Далее
необходимо сохранить программу на магнитном диске, напечатать форму и
код программы.
Отчет о работе должен содержать:
1. Блок-схема алгоритмического процесса решения задачи.
2. Распечатанную форму программы.
3. Распечатанный код программы.
(НА КАРТИНКЕ ФОРМУЛА)
Миниатюры
Вычислить кусочно-заданную функцию  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.12.2022, 21:08
Ответы с готовыми решениями:

Вычислить функцию Y = 8 * c / b + 45 * x
Создание программ в среде Visual Basic 6.0 Необходимо создать в соответствии с индивидуальным варианта программу, в ходе выполнения...

Создание приложения в среде Visual Basic
По теории биоритмов с момента рождения жизнь человека подчиняется трем синусоидальным биоритмам. Физический цикл - 23 дня, эмоциональный -...

Создание приложения в среде Visual Basic
Разработать проект,позволяющий выбирать продукты (один или несколько) из набора продуктов (4-5) и их количество (вес). На форме создать...

5
428 / 333 / 61
Регистрация: 29.06.2019
Сообщений: 493
18.12.2022, 21:37
Цитата Сообщение от deerlast Посмотреть сообщение
сохранить программу на магнитном диске, напечатать форму и
код программы
Давайте магнитный диск и принтер - сделаю и на зачёт схожу за вас.
0
-6 / 0 / 0
Регистрация: 23.11.2022
Сообщений: 29
18.12.2022, 22:01  [ТС]
можно только помочь с программой. с остальным справлюсь
0
428 / 333 / 61
Регистрация: 29.06.2019
Сообщений: 493
18.12.2022, 22:10
Visual Basic
1
2
3
4
5
6
7
8
9
if a<0then
y=(a+16*c*x)/c/x
elseif a=0then
y=c*x
elseif a>12then
y=(a-c*x)/c+b
else
y="ERROR!!!"
endif
Цитата Сообщение от deerlast Посмотреть сообщение
с остальным справлюсь
Удачи!
0
-6 / 0 / 0
Регистрация: 23.11.2022
Сообщений: 29
19.12.2022, 09:59  [ТС]
Спасибо большое, только ничего не работает!
0
Любитель
 Аватар для Тим70
1045 / 754 / 161
Регистрация: 27.01.2019
Сообщений: 1,520
28.12.2022, 13:34
deerlast, А так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub Command1_Click()
Dim C As Integer, X As Integer, A As Integer, y As Double, B As Integer
A = Val(InputBox("Введите А="))
C = Val(InputBox("Введите C="))
X = Val(InputBox("Введите X="))
B = Val(InputBox("Введите B="))
 
If A < 0 Then
    y = (A + 16 * C * X) / C / X
ElseIf A = 0 Then
    y = C * X
ElseIf A > 12 Then
    y = (A - C * X) / C + B
Else
    Print "ERROR  A>0 and A<12"
End If
Print "y= "; y
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.12.2022, 13:34
Помогаю со студенческими работами здесь

Разаработка интерфейса и решение линейных программ в среде Visual Basic
Помогите пожалуйста устранить ошибку в програмном коде.Вот условие задачи:Вычислить значение ln2=1- 1/2+1/3-1/4+⋯ Вот код: ...

БД в среде VS (язык) Visual Basic
Какой код нужно написать на VB, чтобы при нажатии кнопки, происходило вычитание из определенной ячейки первого DataGridView ячейки второго...

Visual Basic .NET в среде разработки
Всем привет, вопрос по применимости этого языка. Я знаю VBA Excel Вижу, что синтаксис достаточно схож. И вопрос, а что на...

Тест в среде MS PowerPoint с использованием Visual Basic
Добрый день. Я музыкальный рук в детском саду. решила создать тест . Сделала его ,а теперь подумала не плохо было бы его прикрепить к базе,...

Програмирование итерационыых циклов в среде Visual Basic
Помогите с кодом программы пожалуйста (Вычислить значение) Ln2=1-1/2+1/3-1/4+⋯


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru