AZelensky
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые форумчане, имею задание:
Написать программу, производящую вычитание чисел произвольной размерности. Числа хранятся в виде массивов типа longint, где 0-й элемент массива - содержит младшие 32 бита числа (с 0-го по 31-й), следующий элемент массива с 32-го по 63-й и т. д.. Ввод-вывод данных чисел осуществлять из двоичных файлов (длина которых соответственно кратна 4-м).
Как можно реализовать это? Буду очень благодарен за это.
Нужно использовать Pascal с Ассемблерной вставкой
Вот что есть:
Код: Program RaznostMassivov;
const N=7;
var a1:array [1..N] of longint;
a2:array [1..N] of longint;
c:longint; p:pointer;
i:integer; p2:pointer;
begin
for i:=1 to N do
begin
writeln('Введите ',i,' элемент массива №1');
readln(a1[i]);
end;
writeln('Введенный массив №1:');
for i:=1 to N do
write(a1[i],' ');
writeln;
for i:=1 to N do
begin
writeln('Введите ',i,' элемент массива №2');
readln(a2[i]);
end;
writeln('Введенный массив №2:');
for i:=1 to N do
write(a2[i],' ');
writeln;
p:=@a1[1];
p2:=@a2[1];
asm
mov eax, p
mov ebx, p2
mov ecx, 0
@s: mov edx, [ebx]
sub [eax], edx
jno @m
add [eax+4], 1
@m: inc ecx
cmp ecx, N
je @gg
add eax, 4
add ebx, 4
jmp @s
@gg:
end;
end. |
Не могли бы Вы помочь с вводом? Я пробовал использовать тип файла Text, но ведь же требуют двоичные. |
Пусть матрица 4х4 