Без понятия что делать дальше

@Shiro Paradox · Регистрация: 23.12.2018

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

Вот уравнение: ((a*b)/(c*d))-((a*b-c)/(c*d)). Без понятия, что делать дальше.

Delphi

program fpu_sys2;
 
{$APPTYPE CONSOLE}
 
var a,b,c,d:double;
 
function calc:double; register;
 
asm
  fld c // st0=c
  fld d// st0=c, st1=d
  fmul st(1),st(0) // st0=c, st1=cd
 
  fld a // st0=a, st1=c, st2=cd
  fld b // st0=b, st1=a, st2=c, st3=cd
  fmul st(0),st(1) // st0=ab, st1=a, st2=c, st3=cd
  fsub st(0),st(2) // st0=ab-c, st1=a, st2=c, st3=cd
 
  fdiv st(0),st(3) // st0=(ab-c)/(cd), st1=a, st2=c, st3=cd
 
  fld d // st0=d, st1=(ab-c)/(cd), st2=a, st3=c, st4=cd
  fld b // st0=b, st1=d, st2=(ab-c)/(cd), st3=a, st4=c, st5=cd
  fmul st(0),st(3)// st0=ab, st1=d, st2=(ab-c)/(cd), st3=a, st4=c, st5=cd
  fmul st(1),st(4) // [Error] fpu_sys2.dpr(24): Invalid combination of opcode and operands
 
  fsub st(1),st(3) // [Error] fpu_sys2.dpr(26): Invalid combination of opcode and operands
 
end;
 
function check:double;
begin
        result:=((a*b)/(c*d))-((a*b-c)/(c*d))
end;
 
begin
        readln(a,b,c,d);
        writeln(calc:0:3);
        writeln(check:0:3);
        readln;
end.

@D1973 · 28.09.2021, 16:50

Это что вообще за замуты? К чему они тут?

@Shiro Paradox · 28.09.2021, 17:04 **[ТС]**

Задание такое. Написать на ассемблере для простого уравнения. Если что, я использовал Delphi 7 на Windows 7 32-bit.

@Пытливый · 28.09.2021, 17:13

Написать на ассемблере и сделать ассемблерную вставку в Delphi это две разные задачи. Вы уверены, что это надо делать в Delphi?

@Shiro Paradox · 28.09.2021, 17:31 **[ТС]**

Пример был использован именно на Delphi 7.

@northener · 29.09.2021, 02:49

Shiro Paradox, О каком курсе, по какому предмету идёт речь?

@Shiro Paradox · 29.09.2021, 14:56 **[ТС]**

Предмет называется "Системное программирование". Задание было - сделать так, чтобы на консоле два значения были одинаковыми. Преподаватель показывал именно на Delphi.

@D1973 Модератор 9392 / 6161 / 2403 Регистрация: 21.01.2014 Сообщений: 26,268 Записей в блоге: 3
	28.09.2021, 16:50	2
	Это что вообще за замуты? К чему они тут? 0

@Shiro Paradox 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 48
	28.09.2021, 17:04 [ТС]	3
	Задание такое. Написать на ассемблере для простого уравнения. Если что, я использовал Delphi 7 на Windows 7 32-bit. 0

@Пытливый 3756 / 2261 / 703 Регистрация: 29.05.2013 Сообщений: 9,593
	28.09.2021, 17:13	4
	Написать на ассемблере и сделать ассемблерную вставку в Delphi это две разные задачи. Вы уверены, что это надо делать в Delphi? 0

@Shiro Paradox 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 48
	28.09.2021, 17:31 [ТС]	5
	Пример был использован именно на Delphi 7. 0

@northener пофигист широкого профиля 4750 / 3185 / 861 Регистрация: 15.07.2013 Сообщений: 18,412
	29.09.2021, 02:49	6
	Shiro Paradox, О каком курсе, по какому предмету идёт речь? 0

@Shiro Paradox 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 48
	29.09.2021, 14:56 [ТС]	7
	Предмет называется "Системное программирование". Задание было - сделать так, чтобы на консоле два значения были одинаковыми. Преподаватель показывал именно на Delphi. 0