всем привет. помогите пожалуйста. пишу программу транслятор для программ pascal'я на delphi. сделал вывод таблицу с лексемами. обработку ошибок. проверку конструкций if, for, begin и т.д. не могу придумать алгоритм представления программы с помощью четверок. даже не знаю с чего начать. то ли обрабатывать значения из таблицы с лексемами. то ли обрабатывать сам листинг?! код не нужен. просто поделитесь мыслей, предложениями как написать данный алгоритм. вот пример: 1. PROGRAM STATS 2. VAR 3. SUM, SUMSQ, I, MEAN, VARIANCE : INTEGER 4. BEGIN 5. SUM:=0; 6. SUMSQ:=0; 7. FOR I:=1 TO 100 DO 8. BEGIN 9. READ(VALUE); 10. SUM:=SUM+VALUE; 11. SUMSQ:=SUMSQ+VALUE*VALUE 12. END; 13. MEAN:=SUM DIV 100; 14. VARIANCE:=SUMSQ DIV 100 – MEAN*MEAN; 15. WRITE (MEAN, VARIANCE); 16. END. Рис.3.1. Пример программы на Паскале № Операция ОР1 ОР2 результат Комментарии 1 := # 0 SUM {SUM:=0} 2 := # 0 SUMSQ {SUNSQ:=0} 3 := # 1 I {FOR I:=1 TO 100} 4 JGT I # 100 (15) 5 CALL XREAD {READ (VALUE)} 6 PARAM VALUE 7 + SUM VALUE I1 {SUM:=-SUM+VALUE} 8 := I1 SUM 9 * VALUE VALUE I2 {SUMSQ:=SUMSQ+VALUE*VALUE} 10 + SUMSQ I2 I3 11 := I3 SUMSQ 12 + I # 1 I4 {КОНЕЦ ЦИКЛА FOR} 13 := I4 I 14 J (4) 15 DIV SUM # 100 I5 MEAN:=SUM DIV 100 16 := I5 MEAN 17 DIV SUMSQ # 100 I6 {VARIANCE:=SUMSQ DIV 100 –MEAN*MEAN } 18 * MEAN MEAN I7 19 - I6 I7 I8 20 := I8 VARIANCE 21 CALL XWRITE {WRITE(MEAN,VARIANCE)} 22 PARAM VEAN 23 PARAM VARIANCE
Подскажите поэалуйста, какую среду разработки паскаля надо юзать, чтобы там компилился код с таким синтаксисом: ? Перепробовал штук 5 вариантов и нигде не работает
www.freepascal.org/ качай фрипаскаль с офф сайта и всё будет хорошо, crt отдельно ставить не надо. всё пашет.
Не могу сделать в Delphi открытие Экселевского файла. подскажите пож что использовать. и как это сделать чтоб считвался из папки с программой. + возможность сохранения в делфи. Прощу помощи. кому не тяжело стукните : 431281158
Подскажите как организовать динамическую подгрузку текста в richEdit во время скролла. Проблема: В RichEdit загружается большой объем текста и программа сразу сжирает ~10мб памяти. Показывать пользователю только тот текст который который вместиться в размер окна RichEdit целесообразнее, чем загружать весь сразу. А при прокрутке scroll подгружать нужный текст. Видел давно статью как осуществить подобную загрузку в memo/ Но увы, найти её в нужный момент не могу. Спасибо.
Вобщем трабла с капчей... http://freemail.ukr.net/q/reg Получаю гетом код странички откуда паршу линк на картинку, но при переходе/загрузке проклятая имага меняет цыферки. Есть метод, который позволит не обращаться к картинке 2 раза, или посоветуйте чего.
Есть какие нибудь библиотеки для работы с Exel табл, чтение\запись. (Бесплатные) Через Ole не оч. хочется.
в uses надо подключить JPEG PHP: var S,captcha: string; FS1 : TFileStream; begin S:=IdHttp1.Get('http://freemail.ukr.net/q/reg'); captcha:='http://freemail.ukr.net/q/captcha?cpt_id='+ copy(S, pos('<input id="cpt_id" name="cpt_id" type="hidden" value="',S)+54, 8); FS1:=TFilestream.create('captcha1.jpg', FmCreate); idhttp1.Get(captcha,FS1); FS1.Free; Image1.Picture.LoadFromFile('captcha1.jpg'); end;
извращение по-моему. заюзай либо: 1)Отдельный поток. 2)Заюзать просто быстрое чтение из файла,затем загрузку в ритч.( к примеру грузить блоками размером=кластеру винта). Если прям так хочется динамику то отрисовывай вручную с помощью GDI или подгружай текст из диска по мере необходимости,допустим через файл-мэппинг. короче готового варианта я не встречал.так что думай.
