|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.10.2013, 22:40 | #1 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
Lazarus
здравствуйте, ув.программисты. у меня завтра зачёт по Lazarus, а я никак не могу понять как сделать: Пользователь вводит размерность массива (N<100). Выбирает способ сортировки массива ( по убыванию и возрастанию).
var Form1: TForm1; a,b: array[1..100] of integer; n,i,j:integer; implementation { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var i,temp:integer; flag:boolean; begin n:=StrToInt(Edit1.Text); StringGrid1. rowCount:=n+1; for i:=1 to n do begin StringGrid1.Cells[i,0]:=IntToStr(i); end; end; procedure TForm1.Button2Click(Sender: TObject); var t,k:integer; begin for i:=1 to n do a[i]:=StrToInt(StringGrid1.Cells[i,1]); StringGrid1.rowcount:=n+1; if radioGroup1.itemindex<>-1 then case radioGroup1.itemindex of 0: begin for k:=1 to n-1 do begin for i:=1 to n-1 do begin if (a[i]<a[i+1]) then begin t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; end; end; end; StringGrid2.Cells[i,0]:=IntToStr(i); StringGrid2.Cells[i,1]:=IntToStr(a[i]); end; end; 1: 0: begin for k:=1 to n-1 do begin for i:=1 to n-1 do begin if (a[i]<a[i+1]) then begin t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; end; end; end; StringGrid2.Cells[i,0]:=IntToStr(i); StringGrid2.Cells[i,1]:=IntToStr(a[i]); end; end; end; у меня загвоздка со способами сортировки массива. заранее спасибо) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus | Toxifer | Фриланс | 0 | 27.11.2012 22:46 |
Lazarus | ЮлияKuznechik | Помощь студентам | 0 | 22.05.2011 12:22 |
Lazarus... | Сristina | Помощь студентам | 1 | 28.03.2011 20:03 |
Lazarus | Markefimov | Lazarus, Free Pascal, CodeTyphon | 10 | 25.01.2011 23:09 |
Lazarus | 666Rayne666 | Помощь студентам | 2 | 02.06.2010 17:55 |