Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Статьи » Сучасні види кредиту (на прикладі ВАТ &Сбербанк Росії&)

Реферат Сучасні види кредиту (на прикладі ВАТ &Сбербанк Росії&)





більше вставляти; i:=0 to words.Count - 1 do//по всіх словами зі словника словused.IndexOf (words [i]) lt; gt;- 1 then continue;// в одному Кросворди одне слово двічі не встречается.InsertObject (0, words [i], pointer (CurWord));// всавіть в початок списку використовуваних словvalid (used) then//перевірка на правильність (used, CurWord + 1);// пройшло-шукаємо наступне словоendOfFind then exit;// вихід, якщо не треба больше.delete (0);// тепер видалимо останнє слово, тк на його місце в наступному обороті;// циклу вставимо нове

end;

procedure TFrmMain.Start (Sender: TObject);// запуск підбору l: tStringList;:=0;// кількість знайдених варіантів

l:=tStringList.Create;// тимчасовий список

interior (l, 1);// поїхали:=false; FindCount=0 then showMessage ( Немає варіантів # 13 Змініть схему або збільште словник слів ) ;. Free;// пам'ять треба звільняти

end;

//зміна схемиTFrmMain.ChShem (Sender: TObject) ;. Filter:= Файли схем (* .scm) | * .scm raquo ;;. Title:= Виберіть схему raquo ;;. fileName:= raquo ;; not OpenDialog.Execute then exit;:=OpenDialog.fileName; .free;:=tinifile.create (shName) ;;;;

//зміна словаряTFrmMain.ChWords (Sender: TObject) ;. Filter:= Файли словників (* .wds) | * .wds raquo ;;. Title:= Виберіть словник raquo ;;. fileName:= raquo ;; not OpenDialog.Execute then exit;:=OpenDialog.FileName; .LoadFromFile (wdName) ;;;

//виходTFrmMain.N5Click (Sender: TObject) ;;;.

Додаток Д


Результат роботи програми


Малюнок Б.6 - Головне вікно програми.


Малюнок Б.7 - Запит продовження пошуку.


Назад | сторінка 9 з 9





Схожі реферати:

  • Реферат на тему: The Main Song, Or What Is There in Your Words?
  • Реферат на тему: Розробка навчальної програми "Електронний словник"
  • Реферат на тему: Система TAX FREE в Росії
  • Реферат на тему: Розробка варіантів схем електропостачання
  • Реферат на тему: Phraseological unit as a newspaper title