ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Уважаемые, знаком ли кто-нибудь с языком Форт?
10 сообщений из 10, страница 1 из 1
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756306
Фотография zlobus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zlobus
Участник
Надо написать задание на нем для nnCron, что-то не могу понять как там работать со строками ....

Надо взять текущую дату
(это понятно,
\Год, месяц
Mon@ 100 Year@ * +
N>S TO tdate
\День
Day@ S>D <# # # #> TO tday )

А затем переставить ее на предыдущий рабочий день, то есть если сегодня понедельник открутить 3 дня назад, если любой другой день - один.
Есть предопределенная переменная %WW% которая содержит день недели вида Mo-Su, так вот не могу написать простейшее условие if...else, чтение хелпа ни к чему не приводит - то ли там не описана работа со строками, то ли плохо смотрю... Синтаксическая ошибка и все. Кто нить может подсказать, как нарисовать? Кое-какие примеры есть, для булевых переменных, но из них не понятно как сравнить текстовую строку... Вот:
#( test_variable2
NoActive
\ создаем переменную is_it_true?
VARIABLE is_it_true?
Action:
\ присваиваем переменной значение '-1'
is_it_true? ON
\ извлекаем значение переменной
\ и проверяем с помощью условного оператора
is_it_true? @
IF
MSG: "TRUE!"
ELSE
MSG: "FALSE!"
THEN
\ присваиваем переменной значение '0'
is_it_true? OFF
\ извлекаем значение переменной
\ и проверяем с помощью условного оператора
is_it_true? @
IF
MSG: "TRUE!"
ELSE
MSG: "FALSE!"
THEN
)#
...
Рейтинг: 0 / 0
27.10.2004, 10:34
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756447
Sova77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sova77
Гость
Надеюсь это поможет
http://www.nncron.ru/help/RU/add_info/forth_faq.htm#str_compare
...
Рейтинг: 0 / 0
27.10.2004, 11:26
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756466
Sova77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sova77
Гость
P.S. Для сравнения строк там используется функция COMPARE, а уже полученный результат сравнивается с 0.
...
Рейтинг: 0 / 0
27.10.2004, 11:29
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756506
Фотография zlobus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zlobus
Участник
это я все читал ...

Не понимаю, как сравнить с переменной :)

на все типа
%WW% S" Mo" COMPARE 0=
S %WW% S" Mo" COMPARE 0=

говорит синтаксическая ошибка. Пробовал перепихнуть в другую переменную сначала - тоже самое
...
Рейтинг: 0 / 0
27.10.2004, 11:39
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756575
Фотография naPmu3aH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
naPmu3aH
Участник
www.nncron.ru/forum/ ну или типа того.
В общем с официального сайта по линку support. Присутствующий там Валерий Кондаков весьма оперативно, точно и подробно отвечает на вопросы, да и еще народ тусуется...

--
чем дальше в лес, тем больше нас
...
Рейтинг: 0 / 0
27.10.2004, 12:02
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32756675
Фотография zlobus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zlobus
Участник
Вобщем, я забил на него. Так как дату нормально назад отмотать нельзя - есть функция day+ которая прибавляет дни к дате с учетом года и месяца, а day- нет :-))) отрицательное кол-во дней day+ передать тоже нельзя. Кроме того, рабочим днем в праздники может быть и суббота/воскресенье, посему надо сверяться с sql таблицей рабочих дней. Написал sql скрипт который корректно считает предудущий рабочий день, пишет его в файл и cron достает оттуда.
...
Рейтинг: 0 / 0
27.10.2004, 12:25
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32757411
Фотография Green2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Green2Привилегированный пользователь
Участник
Отвлекусь немного, я начинал писать программы на MK-51, эта машина использовалв форт подобную систему команд. Мне было в форте не очень сложно.

По моему, в форте есть философия программирования, несколько отличающаяся от классической, поэтому тебе с ним сложно.

--

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
27.10.2004, 16:02
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32757520
Фотография zlobus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zlobus
Участник
Green2По моему, в форте есть философия программирования, несколько отличающаяся от классической, поэтому тебе с ним сложно.


Ну да, а разбираться с ним ради написания задания в 10 строк (nnCron вообще понадобился из-за того что умеет нажимать на кнопки в приложениях) и последующего забвения смысла нет, поэтому достаточно от него запусить скрипт, прочитать дату из получившегося файла и понажимать на кнопки :-)
...
Рейтинг: 0 / 0
27.10.2004, 16:40
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32758242
Sova77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sova77
Гость
А так не пробовали
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
CREATE str  256  ALLOT

: mmm ( n -  )
S" Hello2" str !
str @ S" Hello" COMPARE  0 =
IF
." TRUE"
ELSE
." FALSE"
THEN
BYE
;

mmm
...
Рейтинг: 0 / 0
28.10.2004, 07:18
| Ответить | Цитировать | Написать  
Уважаемые, знаком ли кто-нибудь с языком Форт?
    #32759154
Alex_VC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_VC
Участник
Green2Отвлекусь немного, я начинал писать программы на MK-51, эта машина использовалв форт подобную систему команд. Мне было в форте не очень сложно.

По моему, в форте есть философия программирования, несколько отличающаяся от классической, поэтому тебе с ним сложно.

--

Posted via ActualForum NNTP Server 1.1

Да, было дело когда-то давно... Язык изначально был придуман для управления телескопом(и). Ну а так как телескоп вещь сложная, то и язык специфический.
...
Рейтинг: 0 / 0
28.10.2004, 13:45
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Уважаемые, знаком ли кто-нибудь с языком Форт?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]