Первый тест, ещё почти ничего не работает, мы сменили язык программирования, теперь уже есть LiRuWorks.pas который стабильно создает нужные запросы к серверу ЛиРу, но сейчас почти не готов модуль SktLib (передача данных).
Уже минус мозг из-за передачи данных по протоколу HTTP :D
╔═══════════════════════════════════╤═══╗ ║ Демо код │ x ║ ╠═══════════════════════════════════╧═══╣ ║ ┌───────────────────────────────────┐ ║ ║ │Один мой ЛуРу-друг соблазняет меня │ ║ ║ │Демо-кодом. А я все не соберусь. │ ║ ║ │А надо-бы потом можно ехать на тоже│ ║ ║ │assembly в качестве демо-сценера)) │ ║ ║ │И вообще буду знать D3D, DSound,...│ ║ ║ │Пишите в комментах кто хотя-бы ви- │ ║ ║ │дел демки... (тока не игр!!) │ ║ ║ └───────────────────────────────────┘ ║ ║ ┌───────────┐ ┌───────────┐ ║ ║ │ Да │ │ Нет │ ║ ║ └───────────┘ └───────────┘ ║ ╚═══════════════════════════════════════╝
(08.06.06) Вечером все просто зашибись сначала поиграл в игру Syndicate на Sega, затем поиграл в Super Tux, потом решил продолжить свой проект: ScriptLangTest2 - первый как-то не очень прижился... Там жестокие глюки при использвании Do... и все переменные типа String... Поэтому функция EOF фозвращает, то "True", то 1 и из-за этого я решил закрыть первый тест и начать второй, в котором я разчитываю будет GoTo, Do, If и может быть For...
Сейчас парился над функцией Calc(CodeStr as String, Wnd as Object) as Variant Решил использовать для переменных тип Variant, пусть это занимает больше памяти зато работает нормально... Эта функция считает так 2+2*2 она вернет 6, хотя ответ 8, он просто сгребает все значения и выполняет действия... она поддерживает скобки (но только одни) можно написать так (2+2)*2 и она вернет 8...
Эта расчитываю вставить сюда еще проверку на функции... Еще создал функцию CalcA(Val1, Val2, ValA). В первое и второе значаение а третий параметр это действие там лежит строка типа +-*&^\| она может складывать(+), отнимать(-), умножать(*), делить(\), возводить в степень(^), OR (|) и соединять строки (& ) в принципе строки можно соединять и оператором сложения, он я предпочитаю &, так как если использовать + то и в первом параметре лежит строка а во втором число, произойдет ошибка...
Сижу пишу програмку на паскале (да-да и не кидать в меня тухлые помидоры). Вот задание это ваааще кадр:
Составить прогу содержащую процедуру, исходными данными которой являeтся массив C из n элементов... Массив Р получают из С по правилу: заменить на 0 все элементы до 1 отрицательного, который заменить на 1, а все остальные заменить их модулями
хз половина что значит, так еще тут опрос можно устраивать для чего она нужна... Да и языка этого не знаю)) ну ладно начем что такое модули.. явно что-то не програмное. Так оказалось это такая хрень: было -1 стало +1 было +1 так и осталось (так Detonator обьяснил, ему он кстати и нужна [для лабы]), ну вроде все легко... делаем функцию в ней for и готово, так куда возвращать значания, помоему не один язык не умеет возвращать из функции массив.. Буду использовать страрый проверенный метод возврещения через параметр))) Отлично все готово (вроде) ;) , пора тестировать... theret:=CheckArray(c,p); writeln(theret); readln(tmp);
ИДИОТСКИЙ НЕ НУЖНЫЙ (уже) ЯЗЫК...
... ВСЕ!!! отлично пара исправлений и все вроде пашет)))