Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
#1

Не отрабатывает дробное число в сопроцессоре. Delphi+Assembler - Delphi

29.07.2015, 15:25. Просмотров 252. Ответов 3
Метки нет (Все метки)

Здравствуйте. Косвенная адресация с целыми числами получается, не получается с дробными. Заранее благодарю.
Delphi
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
unit Assembler;
 
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
a:array [0..3{200}] of real; 
n,u,w:real;
 
begin
 
a[0]:=1;
a[1]:=2;
a[2]:=3;
a[3]:=4;
 
asm
 
finit
lea eax,a
push [eax+12]
fld dword ptr [esp] 
fstp w
 
end;
ListBox1.Items.Add(FloatToStr(w)+' Содержимое ячейки ');
 
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.07.2015, 15:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не отрабатывает дробное число в сопроцессоре. Delphi+Assembler (Delphi):

Как заставить TEdit выводить только дробное число - Delphi
Доброго времени суток. Подскажите, как заставить TEdit выводить только дробное число. Т.е. всегда должна быть десятичная часть. Например:...

Перевести целое и дробное число из девятиричной системы счисления в двоичную - Delphi
Помогите написать программу на делфи... нужно перевести целое и дробное число из девятиричной системы счисления в двоичную...

Delphi и Assembler - Delphi
Здравствуйте. Как мне использовать Assembler в Delphi, есть литература об этом, заранее благодарю.

Assembler в Delphi - Delphi
Здравствуйте не могу понять почему не показывает ответ по ListBox, заранее благодарю. procedure TForm1.ButtonClick(Sender: TObject); ...

Assembler в Delphi - Delphi
Мне нужно занести в регистр(любой) значение указателя. А потом из регистра в обычную переменную ... var i:^integer; n:integer; ...

Assembler в Delphi - Delphi
Вот пример кода моей DLL - library Project2; uses SysUtils, Classes; {$R *.res} begin

3
FIL
Модератор
3407 / 2545 / 490
Регистрация: 19.09.2012
Сообщений: 7,905
29.07.2015, 17:18 #2
Delphi
1
2
3
4
5
6
7
8
asm
 
  finit
//  lea eax, a
  fld qword[a + 3*8] // a[3]
  fstp w
 
end;
0
mss
2599 / 2255 / 250
Регистрация: 24.12.2010
Сообщений: 13,725
29.07.2015, 17:51 #3
С какого потолка свалилось число 12 ?
0
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
29.07.2015, 18:21  [ТС] #4
Спасибо большое, а 12 =3*4, не правильно считал.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.07.2015, 18:21
Привет! Вот еще темы с ответами:

Delphi вставка Assembler - Delphi
Delphi Здравствуйте. Не могу вставить данные в аккумулятор eax при умножение, покажите пожалуйста с примером. Заранее благодарю. unit...

Assembler в консоли Delphi - Delphi
Есть такой код в консоли,но он ошибку выдает! program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; var...

Выгрузка из матрицы. Delphi+Assembler - Delphi
Здравствуйте. Матрицу b загрузил в аккумулятор eax, сделал какой-то расчет и мне надо всю матрицу выгрузить из eax снова в матрицу b. Я...

Перегрузка integer Delphi+Assembler - Delphi
Здравствуйте.Первую часть , x*sin(i)+y*cos(i)=r ,прог. отрабатывает нормально, при вводе второй части, увеличения y на 1, компилятор...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru