Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler, MASM, TASM
Войти
Регистрация
Восстановить пароль
 
Sluvka
0 / 0 / 0
Регистрация: 24.05.2013
Сообщений: 3
1

Связь ассемблера с Pascal

24.05.2013, 19:08. Просмотров 432. Ответов 4
Метки нет (Все метки)

Сформируйте массив, в котором соответствующий элемент является произведением элементов двух массивов.
Помогитею.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2013, 19:08
Ответы с готовыми решениями:

связь ассемблера с языками высокого уровня
Обьясните или покажите на примерах, как делать связи: С++ + асм, асм+асм, паскаль+асм Спасибо.

Освоение ассемблера
в общем дело подошло к сессии и надо решить задачу на ассемблере.... вся проблема в том, что даже...

Код ассемблера
у меня такая просьба помогите разобраться в коде а точнее распишите что означает каждая команда и...

Перевод из Ассемблера в C++
в интернете нашел программу, которая разрешает или запрещает доступ к USB, написанная на...

Сочетание Ассемблера и С+-
1)Если в асм. написать .486 .data ????? то код работает Но если в с++ билдере этот код...

4
MansMI
1448 / 1157 / 549
Регистрация: 08.01.2012
Сообщений: 4,509
24.05.2013, 20:48 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var i:integer;
    a1:array[1..10]of shortint;
    a2:array[1..10]of shortint;
    a3:array[1..10]of integer;
label go;
begin
   clrscr;
   randomize;
   for i:=1 to 10 do
   begin
      a1[i]:=random(256)-128;
      a2[i]:=random(256)-128;
   end;
 
   asm
      lea edi,[a1]
      lea esi,[a2]
      lea ebx,[a3]
      mov ecx,10
   go:mov al,[edi]
      imul byte ptr[esi]
      mov [ebx],ax
      inc edi
      inc esi
      add ebx,2
      loop go
   end;
 
   for i:=1 to 10 do write(a1[i]:7);
   writeln;
   for i:=1 to 10 do write(a2[i]:7);
   writeln;
   for i:=1 to 10 do write(a3[i]:7);
 
   readln;
end.
1
Sluvka
0 / 0 / 0
Регистрация: 24.05.2013
Сообщений: 3
24.05.2013, 22:44  [ТС] 3
а можно отдельно?
тоесть сама обработка массива была на ассемблере, а в паскале использовалась как функция
0
MansMI
1448 / 1157 / 549
Регистрация: 08.01.2012
Сообщений: 4,509
25.05.2013, 09:33 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const ArrSize=10;
 
procedure IMul(a1,a2:array of shortint;var a3:array of integer);
label go;
begin
   asm
      mov edi,a1
      mov esi,a2
      mov ebx,a3
      mov ecx,ArrSize
   go:mov al,[edi]
      imul byte ptr[esi]
      mov [ebx],ax
      inc edi
      inc esi
      add ebx,2
      loop go
   end;
end;
 
var i:integer;
    a1,a2:array[1..ArrSize]of shortint;
    a3:array[1..ArrSize]of integer;
begin
   clrscr;
   randomize;
   for i:=1 to ArrSize do a1[i]:=random(256)-128;
   for i:=1 to ArrSize do a2[i]:=random(256)-128;
   IMul(a1,a2,a3);
   for i:=1 to ArrSize do writeln(a1[i]:4,' *',a2[i]:5,' =',a3[i]:7);
   readln;
end.
0
Somebody
2799 / 1610 / 251
Регистрация: 03.12.2007
Сообщений: 4,213
Завершенные тесты: 3
25.05.2013, 12:14 5
Pascal
1
2
3
asm
...
end ['ebx', 'esi', 'edi'];
0
25.05.2013, 12:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 12:14

Программы для Ассемблера
Может кто нибудь скинуть проги для ассемблера, для компиляции, вроде бы тасм и что то там еще было,...

IDE для ассемблера
Привет всем! Хочу рассказать о простой среде разработки для языка ассемблера NASM, написанной...

Примеры применения ассемблера
меня интересует можно ли на чистом ассемблере написать сайт или какое нибудь веб приложение? ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru