![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 29.04.2009
Сообщений: 54
|
![]()
Ошибка в цикле , не могу понять в чем! Помогите пожалуйста.
procedure TForm1.Button3Click(Sender: TObject); procedure BubbleSort(var a: array of integer); var i,p,n: Integer; b: boolean; begin n:= Length(a)-1; if n < 1 then exit; repeat b:= true; Dec(n); for i:= 0 to n do if a[i] > a[i+1] then begin p:= a[i]; a[i]:= a[i+1]; a[i+1]:= p; b:= false; inc(d); end; until b; end; const n=5; var d,k,i,temp,bound:integer; x:array[1..n] of integer; begin randomize; for i:=1 to n do x[i]:=random(100); for k:=1 to n do memo5.Lines.Add(IntToStr(x[k])); end; begin for i:=1 to n do a[i]:=StrToInt(Memo3.Lines[i-1]); // строки Memo пронумерованы с нуля BubbleSort(a); for i:=1 to SIZE do //вывод memo4.Lines.Add(IntToStr(a[i])); edit3.Text:=IntToStr(SIZE*SIZE); //оценка сложности edit4.Text:=IntToStr(d); end; |
![]() |
![]() |
#2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]() Код:
В самом обработчике нет массива a, есть массив x. Где объявлена SIZE не нашел.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу понять в чем проблема!(copy,length,pos) | zotox | Помощь студентам | 1 | 26.04.2009 03:12 |
Не могу понять в чем ошибка (вроде школьная математика) | Алён@ | Общие вопросы Delphi | 4 | 10.03.2009 20:25 |
Не могу понять в чем проблема (код) | diznt | Помощь студентам | 2 | 03.08.2008 10:20 |
Помогите пожалуйста не могу понять! | Kosoy135 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 28.12.2007 19:08 |
Помогите понять в чем ошибка (работа со строками) | Edimus | Общие вопросы C/C++ | 1 | 22.11.2007 14:09 |