Из Паскаля в Делфи.
Код в паскале нужно перевести в делфи (для одномерного массива)
ССОРТИРОВКА С ПОМОЩЬЮ ПРЯМОГО ВКЛЮЧЕНИЯ. PROGRAM SI; VAR I,J,N,X:INTEGER; A:ARRAY[0..50] OF INTEGER; BEGIN WRITELN(‘Введите длину массива’); READ(N); WRITELN(‘Введите массив’); FOR I:=1 TO N DO READ(A[I]); FOR I:=2 TO N DO BEGIN X:=A[I]; A[0]:=X; J:=I; WHILE X<A[J-1] DO BEGIN A[J]:=A[J-1]; DEC(J) END; A[J]:=X END; WRITELN('Результат:'); FOR I:=1 TO N DO WRITE(A[I],' ') END. |
Если ещё не поздно и нужно, тогда вот:
Код:
unit Unit1; |
Где вы были раньше(((я уже сдал на 3((
|
Надо было написать сроки! И могли бы хоть отписаться что уже ненадо, да и поблагодарить человека работавшего ради вас совершенно бесплатно, было бы нелишне.
|
Да извините спс за помощь))Простите меня за мою не культурность.
|
Часовой пояс GMT +4, время: 18:08. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.