| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вставка ассемблеровского кода [D7]

~F@ntom~ ©   (2008-01-22 14:29:00) 

Уважаемы мастера помогите плиз, есть прога написаная для консоли, вот ее код:

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.



нуно некоторые операторы заменить ассемблеровскими вставками.
Как это сделать незнаю...

---

~F@ntom~   (2008-01-22 14:35:00) [1]

спс, ща попробеум че получится :)

---

Плохиш   (2008-01-22 14:32:00) [2]

> ~F@ntom~   (22.01.08 14:29)  


asm
...
end;


---

Наверх