Пример работы программыкалькулятора (Рисунок ) V
V
Теперь поговорим о встроенном ассемблере. Это весьма мощное средство. Надо только иметь в виду, что встроенные ассемблеры часто несколько отстают от обычных ассемблеров в части поддержки новых команд микропроцессоров. Это вполне объяснимо, так как разработка новой версии пакета, скажем C++ Builder, требует гораздо больше времени, чем пакета TASM. В примерах на Рисунок 3.7.10 и Рисунок 3.7.11 мы используем команды арифметического сопроцессора.
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var d:double; function soproc(f:double): double; var res:double; begin asm FLD f FSIN FSTP res end; soproc:=res; end;
begin d:=-pi; while (d<=pi) do begin writeln(d:10:2,'-',soproc(d):10:2); d:=d+0.1; end; end.
