Horodyski Marek (PZUZ) escribió:
[ ... ]
*----------------------
Function main()
local i, nd := 0.0, nd1 := 1.1
Cls
? nd
for i := 1 to 30
nd := nd + nd1
next
for i := 1 to 30
nd := nd - nd1
next
? nd
for i := 1 to 10000
nd := nd * nd1
next
? nd, ValType( nd), nd > 0.000001
return Nil
*-----------------------
On OpenWatcom it is correctly executet, and on BCC (I do not know how
the MinGW) ?
Sorry I misplace this email :'( This is your output with MinGW .-
0.0
0.0
************************************************************** N .F.
--
Xavi
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour