Главная
Первые примеры
Первые примеры

Выдать в выходной поток строку Hello, World !

Вариант 1:

"Hello, World !" .

Вариант 2:

$. Hello, World v. 2 !

Выдать в выходной поток строку состоящую из 10 строчек 'abc'

"abc" 10 * .

Применение слов-операторов

"(12+37)*(66/6)=" 12 37 + 66 6 / * + .

12.0 7 / .

() 10 + "abc" + 78 + .

n-факториал

Вычислим:

"6!=" 1 7 2 nit [ * ] apply + .

Напишем слово для факториала и вычислим:

: nfact 1 swap 1 + 2 nit [ * ] apply ;
"8!=" 8 nfact + .

Создание окна, вычисление факториала


"java.awt." prefix

_Frame class new: Frame
( 200 , 100 , 400 , 150 ) Frame .setBounds
"n!" Frame .setTitle

_Panel class new: Panel
Panel Frame .add

"n!=" _Label class new const: Label
( 150 , 25 ) Label .setSize
Label Panel .add

() _TextField class new const: TextField
( 50 , 25 ) TextField .setSize
TextField Panel .add

"Calculate" _Button class new const: Button

Button Panel .add

"Exit" _Button class new const: ButtonExit

ButtonExit Panel .add

true Frame .setVisible

: calc TextField @text toi nfact tos "n!=" swap + Label !text () Panel .validate ;
: disposeFrame () Frame .dispose ;

Button adapter paction: calc
ButtonExit adapter paction: disposeFrame

Выполнить пример (используется Web-сервер)