|
lapulechka
|
|
Помогите с составлением функции19.05.2007, 17:06. Показов 2543. Ответов 1
Метки нет (Все метки)
 ><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US Y</SPAN><SPAN lang=EN-US> </SPAN>= 1+<SPAN style="POSITION: relative; TOP: 12pt; mso-text-raise: -12.0pt <?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600 <FONT size=3><FONT color=#000000><FONT face="Times New Roman <v:stroke joinstyle="miter </v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0 </v:f><v:f eqn="sum @0 1 0 </v:f><v:f eqn="sum 0 0 @1 </v:f><v:f eqn="prod @2 1 2 </v:f><v:f eqn="prod @3 21600 pixelWidth </v:f><v:f eqn="prod @3 21600 pixelHeight </v:f><v:f eqn="sum @0 0 1 </v:f><v:f eqn="prod @6 1 2 </v:f><v:f eqn="prod @7 21600 pixelWidth </v:f><v:f eqn="sum @8 21600 0 </v:f><v:f eqn="prod @7 21600 pixelHeight </v:f><v:f eqn="sum @10 21600 0 </v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f </vath><o:lock aspectratio="t" v:ext="edit </o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 15.75pt; HEIGHT: 30.75pt" o:ole="" type="#_x0000_t75 <v:imagedata o:title="" src="file:///C OCUME~1JannetLOCALS~1Tempmsohtml1*1cl ip_image001.wmz </v:imagedata></v:shape></SPAN><FONT face="Times New Roman" color=#000000 size=3>+<SPAN style="POSITION: relative; TOP: 12pt; mso-text-raise: -12.0pt <v:shape id=_x0000_i1026 style="WIDTH: 24.75pt; HEIGHT: 33pt" o:ole="" type="#_x0000_t75 <FONT size=3><FONT color=#000000><FONT face="Times New Roman <v:imagedata o:title="" src="file:///COCUME~1JannetLOCALS~1Tempmsohtml1*1cl ip_image003.wmz </v:imagedata></v:shape></SPAN><FONT face="Times New Roman" color=#000000 size=3>+<SPAN style="POSITION: relative; TOP: 12pt; mso-text-raise: -12.0pt <v:shape id=_x0000_i1027 style="WIDTH: 188.25pt; HEIGHT: 33pt" o:ole="" type="#_x0000_t75 <FONT size=3><FONT color=#000000><FONT face="Times New Roman <v:imagedata o:title="" src="file:///COCUME~1JannetLOCALS~1Tempmsohtml1*1cl ip_image005.wmz </v:imagedata></v:shape></SPAN><FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>…</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>принимая, что аргумент Х по модулю меньше единицы. Вычисления проводить до тех пор, пока модуль разности между очередным слагаемым и его предыдущим значением больше малой заданной величины, рассматриваемой в качестве точности вычислений.</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes & N style="mso-spacerun: yes </SPAN>Dim pred#, posl#<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim ch%, sum_sk_ch%, sk_ch%<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim zn%, sum_sk_zn%, sk_zn%<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim z%, kf!<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>ch = 1<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>zn = 2: sum_sk_zn = 31: sk_zn = 4<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>z = 1: sum = 1 + x / 2<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pred = 1: posl = x / 2<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Do While Abs(Abs(pred) - Abs(posl)) > eps<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>sk_zn = sum_sk_zn - sk_zn: zn = zn + sk_zn<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>kf = ch / zn<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pred = posl<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>posl = pred * z * kf * x<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#0 AN>sk_zn = sum_sk_zn - sk_zn: zn = zn + sk_zn<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>kf = ch / zn<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pred = posl<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>posl = pred * z * kf * x<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>sum = sum + posl<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><st1lace w:st="on Loop</st1lace><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>f = sum<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman End Function<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman Private Sub Command1_Click()<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim x As Single, y As Double<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim xn As Single, dx As Single, xk As Single<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim eps As Double, b As Boolean, s As String<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim g As Double, i As Byte, j As Byte<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>xn = Val(InputBo o-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>b = True<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>Else<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>b = False<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>End If<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>'Вычисление значения суммы ряда для заданного интервала значений x.<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US List1.Clear<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>x = xn<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Do While x < xk + 0.5 * dx<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>If b Then<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Call p(x, eps, y)<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>Else<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><SPAN style="mso-spacerun: yes </SPAN>y = f(x, eps)<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes &nbs -spacerun: yes </SPAN>" & Format(x, "0.00") & Space(16) & Format(y, s)<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>' Переход к следующему значению x из заданного диапазона<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>x = x + dx<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><st1lace w:st="on Loop</st1lace><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>End Sub<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman Private Sub Command3_Click()<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>End<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman End Sub<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3>Помогите, если сможете!</o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3> </o>
|
|
(| 19.05.2007, 17:06 | |
|
Ответы с готовыми решениями:
1
Помогите с составлением запроса.. Помогите с составлением SQL запроса. Помогите плз с составлением проги. Завтра контрольная! |
|
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 8
|
|
| 30.05.2007, 16:31 | |
|
не совсем понятна закономерность ряда... напиши хотя бы 7-8 первых слагаемых... потом поговорим.
0
|
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 30.05.2007, 16:31 | |
|
Помогаю со студенческими работами здесь
2
помогите с составлением отчета Помогите с составлением программы Помогите пожалуйста с составлением хотя бы какой нибудь программы из этих двух
реализованные с составлением программы Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога
Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
|
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога
Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
|
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
|
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога
В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
|
|
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
|
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога
Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
|
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога
Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
|
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования.
Часть библиотеки BedvitCOM
Использованы. . .
|
Наверх