NEOMATRIX Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Задали написать программу, которая решила бы это ур-е:     Но у меня при запуске программы выдает ошибку Sub or Function not defined и подсвечивает sqrt в F. Private Sub Command1_Click() Dim m As Single Dim c As Single Dim x As Single m = 0.7 c = 2.1 x = 1.16 If Option4.Value = True Then F = (Sin(x)) / (sqrt(1 + m ^ 2 * Sin(x) ^ 2)) F1 = F - (c * ln(m * x)) F2 = F1 + ((e ^ sqrt(1 + m ^ 2 * Sin(x) ^ 2)) / (tg * ln(m * x) + (c * Sin(x) ^ 2))) Label5.Caption = Str(F2) End If End Sub Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 00:41 12-10-2005 | Исправлено: NEOMATRIX, 00:43 12-10-2005

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Если это VB, то в нем квадратный корень обозначается функцией Sqr()   Добавлено: Еще получишь ошибки: нет функции tg - есть функция Tan() нет функции ln - есть функция Log() Да и константу e нужно определить     Добавлено: Дальше сам домозгуешь? ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 01:13 12-10-2005

NEOMATRIX Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Troitsky Получается веселое число 1.20891455486659 Как вы думаете, правильно ли это ?   Добавлено: Цитата: Да и константу e нужно определить Извините, но я этого не понял. Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 01:17 12-10-2005 | Исправлено: NEOMATRIX, 20:43 13-10-2005

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору wiwiw Цитата: e не нужна   Log считает натуральный логарифм А e в степень тоже через логарифм возводить???   NEOMATRIX Цитата: Получается веселое число 1.20891455486659   Как вы думаете, правильно ли это ? У тебя же из маткада формула скопирована. В нем и проверь.   Добавлено: Ёлы-палы, парю Этож экспонента Exp()   Пардон.   Добавлено: Это ж надо... как обмишурился ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 07:31 12-10-2005

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Помогите решить ур-е (проблема)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование