ORIGIN '~beta/basiclib/betaenv'; INCLUDE '~beta/basiclib/numberio' '~beta/basiclib/math'; ---- program: descriptor ---- (# (* Negyzetgyok.bet: * függvények és feltételes ciklus használata *) Res: @real; Sqrt: (# X, Root: @real; enter X do X -> Root; Loop(# while:: (# do (X-Root*Root -> fabs) > X / 10E6 -> value #) do (Root + X/root) / 2 -> root; #); exit Root #); tab: (# N: @integer; enter N do (for N repeat ' '-> put for) #); do '\n\t ** Functions and variables **\n' -> putline; ' I sqrt(i) ' -> putline; (for i:10 repeat i -> Sqrt -> Res; i -> putint(# format::(# do 2 -> width#)#); 3-> tab; Res -> putreal; newline; for) #)