VPF::Вставки ассемблера к код программы

podavan

Дата 22.1.2008, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.1.2008

Репутация: нет
Всего: нет

Здравствуете, первый раз на этом форуме, поэтому если что не так извените.

И так суть проблемы. Есть прога написаная для консоли в среде Делфи 7, вот ее код.

Код



program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  type
      TArray = array[1..8] of integer;
  var
      mbuf: Integer;  //peremenaja posrednik
      i, j: Integer; // peremenaja cikla
      mas: ^TArray; // peremenaja masiva
Begin
    New(mas);
//*-----------------Vvod matrici---------------------------*

    WriteLn('Vvod elementom matrici 1*8');
    Writeln;
    For i :=1 To 8 Do
     Begin
          Write('Element mas[',i,']: ');
          ReadLn(mas^[i])
     End;

//*-----------------Sortirovka matrici---------------------------*

    Writeln; Writeln;
    WriteLn('Sortirovka elementom matrici 1*8');
     For  j := 1 To 8 Do
       Begin
            For i :=1 To 8 Do
              Begin
                   If mas^[i] < mas^[i+1] Then
                     Begin
                          mbuf := mas^[i];
                          mas^[i] := mas^[i+1];
                          mas^[i+1] := mbuf;
                     End; //If
              End; //For
       End; //For

//*-----------------Vivod matrici---------------------------*

    Writeln; Writeln;
    WriteLn('Vivod elementom matrici 1*8');
    Writeln;
        For i := 1 To 8 Do
         WriteLn('Element mas[',i,']: ', mas^[i]);
    Writeln;
//*---------------------------------------------------------*
    WriteLn('Press Any key for exit...');
    ReadLn;
End.

Нуно некоторые операторы заменить ассемблеровскими вставками, а как сделать ненаню..... :(

THandle

Дата 22.1.2008, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Код


asm
  // тут код на ассемблере
end;

kemiisto

Дата 22.1.2008, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 2
Всего: 160

http://www.guidogybels.net/index.html?delphiasm.html

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

de_Nis

Дата 11.1.2009, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Старательный

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 19.10.2006
Где: Молдова

Репутация: нет
Всего: 6

Есть книга (в электронном виде в том числе):
Магда Юрий "Ассемблер. Разработка и оптимизация Windows-приложений" (546 с).djvu
В ней очень подробно расписано использование языка ассемблера в Дельфи 7.

--------------------

Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »