04.07.2010, 16:42 | #1 (permalink) |
Member
Регистрация: 02.06.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из Паскаля в Делфи.
ССОРТИРОВКА С ПОМОЩЬЮ ПРЯМОГО ВКЛЮЧЕНИЯ. 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. |
04.07.2010, 16:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию предлагаю аналогичные темы, прочитайте Помогите с Делфи Теория Делфи. Делфи: массив, файлы Как открывать файлы в делфи 7? Переход из Паскаля в Луа |
06.07.2010, 00:28 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Если ещё не поздно и нужно, тогда вот:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); VAR I,J,N,X:INTEGER; A:ARRAY[0..50] OF INTEGER; begin N:=StrToInt(Form1.Edit1.Text); FOR I:=1 TO N DO a[i]:=StrToInt(Form1.StringGrid1.Cells[i-1,0]); 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; FOR I:=1 TO N DO Form1.StringGrid1.Cells[i-1,0]:=IntToStr(a[i]); end; end. |
07.07.2010, 22:55 | #4 (permalink) |
Лентяй
Регистрация: 13.04.2009
Адрес: Тверь
Сообщений: 16,556
Записей в дневнике: 29
Сказал(а) спасибо: 15
Поблагодарили 81 раз(а) в 14 сообщениях
Репутация: 24915
|
Надо было написать сроки! И могли бы хоть отписаться что уже ненадо, да и поблагодарить человека работавшего ради вас совершенно бесплатно, было бы нелишне.
|
08.07.2010, 01:56 | #5 (permalink) |
Member
Регистрация: 02.06.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да извините спс за помощь))Простите меня за мою не культурность.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|