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

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

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

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

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

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

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

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

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

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

4
MansMI
1447 / 1156 / 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
1447 / 1156 / 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,211
Завершенные тесты: 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 для ассемблера
Привет всем! Хочу рассказать о простой среде разработки для языка ассемблера...

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

План изучения ассемблера
Всем привет! Начал недавно изучать ассемблер, пока многое не понятно и не...

Что было до ассемблера
Решил заняться программированием на низших языках, начал читать про ассемблер и...


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

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

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