Компьютеры, программирование

  • 7761. Разработка программы создания и уничтожения объектов в среде C++Builder
    Дипломная работа пополнение в коллекции 15.08.2012
  • 7762. Разработка программы сортировки данных на языке Turbo Pascal
    Курсовой проект пополнение в коллекции 22.05.2012

    № п/пПонятиеОпределениеАлгоритм сортировкиэто алгоритм для упорядочения элементов в списке. В случае, когда элемент списка имеет несколько полей, поле, служащее критерием порядка, называется ключом сортировки. На практике в качестве ключа часто выступает число, а в остальных полях хранятся какие-либо данные, никак не влияющие на работу алгоритма. Внешняя сортировкаоперирует с запоминающими устройствами большого объёма, но с доступом не произвольным, а последовательным (упорядочение файлов), т.е. в данный момент мы 'видим' только один элемент, а затраты на перемотку по сравнению с памятью неоправданно велики. Внутренняя сортировкаоперирует с массивами, целиком помещающимися в оперативной памяти с произвольным доступом к любой ячейке. Данные обычно упорядочиваются на том же месте, без дополнительных затрат. Времяосновной параметр, характеризующий быстродействие алгоритма. Называется также вычислительной сложностью. Для упорядочения важны худшее, среднее и лучшее поведение алгоритма в терминах мощности входного множества A. Гетерогенный массивмассив, в разные элементы которого могут быть непосредственно записаны значения, относящиеся к различным типам данных. Гипертекстпринцип организации информационных массивов, при котором отдельные информационные элементы связаны между собой ассоциативными отношениями, обеспечивающими быстрый поиск необходимой информации и/или просмотр взаимосвязанных данных. Динамический массивмассив, размер которого может меняться во время исполнения программы. Естественность поведенияэффективность метода при обработке уже упорядоченных, или частично упорядоченных данных. Алгоритм ведёт себя естественно, если учитывает эту характеристику входной последовательности и работает лучше. Индекс массивацелое число, либо значение типа, приводимого к целому, указывающее на конкретный элемент массива. Информационный массивсовокупность зафиксированной информации, предназначенная для хранения и использования и рассматриваемая как единое целое. Сортировка простыми обменами, сортировка пузырькомпростой алгоритм сортировки. Для понимания и реализации этот алгоритм - простейший, но эффективен он лишь для небольших массивов. Алгоритм состоит в повторяющихся проходах по сортируемому массиву. За каждый проход элементы последовательно сравниваются попарно и, если порядок в паре неверный, выполняется обмен элементов. Проходы по массиву повторяются до тех пор, пока на очередном проходе не окажется, что обмены больше не нужны, что означает - массив отсортирован. Сортировка простыми обменами, сортировка пузырькомпростой алгоритм сортировки. Для понимания и реализации этот алгоритм - простейший, но эффективен он лишь для небольших массивов. Алгоритм состоит в повторяющихся проходах по сортируемому массиву. За каждый проход элементы последовательно сравниваются попарно и, если порядок в паре неверный, выполняется обмен элементов. Проходы по массиву повторяются до тех пор, пока на очередном проходе не окажется, что обмены больше не нужны, что означает - массив отсортирован. Сортировка слияниемалгоритм сортировки, который упорядочивает списки (или другие структуры данных, доступ к элементам которых можно получать только последовательно, например - потоки) в определённом порядке. Сортировка Шеллаалгоритм сортировки, являющийся усовершенствованным вариантом сортировки вставками. Идея метода Шелла состоит в сравнении элементов, стоящих не только рядом, но и на определённом расстоянии друг от друга. Иными словами - это сортировка вставками с предварительными "грубыми" проходами. Топологическая сортировкаупорядочивание вершин бесконтурного ориентированного графа согласно частичному порядку, заданному ребрами орграфа на множестве его вершин.

  • 7763. Разработка программы тестирования
    Курсовой проект пополнение в коллекции 29.04.2012

    =1%20theni:=1%20to%20tek_vopros%20do(ispol_voprosy[i]=nomer)%20or%20(nomer>schitano_voprosov)%20then%20goto%201;nomer:=trunc(schitano_voprosov)+1;_voprosy[tek_vopros]:=nomer;.vivod_poley_voprosa;:=1;i:=1%20to%20strok_v_voprose%20do//%20n%20301j:=1%20to%20Trunc(length(vse_voprosy[nomer].vopros[i])/bukv_stroke_voprosa)+1%20donot((i=1)%20and%20(j=1))%20then.Caption:=vopros.Caption+#13+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa+1,bukv_stroke_voprosa).Caption:=vopros.Caption+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa-1,bukv_stroke_voprosa);%20//%20k%20301.Text:='';;TForm1.CancelClick(Sender:%20TObject);;;TForm1.nachaloClick(Sender:%20TObject);.ShowModal;not(form2.vvedenie_imeni)%20then%20exit.name:=form2.name.Text;.familiya:=form2.Familiya.Text;.group:=form2.gruppa.Text;form1.proverka%20then%20close;;.Cursor:=crappstart;.chtenie_voprosov;.Cursor:=crdefault;_vopros:=1;.vivod_voprosa;.SetFocus;.Enabled:=true;;TForm1.OtvetgotovClick(Sender:%20TObject);i:integer;i:=1%20to%20max_otvetov-1%20do//n%20200otvet.Text=vse_voprosy[nomer].otvety[i]%20then//n%20201('%d0%9e%d1%82%d0%b2%d0%b5%d1%82%20%d0%bf%d1%80%d0%b0%d0%b2%d0%b8%d0%bb%d1%8c%d0%bd%d1%8b%d0%b9',mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=true;_vopros:=tek_vopros+1;.SetFocus;tek_vopros=voprosov_v_teste+1%20then//n%20202('%d0%92%d1%8b%20%d0%b7%d0%b0%d0%ba%d0%be%d0%bd%d1%87%d0%b8%d0%bb%d0%b8%20%d1%82%d0%b5%d1%81%d1%82%20%d0%bf%d0%be%20%d0%bf%d1%80%d0%b5%d0%b4%d0%bc%d0%b5%d1%82%d1%83%20%d0%9e%d0%a1%20%d0%b2%d0%b0%d1%88%d0%b0%20%d0%be%d1%86%d0%b5%d0%bd%d0%ba%d0%b0%20'+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;;%20//k%20202.vivod_voprosa;;;%20//%20k%20201;%20//%20k%20200not(otvety_na_voprosy[tek_vopros])%20then//n%20203('%d0%9e%d1%82%d0%b2%d0%b5%d1%82%20%d0%bd%d0%b5%d0%bf%d1%80%d0%b0%d0%b2%d0%b8%d0%bb%d1%8c%d0%bd%d1%8b%d0%b9',mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=false;_vopros:=tek_vopros+1;tek_vopros=voprosov_v_teste+1%20then//n%20204('%d0%92%d1%8b%20%d0%b7%d0%b0%d0%ba%d0%be%d0%bd%d1%87%d0%b8%d0%bb%d0%b8%20%d1%82%d0%b5%d1%81%d1%82%20%d0%bf%d0%be%20%d0%bf%d1%80%d0%b5%d0%b4%d0%bc%d0%b5%d1%82%d1%83%20%d0%9e%d0%a1%20%d0%b2%d0%b0%d1%88%d0%b0%20%d0%be%d1%86%d0%b5%d0%bd%d0%ba%d0%b0%20'+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;;%20//%20k%20204.vivod_voprosa;;%20//%20k%20203.SetFocus;;TForm1.FormCreate(Sender:%20TObject);i,j:integer;j:=1%20to%20max_voprosov%20doi:=1%20to%20strok_v_voprose%20do_voprosy[j].vopros[i]:='';;i:=1%20to%20voprosov_v_teste%20do_na_voprosy[i]:=false;_voprosy[i]:=0;;fileexists(put_k_parolu)%20then">:nomer:=trunc(random(schitano_voprosov))+1;tek_vopros>=1 theni:=1 to tek_vopros do(ispol_voprosy[i]=nomer) or (nomer>schitano_voprosov) then goto 1;nomer:=trunc(schitano_voprosov)+1;_voprosy[tek_vopros]:=nomer;.vivod_poley_voprosa;:=1;i:=1 to strok_v_voprose do// n 301j:=1 to Trunc(length(vse_voprosy[nomer].vopros[i])/bukv_stroke_voprosa)+1 donot((i=1) and (j=1)) then.Caption:=vopros.Caption+#13+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa+1,bukv_stroke_voprosa).Caption:=vopros.Caption+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa-1,bukv_stroke_voprosa); // k 301.Text:='';;TForm1.CancelClick(Sender: TObject);;;TForm1.nachaloClick(Sender: TObject);.ShowModal;not(form2.vvedenie_imeni) then exit.name:=form2.name.Text;.familiya:=form2.Familiya.Text;.group:=form2.gruppa.Text;form1.proverka then close;;.Cursor:=crappstart;.chtenie_voprosov;.Cursor:=crdefault;_vopros:=1;.vivod_voprosa;.SetFocus;.Enabled:=true;;TForm1.OtvetgotovClick(Sender: TObject);i:integer;i:=1 to max_otvetov-1 do//n 200otvet.Text=vse_voprosy[nomer].otvety[i] then//n 201('Ответ правильный',mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=true;_vopros:=tek_vopros+1;.SetFocus;tek_vopros=voprosov_v_teste+1 then//n 202('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;; //k 202.vivod_voprosa;;; // k 201; // k 200not(otvety_na_voprosy[tek_vopros]) then//n 203('Ответ неправильный',mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=false;_vopros:=tek_vopros+1;tek_vopros=voprosov_v_teste+1 then//n 204('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;; // k 204.vivod_voprosa;; // k 203.SetFocus;;TForm1.FormCreate(Sender: TObject);i,j:integer;j:=1 to max_voprosov doi:=1 to strok_v_voprose do_voprosy[j].vopros[i]:='';;i:=1 to voprosov_v_teste do_na_voprosy[i]:=false;_voprosy[i]:=0;;fileexists(put_k_parolu) then

  • 7764. Разработка программы- тренажера "Управление электросетями"
    Дипломная работа пополнение в коллекции 09.12.2008

    2. Тренажер оперативных переключений КОРВИН 3 трехуровневый тренажер оперативных переключений с расчетом потокораспределения и расширенной моделью РЗА. Верхний уровень модели в тренажере "КОРВИН-3" включает схему энергообъектов и соединяющих их ВЛ. Число энергообъектов в модели одной электросети - до 150. Средний уровень модели реализует схему соединений первичных цепей и логические ограничения на коммутации в них. На этом уровне каждый энергообъект имеет свою схему, которая посредством линий электропередачи на верхнем уровне модели соединяется со схемами других энергообъектов. Схема одного энергообъекта может входить одновременно в несколько схем электросетей, охватывающих большую или меньшую территорию. Промежуточное положение между верхним и средним уровнями занимает схема замещения для расчета установившегося режима. Нижний уровень воспроизводит состояния устройств РЗА и правила их переключения с учетом положения коммутационных аппаратов. С каждым устройством первичных цепей связывается набор устройств РЗА.

  • 7765. Разработка программы- тренажера Управление электросетями
    Информация пополнение в коллекции 12.01.2009

    2. Тренажер оперативных переключений КОРВИН 3 трехуровневый тренажер оперативных переключений с расчетом потокораспределения и расширенной моделью РЗА. Верхний уровень модели в тренажере "КОРВИН-3" включает схему энергообъектов и соединяющих их ВЛ. Число энергообъектов в модели одной электросети - до 150. Средний уровень модели реализует схему соединений первичных цепей и логические ограничения на коммутации в них. На этом уровне каждый энергообъект имеет свою схему, которая посредством линий электропередачи на верхнем уровне модели соединяется со схемами других энергообъектов. Схема одного энергообъекта может входить одновременно в несколько схем электросетей, охватывающих большую или меньшую территорию. Промежуточное положение между верхним и средним уровнями занимает схема замещения для расчета установившегося режима. Нижний уровень воспроизводит состояния устройств РЗА и правила их переключения с учетом положения коммутационных аппаратов. С каждым устройством первичных цепей связывается набор устройств РЗА.

  • 7766. Разработка программы Угадайка
    Курсовой проект пополнение в коллекции 17.07.2012

    НаименованиеОбозначениеПримечаниеUd.cfgФайл конфигурации проектаСодержит конфигурационные установки для проектаUg.dofФайл параметров проектаСодержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивыUg.dprФайл проектаСвязывает все файлы, из которых состоит приложениеUg.resФайл ресурсовСодержит пиктограммы, графические изображенияUnit1.dcuОбъектный файл для Unit1.pasОткомпилированная версия Unit1.pasUnit1.dfmФайл формы №1Содержит список свойств всех компонентов, включенных в форму №1Unit1.pasФайл программного модуля для формы #1Определяет функциональность формы №1Unit2.dcuОбъектный файл для Unit2.pasОткомпилированная версия Unit2.pasUnit2.dfmФайл формы №2Содержит список свойств всех компонентов, включенных в форму №2Unit2.paФайл программного модуля для формы #2Определяет функциональность формы №2Unit3.dcuОбъектный файл для Unit3.pasОткомпилированная версия Unit3.pasUnit3.dfmФайл формы №3Содержит список свойств всех компонентов, включенных в форму №3Unit3.pasФайл программного модуля для формы #3Определяет функциональность формы №3Unit4.dcuОбъектный файл для Unit4.pasОткомпилированная версия Unit4.pasUnit4.dfmФайл формы №4Содержит список свойств всех компонентов, включенных в форму №4Unit4.pasФайл программного модуля для формы #4Определяет функциональность формы №4

  • 7767. Разработка программы управления промышленным роботом на базе контроллера SIMATIC S5 фирмы SIEMENS
    Информация пополнение в коллекции 12.01.2009

    Манипулятор это управляемое устройство или робот для выполнения двигательных функций, аналогичным функциям человеческой руки при перемещении объектов в пространстве, оснащенное рабочим органом. Манипулятор состоит из звеньев, соединенных между собой подвижными кинематическими парами. Последние движутся по определенной программе с помощью управляемых приводов. В курсовой работе управление приводами будет осуществляться по сигналам, поступающим с конечных датчиков, которые фиксируют момент перемещения или поворот в начальное положение и предельное положение. Для организации каждого из движений в двух направлениях используется по два исполнительных механизма. В реальной ситуации эту операцию может осуществлять один реверсивный привод, снабженный для организации перемещений двумя контактными и бесконтактными пускателями. В курсовой работе рабочий орган представляет собой схват, который обеспечивает захват и отпускание объекта за счет двух исполнительных механизмов (ИМ).

  • 7768. Разработка программы форматирования текстовых файлов
    Курсовой проект пополнение в коллекции 24.07.2012

    При разработке программного продукта было принято решение использовать среду разработки Microsoft Visual Studio С++ 6.0. Использование языка С++ было вызвано тем, что при разработке было использовано множество функций WinAPI, а поскольку большая часть операционной системы Windows написана именно с использованием этого языка, то его использование является наиболее целесообразным, поскольку это упрощает объявление типов параметров и структур, используемых при вызове функций операционной системы. Следовательно, вопрос с выбором языка программирования в рамках поставленной задачи отпадает, поскольку при использовании других языков программирования, например ObjectPascal, потребуется использовать типы переменных введённые данный язык с целью поддержки работы с WinAPI и как следствие при этом придётся мириться со снижением быстродействия программы, вызванного преобразованием типов переменных. Использование же именно среды разработки фирмы Microsoft объясняется тем, что данная среда поставляется разработчиком операционной системы и, следовательно, она сразу может быть причислена к лучшим решениям подобного рода. Кроме того данная среда программирования имеет справку основанную на одной из лучших справочных систем по WinAPI программированию - MSDN.

  • 7769. Разработка программы формирования матрицы смежности
    Курсовой проект пополнение в коллекции 06.09.2012

    }main() {(LC_ALL, "Russian");("cls");DirectedGraph *firstArc, *sideNode;ostream *out;fstream fileForOutput;string fileForOutputName;short CURRENT_STAGE = 0;int vertexWithMaxLevel, maxLevel, NUM_VERTEX = 0;bool **adjacencyMatrix, fileOutput;char action;static short START_EXECUTION = 0, INPUT_DATA = 1, THE_MAIN_PART = 2, SOME_ACTIONS_PERFORMED = 3;static char ASK_MODE = 'b', MAIN_MODE = 'm', SOME_ACTIONS_MODE = 's',= 'y', NO = 'n',_THE_SCREEN = 's', INTO_A_FILE = 'f',_INPUT = 'i', FOR_OUTPUT = 'o', FOR_APPEND = 'a',_NEIBORHOODS = 'p', MAKE_ADJACENCY_MATRIX = 'm', DELETE_VERTEX = 'd', RESTART_PROGRAM = 'r', SAVE_NEW_GRAPH = 's', EXIT = 'e';*assembleGraph(int &NUM_VERTEX, ostream *stream);openFile(string fileName, char mode);findVertexAndPrintNewList(DirectedGraph *firstNode, int NUM_VERTEX, int &maxLevel, ostream *stream);**completeAdjacencyMatrix(DirectedGraph *firstNode, int NUM_VERTEX);saveGraph(string fileName, DirectedGraph *firstNode, int NUM_VERTEX);removeAdjacentVertex(DirectedGraph *&firstArc, int NUM_VERTEX, int vertexId, int vertexLevel);removeNode(DirectedGraph *node, DirectedGraph *&firstNode);printNeiborhoodsList(DirectedGraph *firstNode, ostream *stream, int NUM_VERTEX, bool saveMode, string title = "");printMatrix(bool **matrix, int dimension, ostream *stream, string title = "");clearMatrix(bool **matrix, int dimention);(CURRENT_STAGE) {START_EXECUTION:

  • 7770. Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)
    Контрольная работа пополнение в коллекции 01.08.2010

    ИдентификаторТипПрименениеmassiwi1massiwi1:massiwi;Для хранения промежуточных результатовmassiwi2massiwi2:massiwi;Для хранения промежуточных результатовiz_skolkiintegerИз скольки элементовpo_skolkointegerПо сколько элементовi, j,integerДля организации цикловNomerintegerХранит номер выбранной операцииyintegerВспомогательная переменная

  • 7771. Разработка программы численного интегрирования обыкновенного дифференциального уравнения явным модифицированным методом Эйлера
    Дипломная работа пополнение в коллекции 03.08.2011
  • 7772. Разработка программы шифрования текста
    Дипломная работа пополнение в коллекции 26.12.2011

    ('5', '6', '7', '8', '9', '_', '+', '-'));Atbash(toCode: string): string;i: integer;i := 1 to length(toCode) do((toCode[i]>='a') and (toCode[i]<='z'))toCode[i]:=Chr(219-Ord(toCode[i]));((toCode[i]>='A') and (toCode[i]<='Z'))toCode[i]:=Chr(155-Ord(toCode[i]));:= toCode;;CaesarEncipher(toCode: string): string;i, T: integer;i := 1 to length(toCode) do begin[ i ] := Chr((Ord(toCode[ i ]) + 3));;:= toCode;;CaesarDecipher(toDecode: string): string;i, T: integer;i := 1 to length(toDecode) do begin[ i ] := Chr((Ord(toDecode[ i ]) - 3));;:= toDecode;;PolibiusEncipher(toCode: string): string;: integer;, jx: char;: string;:= '';i := 1 to length(toCode) do beginix := 'A' to 'H' dojx := 'A' to 'H' doTPolibius[ix, jx] = toCode[ i ] then begin:= s + ix + jx; break;;;:= s;PolibiusDecipher(toDecode: string): string;: integer;: string;:= '';:= 1;i <= length(toDecode) do begin:= s + TPolibius[toDecode[ i ], toDecode[succ(i)]];(i, 2);;:= s;GronsfeldEncipher(toCode, K: string): string;i, T: integer;i := 1 to length(toCode) do begin[ i ] := Chr(Ord(toCode[ i ])+(Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0')));;:= toCode;;GronsfeldDecipher(toDecode, K: string): string;i, T: integer;i := 1 to length(toDecode) do begin[ i ] := Chr(Ord(toDecode[i])-(Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0')));;:= toDecode;;ViginerEncipher(toCode, K: string): string;: integer;: byte;: string;:= '';i := 1 to length(toCode) do begin:= pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));:= s+TViginer[ ((pred(pos(toCode[ i ], TViginer)) + currK) mod length(TViginer)) + 1 ];;:= s;;ViginerDecipher(toDecode, K: string): string;, T: integer;: byte;: string;:= '';i := 1 to length(toDecode) do begin:= pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));:= pred(pos(toDecode[ i ], TViginer)) - currK;T < 0 then inc(T, length(TViginer));:= s + TViginer[T + 1];;:= s;;: string;: string;: real;: real;

  • 7773. Разработка программы, выполняющей интерполирование методом Ньютона
    Контрольная работа пополнение в коллекции 06.07.2012

    При увеличении числа узлов для метода Чебышева при количестве узлов, стремящемся к бесконечности, погрешность стремится к нулю, при этом, при достаточно большом количестве узлов погрешность больше, чем при маленьком числе узлов. А для равномерных узлов погрешность стремится к бесконечности. Что теоретически подтверждается для равномерных узлов и не очень для Чебышева.

  • 7774. Разработка программы, генерирующей пароли пользователей
    Курсовой проект пополнение в коллекции 16.11.2009

    Интерфейс пользователя можно разделить на пакетный и интерактивные. Пакетные характеризуются тем, что пользователь должен сформировать пакет с заданиями, затем программа эти задания выполняет и выдаёт результат. Интерактивные характеризуются тем, что пользователь в ходе работы программы постоянно с ней взаимодействует. Существует интерфейс на базе меню, псевдографический интерфейс, интерактивно- командный интерфейс, эти интерфейсы описывать не будем, так как программа, которую необходимо создать по заданию требует графический интерфейс. Графический интерфейс следует выбирать только для многомодульных программ, которые, предположительно будут иметь массовое применение. В соответствии с заданием и для большего удобства и понятия принципа работы программы интерфейс должен содержать наименьшее количество кнопок. Вследствие чего выберем: 1 поле, в котором будем генерировать сам код, одну кнопку после нажатия, которой будет происходить генерация, и кнопку выход.

  • 7775. Разработка программы, динамически подсвечивающей ключевые слова из загружаемого пользователем словаря
    Курсовой проект пополнение в коллекции 06.07.2012

    %20-1%20do.SelStart%20:=%20foundAt;.SelLength%20:=%20Length(word[i]);.SelAttributes.Style%20:=%20RichEdit1.SelAttributes.Style%20+%20[FsBold];.SelAttributes.Color%20:=%20clRed;:=%20RichEdit1.FindText%20(word[i],%20foundAt%20+%201,%20Length%20(RichEdit1.Text),%20[StWholeWord]);;;.SelStart%20:=%20curPos;.Lines.EndUpdate;.OnChange%20:=%20RichEdit1Change;;;.">{$R *.dfm}TForm1.btnOpenClick(Sender: TObject);OpenDialog1.Execute then.Caption := OpenDialog1.FileName;.Lines.LoadFromFile(OpenDialog1.FileName);.SelStart := 0;.Panels[0].Text := 'Файл загружен';.Enabled:=true;;;TForm1.btnSaveClick(Sender: TObject);.FileName := Form1.Caption;SaveDialog1.Execute then.Lines.SaveToFile(SaveDialog1.FileName + '.txt');.Caption := SaveDialog1.FileName;.Panels[0].Text := 'Файл сохранен';;;TForm1.btnExitClick(Sender: TObject);.Terminate;;TForm1.FormCreate(Sender: TObject);OpenDialog1 do:= Options + [ofPathMustExist, ofFileMustExist];:= ExtractFilePath(Application.ExeName);:= 'Текстовые файлы (*.txt)|*.txt|Все файлы (*)|*';;OpenDialog2 do:= Options + [ofPathMustExist, ofFileMustExist];:= ExtractFilePath(Application.ExeName);:= 'Файл словаря (*.nbdic)|*.nbdic';;SaveDialog1 do:= ExtractFilePath(Application.ExeName);:= 'Текстовый файл (*.txt)|*.txt';;;TForm1.btnAddDictonaryClick(Sender: TObject);: integer;: TStringList;OpenDialog2.Execute then:=TStringList.Create;.LoadFromFile(OpenDialog2.FileName);.Panels[0].Text := 'Словарь загружен. Добавлено слов: ' + IntToStr(strList.Count);i:=0 to strList.Count-1 do[i]:=strList[i];.free;.Enabled:=false;;;TForm1.RichEdit1Change(Sender: TObject);, foundAt, curPos, i: integer;.OnChange := nil;.Lines.BeginUpdate;:= RichEdit1.SelStart;.SelectAll;.SelAttributes.Style := RichEdit1.SelAttributes.Style - [FsBold];.SelAttributes.Color := clBlack;i := Low(word) to High(word) do:= RichEdit1.FindText(word[i], 0, Length(RichEdit1.Text), [StWholeWord]);foundAt <> -1 do.SelStart := foundAt;.SelLength := Length(word[i]);.SelAttributes.Style := RichEdit1.SelAttributes.Style + [FsBold];.SelAttributes.Color := clRed;:= RichEdit1.FindText (word[i], foundAt + 1, Length (RichEdit1.Text), [StWholeWord]);;;.SelStart := curPos;.Lines.EndUpdate;.OnChange := RichEdit1Change;;;.

  • 7776. Разработка программы, позволяющей просматривать и редактировать записи библиотечного каталога
    Курсовой проект пополнение в коллекции 21.11.2010

    Форма изображена на рисунке А.1 (см Приложение А). Для того, чтобы передвигаться по записям в левом верхнем углу формы приведены четыре кнопки перехода по записям (первая запись, предыдущая запись, следующая запись, последняя запись). При этом в текстовых полях формы приводится информация об авторе произведения, а в таблице информация о книгах этого автора, имеющихся в библиотеке. Сверху, на панели инструментов приведены кнопки добавления записей (добавить автора, добавить книгу, добавить издательство), редактирования записей (редактирование автора, редактирование книги, редактирование издательства, редактирование города, редактирование темы), кнопки по работе с отчетами (просмотр отчета об авторах его вид представлен на рисунке А9 (см Приложение А), печать отчета об авторах, просмотр отчета об издательствах (см рисунок А10 Приложения А), печать отчета об издательствах), а также кнопки «Удаление записи», «Найти запись», «Справочник по издательствам», «Выйти из приложения». Для того чтобы найти нужную запись необходимо передать фокус текстовому полю, по которому будет происходить поиск, и нажать кнопку «Найти запись». В строке «Образец» ввести искомое значение, в строке «Совпадения» выбрать, как будет происходить поиск, и нажать кнопку «Найти далее».

  • 7777. Разработка программы, реализующей алгоритм бинарного дерева
    Курсовой проект пополнение в коллекции 10.07.2012
  • 7778. Разработка программы, реализующей алгоритм шифрования ГОСТ 28147-89
    Реферат пополнение в коллекции 09.12.2008

    То, что информация имеет ценность, люди осознали очень. Ведь еще с древних времен переписка правителей была объектом пристального внимания их недругов и друзей. Именно тогда и возникла задача защиты этой переписки от чрезмерно любопытных глаз. Древние пытались использовать для решения этой задачи самые разнообразные методы, и одним из них была тайнопись умение составлять сообщения таким образом, чтобы его смысл был недоступен никому кроме посвященных в тайну. На протяжении всей своей многовековой истории, вплоть до совсем недавнего времени, это искусство служило немногим, в основном верхушке общества, не выходя за пределы резиденций глав государств, посольств и т.д. И лишь несколько десятилетий назад все изменилось коренным образом информация приобрела самостоятельную коммерческую ценность и стала широко распространенным, почти обычным товаром. Ее производят, хранят, транспортируют, продают и покупают, а значит, воруют и подделывают и, следовательно, ее необходимо защищать. Современное общество все в большей степени становится информационнообусловленным, успех любого вида деятельности все сильней зависит от обладания определенными сведениями и от отсутствия их у конкурентов. И чем сильней проявляется этот эффект, тем больше потребность в защите информации. Одним словом, возникновение индустрии обработки информации привело к возникновению индустрии средств защиты информации.

  • 7779. Разработка программы-игры "Крестики-нолики"
    Дипломная работа пополнение в коллекции 13.02.2012

    Create;TBase.TimerProc;KtoHodit;KeyDown(Key: integer);Pobeditel;;TBase.Create;;TBase.TimerProc();(400, 10, 'Осталось ' + inttostr(ii) + ' сек.!');(ii);ii < 0 then begin.Stop; inc(k); ii := 60;(color.Black);(12);(400, 40, 'Ход переходит к сопернику'); ; end;;TBase.KeyDown(Key: integer);Key of_Left: c := color.White; kursor(x0, y0, ud, lr, c); {left}lr = 1 then lr := 15 else dec(lr);:= color.HotPink;(x0, y0, ud, lr, c);; _Right: := color.White; kursor(x0, y0, ud, lr, c); lr = 15 then lr := 1 else inc(lr);{right}:= color.HotPink;(x0, y0, ud, lr, c);;_Up: := color.White; kursor(x0, y0, ud, lr, c);{клавиша Вверх}ud = 1 then ud := 15 else dec(ud);:= color.HotPink;(x0, y0, ud, lr, c);;_Down: := color.White; kursor(x0, y0, ud, lr, c);{клавиша Вниз}ud = 15 then ud := 1 else inc(ud);:= color.HotPink;(x0, y0, ud, lr, c);;_Enter:(a[ud, lr] = 0) and (ord(ch) <> 32) then [ud, lr] := n; inc(k); symbol(x0, y0, zn); ii := 60; pobeditel; end;;_Escape: .Close;;_space: ch := chr(32) ;;;

  • 7780. Разработка программы-калькулятора на Delphi - Формирование подмножества натуральных чисел с заданными параметрами
    Реферат пополнение в коллекции 24.06.2010