Форум: "Начинающим";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];

Вниз

Вставка ассемблеровского кода   Найти похожие ветки 

← →
~F@ntom~   (2008-01-22 14:29) [0]

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

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.



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

---

← →
Плохиш ©   (2008-01-22 14:32) [1]

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


asm
...
end;


---

← →
~F@ntom~   (2008-01-22 14:35) [2]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.076 c