Здравствуете, первый раз на этом форуме, поэтому если что не так извените.
И так суть проблемы. Есть прога написаная для консоли в среде Делфи 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.
|
Нуно некоторые операторы заменить ассемблеровскими вставками, а как сделать ненаню..... :( |