|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.06.2010, 18:00 | #1 |
Регистрация: 11.02.2009
Сообщений: 5
|
Ассемблер и паскаль
Нужно написать программу на ассемблере, но ввод данных и вывод результатов организовать через Паскаль. Вот само задание: дана последовательность символов, содержащая от 1 до 30 слов, в каждом из которых от 1 до 10 латинских букв; между соседними словами - запятая, за последним словом точка. Найти все слова, которые имеют повторения.
Алгоритм: 1.записываю в SL первое слово из строки STR11 2.сравниваю SL с оставшимися словами в строке 3. если были совпадения, то записываю в STR1 через пробел 4. записываю в SL след. слово из строчки STR11 и повторяю проверку 2 Вот программа на ассемблере: Код:
Program asm1; {$D+} uses CRT; var str11,str1:string; procedure stroka(str11:string;var str1:string);external; {$L 3.obj} begin clrscr; writeln('Vvedite stoky'); readln(str11); writeln('Slova,kotorie imeut povtoreniy: '); stroka(str11,str1); readln; end. |
02.06.2010, 19:00 | #2 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
как помню, ЛУЧШЕ наооброт.... писать оболочку на Паскале, а алгоритм уже асемблером, так якобы быстрей работает программа.....
Как ты копмелируеш Паскалевский код и при этом еще тебе нужно подключить этот модуль {$L 3.obj} |
02.06.2010, 19:17 | #3 |
Регистрация: 11.02.2009
Сообщений: 5
|
нам как раз нужно сначала написать прогу на ассемблере, получить obj-файл, затем его использовать в паскале
|
02.06.2010, 19:56 | #4 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
на масме615 ml name.asm /AT
получаеш (*.obj) и (*.com) |
03.06.2010, 03:33 | #5 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,162
|
Doholyan
будьте внимательнее, ТС написал "model small" (только почемуто без точки) и окончание программы "mov ah,4Сh/int 21h", зачем ему *.com? тут нужен *.exe |
03.06.2010, 03:49 | #6 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
А может без всяких obj?
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
03.06.2010, 04:00 | #7 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,162
|
Alex Cones
Видимо тема "связь ассемблера и языков высокого уровня", процедура объявляется внешней и используется в Паскале, теоретически могут быть программы написанные на C/C++, Prolog и т.д. лишь бы был *.obj который привяжут к основной программе |
03.06.2010, 07:43 | #8 |
Регистрация: 11.02.2009
Сообщений: 5
|
программа на ассемблере работает, только я не знаю как ее переделать, чтобы она была пригодна для использования в Паскале. Я не понимаю, как ассемблер "поймет", что ему нужно "смотреть" новые данные?
|
03.06.2010, 08:23 | #9 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,162
|
фантомаз
Паскаль, то что пишет? Ошибки какие выдает? Программу на ассемблере уже поняли, что ты не сам написал, разберись для начала, ЧТО там написано, разберешься, начинай подгонять ее под свою задачу, только не пиши что времени нет, за то в армии времени у тебя будет навалом |
03.06.2010, 08:25 | #10 |
Регистрация: 11.02.2009
Сообщений: 5
|
Паскаль ошибки не выдает, он выписывает согласно тому, что введено на ассемблере изначально
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль = Ассемблер. | yurassik | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 6 | 23.04.2010 13:50 |
Ассемблер и Паскаль | maziLa | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 05.12.2009 17:50 |
Модульое програмирование.Паскаль.Ассемблер. | maziLa | Помощь студентам | 1 | 02.12.2009 05:51 |
Ассемблер и Паскаль не дружат... | Monte-Kristo | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 16.06.2009 13:03 |