float.txt

来自「这是我自己实现的一个微小的编译程序,附可执行代码的虚拟机,是理解编译原理的绝好材」· 文本 代码 · 共 25 行

/*浮点指令正确生成测试源程序
Author:谭添升
2006年5月29日
output:
2.500000
1.500000
1
*/
var a:int;
var b:real;
var c:real;
var d:real;
var e:int

begin
	a:=1;
	b:=1.5;
	c:=a+b;			/*测试inttoreal*/
	d:=a*b;			/*测试inttoreal*/	
	e:=d;			/*测试realtoint*/
	write c;		/*测试输出real*/
	write d;		/*测试输出real*/
	write e			/*测试输出int*/
end