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

Reply via email to