RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> > > > P.S.: Листинг этот нужен исключительно в образовательных целях, а посему варезом являться не будет. > В образовательных ? > Ну вот вам > /* calc.cmd наpодный калькулятоp (с) 1998 */ > SAY 'Русский наpодный калькулятоp v0.0' > XX = "X="; X0 = "X=X" > SAY 'Введите выpажение или Q для завершения' > DO FOREVER > PULL v > IF v = 'Q' THEN LEAVE > S=LEFT(v,1) > IF(DATATYPE(S,'A')) > THEN > DO > IF(POS('=',v) = 0) > THEN > DO > INTERPRET XX v > SAY 'X=' X > END > ELSE > INTERPRET v > END > ELSE > DO > INTERPRET X0 v > SAY 'X=' X > END > END > EXIT >
__, _,_ _, __, ___,
|_) | | | |_ ` /
| \ | | | , | /
~ ~ `~' ~~~ ~~~ ~~~
Programmed by
Dmitri Maximovich
,
Dmitry I. Platonoff
,
Eugen Kuleshov
.
25.09.99 (c) 1999,
RU/2
. All rights reserved.
Rewritten by
Dmitry Ban
. All rights ignored.