Вычислить интегральный синус. Значение x вводить в память

@Mylife · Регистрация: 02.04.2019

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Si(x)=\int_{0}^{x}\frac{sin(t)}{t}dt$
Значение x вводить в память

ФедосеевПавел · 16.12.2019, 23:24

Вычисление интеграла методом трапеций
Вычислите определённый интеграл методом трапеций
Вычислить определенный интеграл методом трапеций
Вычислить определенный интеграл методом трапеций
Вывод вещественных чисел
Ввод и вывод чисел в различных системах счисления
Ввод вещественных чисел
Вопрос в стиле "Разрушители мифов"
Ввод вещественных чисел с клавиатуры и арифметические операции с ними
Попробуйте сделать сначала только вычисления, добавьте вывод, а потом и ввод.

ФедосеевПавел · 21.12.2019, 00:16

Интегрирование методом Симпсона, без ввода, компилятор masm32 для Windows

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
.686
.model flat, stdcall
option casemap :none
 
        include \masm32\include\windows.inc
 
        include \masm32\include\user32.inc
        include \masm32\include\kernel32.inc
        include \masm32\include\masm32.inc
 
        includelib \masm32\lib\user32.lib
        includelib \masm32\lib\kernel32.lib
        includelib \masm32\lib\masm32.lib
.data
        Xstart          dq      0.0     ;начальное значение аргумента
        Xfinish         dq      3.75    ;конечное значение аргумента
        N               dd      1000    ;количество интервалов интегрирования
 
        aszMsgResult    db      'Result: ', 0
        aszPressLeftAlt db      0Dh, 0Ah, 0Dh, 0Ah, "Press Left Alt to exit", 0
        dwColorRed      dd      FOREGROUND_RED
        dwColorWhite    dd      FOREGROUND_RED + FOREGROUND_GREEN + FOREGROUND_BLUE
        dwCursorPosition        COORD   <20, 10>
        fpMinValue      dq      0.0000001
.data?
        hConsoleOutput  HANDLE  ?
        hConsoleInput   HANDLE  ?
        X               dq      ?       ;текущее значение аргумента
        DeltaX          dq      ?       ;шаг приращения аргумента
        Result          dq      ?       ;результат - значение интеграла
        FpuSw           dw      ?       ;слово состояния FPU (для команд сравнения)
        Buffer          db      1024 dup(?)
        BufLen          dd      ?
 
.code
 
start   proc
 
        ; получение описателей ввода и вывода консоли
        invoke  GetStdHandle,   STD_INPUT_HANDLE
        mov     hConsoleInput,  eax
        invoke  GetStdHandle,   STD_OUTPUT_HANDLE
        mov     hConsoleOutput, eax
        ;очистка экрана
        invoke  ClearScreen
 
        fninit
        ;получим Xstart
        fld     [Xstart]
        ;получим Xfinish
        fld     [Xfinish]
        ;вычисление приращения аргумента DeltaX
        fld     [Xfinish]
        fsub    st(0),  st(2)
        fild    [N]
        fadd    st(0),  st(0)
        fdivp   st(1),  st(0)
        fst     [DeltaX]
        ;
        fxch    st(2)
        fldz
        fxch    st(1)
 
        ;st(0)  - X
        ;st(1)  - интеграл
        ;st(2)  - Xfinish
        ;st(3)  - DeltaX
        mov     ecx,    [N]
        dec     ecx
 
        fadd    st(0),  st(3)           ;I=2f(a+h)
        fld     st(0)
        call    F
        fadd    st(0),  st(0)
        fstp    st(2)
        fadd    st(0),  st(3)           ;x=a+2h
        @@forS:
                fld     st(0)           ;I=I+f(x)
                call    F
                faddp   st(2),  st(0)
 
                fadd    st(0),  st(3)   ;x=x+h
 
                fld     st(0)           ;I=I+2f(x+h)
                call    F
                fadd    st(2),  st(0)
                faddp   st(2),  st(0)
 
                fadd    st(0),  st(3)   ;x=x+h
 
        loop    @@forS
 
        fld     st(1)                   ;I=2*I
        faddp   st(2),  st(0)
        ;I=I+f(b)
        call    F
        faddp   st(1),  st(0)
        ;I=I+f(a)
        fld     [Xstart]
        call    F
        faddp   st(1),  st(0)
        ;I=h*I
        fmul    st(0),  st(2)
        ;I=I/3
        fld1
        fld1
        fadd    st(1),  st(0)
        faddp   st(1),  st(0)
 
        fdivp   st(1),  st(0)
        ;I=(h/3)*(f(a) + 4f(a+h)+2f(a+2h) + 4f(a+3h)+2f(4h) + ... + 4f(b-h)+ f(b))
        fst     [Result]
 
        ;вывод результата
        ; - смена цвета
        invoke  SetConsoleTextAttribute, hConsoleOutput, [dwColorRed]
        ; - установка позиции
        invoke  SetConsoleCursorPosition, hConsoleOutput, dword ptr [dwCursorPosition]
        ; - вывод
        invoke  WriteConsole, hConsoleOutput, ADDR aszMsgResult,\
                LENGTHOF aszMsgResult - 1, ADDR BufLen, NULL
        invoke  FloatToStr2, [Result], ADDR Buffer
        invoke  StrLen, ADDR Buffer
        mov     [BufLen],       eax
        invoke  WriteConsole, hConsoleOutput, ADDR Buffer,\
                BufLen, ADDR BufLen, NULL
 
        ;ожидание нажатия Left Alt
        invoke  SetConsoleTextAttribute, hConsoleOutput, [dwColorWhite]
        invoke  WriteConsole, hConsoleOutput, ADDR aszPressLeftAlt,\
                LENGTHOF aszPressLeftAlt - 1, ADDR BufLen, NULL
        @@WaitForLAlt:
                invoke  GetAsyncKeyState, VK_LMENU
                and     eax,    8000h
        jz      @@WaitForLAlt
        ;завершение программы
        invoke  ExitProcess, 0
start   endp
 
;Значение подынтегральной функции
F       proc
        ;LOCAL  @StateFPU[94]:byte                      ;94 use16
        ;@X     equ     TBYTE ptr @StateFPU[14]         ;use16
        LOCAL   @StateFPU[108]:byte                     ;108 use32
        @ST0    equ     TBYTE ptr @StateFPU[28]         ;use32
 
        ;сохраняем и инициализируем состояние FPU
        fsave   [@StateFPU]     ; состояние FPU
        ;в вершину стека помещаем аргумент функции
        fld     [@ST0]
        ;вычисляем значение функции
        fld     [fpMinValue]
        fld     st(1)
        fabs
        fcomip  st(0),  st(1)
        jbe     @Calc
        fxch    st(1)
@Calc:
        fstp    st(1)
        fld     st(0)
        fsin
        fdivrp  st(1),  st(0)
        ;перед восстановлением состояния FPU сохраним результат функции
        ;в вершине стека
        fstp    [@ST0]
        ;восстановление состояния FPU
        frstor  [@StateFPU]
 
        ret
F       endp
 
end start

Wikipedia предлагает вычислять при помощи разложения в ряд
$https://www.cyberforum.ru/cgi-bin/latex.cgi?Si\; x=x-\frac{x^3}{3\cdot 3!}+\frac{x^5}{5\cdot 5!}-\frac{x^7}{7\cdot 7!}+\text{...}$

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Mylife 0 / 0 / 0 Регистрация: 02.04.2019 Сообщений: 3

	TASM Вычислить интегральный синус. Значение x вводить в память 16.12.2019, 22:10. Показов 2331. Ответов 2 Метки assembler (Все метки) $https://www.cyberforum.ru/cgi-bin/latex.cgi?Si(x)=\int_{0}^{x}\frac{sin(t)}{t}dt$ Значение x вводить в память 0

ФедосеевПавел Модератор 8657 / 4493 / 1669 Регистрация: 01.02.2015 Сообщений: 13,902 Записей в блоге: 12
	16.12.2019, 23:24
	Сообщение было отмечено Mylife как решение Решение Вычисление интеграла методом трапеций Вычислите определённый интеграл методом трапеций Вычислить определенный интеграл методом трапеций Вычислить определенный интеграл методом трапеций Вывод вещественных чисел Ввод и вывод чисел в различных системах счисления Ввод вещественных чисел Вопрос в стиле "Разрушители мифов" Ввод вещественных чисел с клавиатуры и арифметические операции с ними Попробуйте сделать сначала только вычисления, добавьте вывод, а потом и ввод. 1

Вычислить интегральный синус. Значение x вводить в память

Решение