| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Цикл Do while.....Loop, Zatupchik!!! API для вызова диалога выбора шрифтов, API для вызова диалога выбора шрифтов Что удобней - VB6 или VB.NET?, Чем вы пользуетесь - vb 6 или .net Округлить до 10, в большую или меньшую сторону Как програмно выбрать в ComboBox определенный элем, Как програмно выбрать в ComboBox определ Документация и книги по Java, Давайте соберём ссылки С новым годом Vingrad!, Heppy new year, Vingrad 2005! Своя формула в MS Excel, Хочу сделать свою формулу Как сохранить содержимое окна Picture в bmp файл Блокировка клавы и мыши..... text Проблема в Access'e, Две формы и кнопка... Как в VB6 посмотреть DIB картинку Оптимизация оперативной памяти, Как на vb очистить оперативку??? Копирование таблицы в MSAccess VB-кодом Обновление ячейки из VBA XML2XLS TextWidth в VB.Net PrintScreen в файл, Как сохранить изо. из пикчурбокса? Всем у кого xp, VB в стиле XP! VB в Excel, подключение dll Перенос текста из TextBox в ячейку EXCEL Отключение заставки Програмка, Хелп.... Установить значение отдельной ячейки ListBox, вопрос по VBA Включение CapsLock, программно 2 задачи про массивы, не знаю вопще , но Наследование классов Как сделать BackColor прозрачным?, В элементе управления Label бегущая строка VB6 & RS232 Продолжение "Иконку в трей" Как Вы относитесь к курящим девушкам? Перевод кода из Си в VB, Котовый код Звуковой файл, Подскажите Как управлять приоритетом контролов на экране Звук. Как считать звук с микрофона? VB в Excel, Доступ к ячейкам Excel Видимость классов Ошибка в программе, Overflow, error 6 Вызов функций из VBScript'а, Вызов функций из VBScript'а как запустить приложение из кода? копировать содержимое SSTab, новый SSTab1 с элементами SSTab0 Package & Deployment Wizard. Досадная ошибка, а мы её исправим :) Иконку - в трей, При сворачивании программы - иконку в тр непонятное... с if, Сложность... Microsoft Multimedia Control 6.0, воспроизвести mp3 Кто недоволен чем-то в подсветке, бегом сюда =) Запись числа по разрядам Делюсь задумкой - модификация JavaBeans, просто для удобства Чтение блока с CD-ROM ENTER на 5 столбцов в сторону, xl vba Какую базу подключить?, кроме access97 Создание пошаговой РПГ-стратегии, Всё кто заинтерисован заходи! Удалённый сервер, MySQL и VB..., Подключение к БД В каком гриде можно вставить checkbox За один цикл, xl vba Text box под углом, Text box под углом Скины для VB6.0, Помогите найти скины Кодирование и декодирование Вот так я взломал, private inner класс :( Как программно убрать горизонтальную прокрутку?, В TextBox Выборка => Exel Cкачать VB NET, Cкачать VB NET iiRender3d->StaryShooter, 3D игра, написанная на visual basic VBScript.encode(...), как раскодировать код? Textbox и Кнопка Как отловить ошибки?, Как отловить ошибки? Андрик, Взаимодействие с Access Свойства папки |
Платные хостинги Раскрутка сайта Книги по программированию непонятное... с if, Сложность...
- Незнаю как устранить ошибку в этой функции:Код Function y(x As Single) As SingleDim S As SingleDim P As SingleIf a ^ 2 <= x < 1.5 * a ^ 2 ThenS = 1For i = 2 To 20 Step 1y = Sin(S * ((x ^ i + i)) ^ (2 * x))If 1.5 * a ^ 2 <= x <= 3 * a ^ 2 ThenP = 1For j = 3 To 7 Step 1y = 0.24 * 10 ^ 2 * P * ((j * x) / (j + x))Elsey = 2 * xEnd IfEnd FunctionhighlightSyntax('vbRiMDUw','vb');Тут нужно ,допустим, чтобы если условие a ^ 2 <= x < 1.5 * a ^ 2 верно то произвести операцию S = 1For i = 2 To 20 Step 1y = Sin(S * ((x ^ i + i)) ^ (2 * x))и т.д.если эти два условия не проходят (If a ^ 2 <= x < 1.5 * a ^ 2 Then и If 1.5 * a ^ 2 <= x <= 3 * a ^ 2 Then), то сделать Else.Компилятор почему то путается с этими операторами...то не находит end if то else without ifПомогите плиз кто знает... ______________-И еще вопрос:Чем отличается логическое сложение от логического отрицания? - Вот как выглядит твой код:Код If a ^ 2 <= x < 1.5 * a ^ 2 Then S = 1 For i = 2 To 20 Step 1 y = Sin(S * ((x ^ i + i)) ^ (2 * x)) If 1.5 * a ^ 2 <= x <= 3 * a ^ 2 Then P = 1 For j = 3 To 7 Step 1 y = 0.24 * 10 ^ 2 * P * ((j * x) / (j + x)) Else y = 2 * x End IfhighlightSyntax('vbIxMzE=','vb');Явно не хватает Next и End If - дык это тодже код только с ступенями, а куда приписать next? - SIMarOK, я просто показал нагляднее твой код.Посмотри на своё условие задачи и раставь end if и next соотвествующим образом - Пасибо. ошибку нашел...теперь после ввода числа "a" он показывает ошибку в строке z = (0.01 * a + Sin((a * y) ^ 3) ^ 2) / (3 * y)в программеКод Function z(y As Single) As SingleDim a As Singlea = Val(InputBox("a=", "a"))z = (0.01 * a + Sin((a * y) ^ 3) ^ 2) / (3 * y)End FunctionFunction y(x As Single) As SingleDim S As SingleDim P As Single If a ^ 2 <= x < 1.5 * a ^ 2 Then S = 1 For i = 2 To 20 Step 1 y = Sin(S * ((x ^ i + i)) ^ (2 * x)) Next i If 1.5 * a ^ 2 <= x <= 3 * a ^ 2 Then P = 1 For j = 3 To 7 Step 1 y = 0.24 * 10 ^ 2 * P * ((j * x) / (j + x)) Next j Else y = 2 * x End If End IfEnd FunctionPrivate Sub Command1_Click()Dim max As SingleDim min As SingleDim res As SingleDim x As SingleLabel1.Visible = TrueLabel1.Visible = Truemin = 1E+30max = -1E+30For x = a ^ 2 To 5 * a ^ 2 Step 0.4 * ares = z(y(x))Next xIf res > max Thenmax = resEnd IfIf res < min Thenmin = resEnd Iflist1.AddItem (Str(res))Label1.Caption = Str(max)Label2.Caption = Str(min)End SubhighlightSyntax('vb3MTI=','vb'); Это сообщение отредактировал SIMarOK - 21.12.2004, 21:09 - Примерно такКод If a ^ 2 =< x and x< 1.5 * a ^ 2 Then for i=2 to 20 y = y + (x^i +i) next i y = sin(y^(2*x))else if 1.5*a^2 =<x and x< 3 * a ^ 2 Then y=1 For j = 3 To 7 y = y * ((j * x) / (j + x)) next y = 0.24 * 10 ^ 2 *yelse y = 2 * xend ifhighlightSyntax('vbjVkMzA','vb'); - Всеровно возникает ошибка:Rut-time error '11'Division by zeroи указывает на строку z = (0.01 * a + Sin((a * y) ^ 3) ^ 2) / (3 * y) - SIMarOK, почему в делении стоит y?Я написал x. Делай, то что написано в задании, а не придумывай себе другое - Или в Sin'усе значениеКод (a * y) ^ 3highlightSyntax('vbliOTU=','vb');слишком большое или y = 0 Добавлено @ 21:48 меня опередили - вот задание, я всё по нему%)картинка Это сообщение отредактировал SIMarOK - 21.12.2004, 21:53 - а какое же там тогда значение вводить? Это сообщение отредактировал SIMarOK - 21.12.2004, 22:40 - Долбанный narod.ru... Полчаса грузится...Я вот тут накидал. Попробуй. Посмотри, что я как сделал...Код Option ExplicitPrivate Sub Command1_Click() Dim x As Double Dim a As Double Dim y As Double x = 0.3 a = 0.5 If (a * a <= x) And (x < 1.5 * a * a) Then y = Sin(case1(x) ^ (2 * x)) ElseIf (1.5 * a * a <= x) And (x <= 3 * a * a) Then y = 0.24 * 100 * case2(x) Else y = 2 * x End If Debug.Print y End SubPrivate Function case1(x As Double) As Double Dim i As Double Dim acc As Double For i = 2 To 20 acc = acc + x ^ i + i Next case1 = acc End FunctionPrivate Function case2(x As Double) As Double Dim j As Double Dim acc As Double acc = 1 For j = 3 To 7 acc = acc * (j * x / (j + x)) Next case2 = acc End FunctionhighlightSyntax('vbNTk2Mj','vb'); Это сообщение отредактировал cardinal - 21.12.2004, 22:55 - boevik прав... Тут ляпа:Код y = Sin(case1(x)) ^ (2 * x)highlightSyntax('vb2U2MzY','vb');Надо так:Код y = Sin(case1(x) ^ (2 * x))highlightSyntax('vbU0ZTY2','vb');Вверху я поправил...SIMarOK, если вам еще надо сделать не точ в точ по формуле, а как можно лучше, то есть оптимизировать как сможете, то в этом коде можно много что улучшить  |