Организовать прерывание деления на ноль

@yuliaspo · Регистрация: 13.06.2012

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

Нужно организовать прерывание деления на ноль на ассемблере. никак не получается.

@AFP · 19.06.2012, 11:00

Покажите то, что уже есть.

@yuliaspo · 19.06.2012, 11:27 **[ТС]**

прерывание вот case a of
1:ShowMessage('деление на ноль');
2:ShowMessage('деление на ноль');
3:ShowMessage(FloatToStr(v));
end;, нужна программа

Добавлено через 18 минут
AFP, помогите...

@AFP · 19.06.2012, 11:30

Вы язык программирования не перепутали? Здесь ассемблер.

@yuliaspo · 19.06.2012, 11:36 **[ТС]**

не перепутала. это прерывание на делфи! а сам код должен быть на ассемблере.

Добавлено через 3 минуты
AFP,

Delphi

function myf(a,b,c,d,g,x,e,q:double):extended;stdcall;
asm
 
  //fcos
  fld c
  fdiv q
  fst c
  fadd a
  fld d
  fmul x
  fsub a
 
  fld a
  fmul b
  fsub e
  fdivp
end;
procedure TForm1.Button1Click(Sender: TObject);
   var a,b,c,d,g,x,e,q:double; z:extended;
begin
g:=4;
x:=12;
e:=1;
q:=4;
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=StrToFloat(Edit4.Text);
z:=myf(a,b,c,d,g,x,e,q);
edit1.Text:=floattostr(z);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var v,r:integer;
begin
   case r of
1:ShowMessage('деление на ноль');
2:ShowMessage('переполнение');
3:ShowMessage(FloatToStr(v));
end;

@AFP · 19.06.2012, 11:45

Не умею я.

@Mikl___ · 19.06.2012, 11:56

yuliaspo, может быть проверять делитель на равенство нулю до команд fdiv q и fdivp и выдавать соответствующее предупреждение? Потому что при делении на ноль программа сама "схлопнется" и уже система выдаст сообщение "Деление на ноль, ваша программа будет закрыта"

@yuliaspo · 19.06.2012, 12:53 **[ТС]**

не можете написать код, как это будет выглядеть?

Добавлено через 44 минуты
Mikl___, ну помогите..

@alexcoder · 19.06.2012, 14:00

самое примитивное:

Assembler

asm
xor eax,eax
div eax
end;

вызовет системный обработчик деления на 0
Если нужно в делфи перехватывать такое деление, копайте в сторону SEH (Structured Exception Handling)

@yuliaspo 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 6
		1
	Организовать прерывание деления на ноль 19.06.2012, 10:29. Показов 2793. Ответов 8 Метки нет (Все метки) Нужно организовать прерывание деления на ноль на ассемблере. никак не получается. 0

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	19.06.2012, 11:00	2
	Покажите то, что уже есть. 1

@yuliaspo 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 6
	19.06.2012, 11:27 [ТС]	3
	прерывание вот case a of 1:ShowMessage('деление на ноль'); 2:ShowMessage('деление на ноль'); 3:ShowMessage(FloatToStr(v)); end;, нужна программа Добавлено через 18 минут AFP, помогите... 0

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	19.06.2012, 11:30	4
	Вы язык программирования не перепутали? Здесь ассемблер. 1

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	19.06.2012, 11:45	6
	Не умею я. 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	19.06.2012, 11:56	7
	yuliaspo, может быть проверять делитель на равенство нулю до команд fdiv q и fdivp и выдавать соответствующее предупреждение? Потому что при делении на ноль программа сама "схлопнется" и уже система выдаст сообщение "Деление на ноль, ваша программа будет закрыта" 1

@yuliaspo 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 6
	19.06.2012, 12:53 [ТС]	8
	не можете написать код, как это будет выглядеть? Добавлено через 44 минуты Mikl___, ну помогите.. 0

	19.06.2012, 14:00