Алгоритмы поиска и сортировки данных
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
81+FormatFloat(0.00000000000,(T2-T1)/iCounterPerSec)+.,mtInformation,[mbOK],0);.Lines.Clear;i:=1tokoldo[i]:=temp[i-1];.Lines.Add(mas[i]);;;TMainForm.Button6Click(Sender:TObject);">{$R *.dfm}TMainForm.Button1Click(Sender: TObject);, i : integer;Memo1.Text theni := 1 to Memo1.Lines.Count do[i] := Memo1.Lines[i-1];:= Memo1.Lines.Count;(Не введен список!, mtWarning, [mbOK], 0);LE_Shablon.Text = then(Не задан шаблон поиска, mtWarning, [mbOK], 0):= LE_Shablon.Text;i := 1 to kol dotemp[i] = str then;i <= kol then.SelStart := Memo1.Perform(EM_LINEINDEX, i-1, 0);.SelLength := Length(Memo1.Lines[i-1]);.SetFocus;(Шаблон поиска не найден!, mtWarning, [mbOK], 0);;;TMainForm.Button9Click(Sender: TObject);, high, mid, i: integer;, flag:boolean;: String;
begin
//проверка на отсортированность.
flag := true;
mas[i+1]then:=false;;;;flagthenLE_Shablon.Text=then(,mtWarning,[mbOK],0):=LE_Shablon.Text;:=1;:=kol;:=false;(low mas[mid] then:= mid+1:=true;;found then.SelStart := Memo2.Perform(EM_LINEINDEX, mid-1, 0);.SelLength := Length(Memo2.Lines[mid-1]);.SetFocus;(Шаблон поиска не найден!, mtWarning, [mbOK], 0);
end;(Данные не отсортированы! Поиск невозможен!, mtWarning, [mbOK], 0);
theni:=1toMemo1.Lines.Countdo[i]:=Memo1.Lines[i-1];:=Memo1.Lines.Count;(!,mtWarning,[mbOK],0);LE_Shablon.Text=then(,mtWarning,[mbOK],0):=LE_Shablon.Text;:=Length(str);">end;TMainForm.Button8Click(Sender: TObject);: String;, j, k, m, n, nom : integer;: array [0..10000] of String;: boolean;:= false;Memo1.Text <> theni := 1 to Memo1.Lines.Count do[i] := Memo1.Lines[i-1];:= Memo1.Lines.Count;(Не введен список!, mtWarning, [mbOK], 0);LE_Shablon.Text = then(Не задан шаблон поиска, mtWarning, [mbOK], 0):= LE_Shablon.Text;:= Length(str);
k := 1 to kol do:= Length(temp[k]);i := 1 to n-m+1 do:= 0;(j < m) and (str[j+1] = temp[k, i+j]) do(j);j = m then:= true;;;;flag then;;flag then.SelStart := Memo1.Perform(EM_LINEINDEX, k-1, 0) + i-1;.SelLength := m;.SetFocus;(Шаблон поиска не найден!, mtWarning, [mbOK], 0);;
end;
end.
Приложение 2
Сортировка и поиск данных
Рис. 3.1. Внешний вид формы на этапе разработки
Приложение 3
Сортировка и поиск данных
Рис. 3.2. Главная форма программы