Дипломная работа

  • 16801. Разработка программного обеспечения конфигурирования аппаратно-программного комплекса распределённой обработки видеообразов
    Компьютеры, программирование

    Node[i].posX-10)%20and%20(Y>Node[i].posY-10)%20and%20(X<Node[i].posX+10)%20and%20(Y<Node[i].posY+10)%20then_akhir:=%20True;:=%20i;;;%20(node1<>0)%20and%20(node2<>0)%20and%20bool_awal%20and%20bool_akhir%20then(Point(Node[node1].posx,Node[node1].posy),%20Point(Node[node2].posx,Node[node2].posy),%20pmCopy);[node1,node2]:=round(sqrt(sqr(abs(Node[node2].posy-Node[node1].posy)/9)%20+%20sqr(abs(Node[node2].posx-Node[node1].posx)/9)));[node2,node1]:=%20Data[node1,node2];:=%20Node[node1].posx;:=%20Node[node1].posy;%20:=%20Node[node2].posx;:=%20Node[node2].posy;;;%20//if:=%20False;drawingtool=1%20then:=%20count%20+%201;Node[count]%20do:=%20x;:=%20y;;Image.Canvas%20do.Canvas.Pen.Mode:=%20pmcopy;(X-15,Y-15,X+15,Y+15);count%20div%2010%20>%200%20then(x-12,y-6,'R'+IntToStr(count))(x-5,y-6,'R'+IntToStr(count));;;;;TForm1.ImageMouseMove(Sender:%20TObject;%20Shift:%20TShiftState;%20X,%20Y:%20Integer);Drawing%20then(Origin,%20MovePt,%20pmNotXor);:=%20Point(X,%20Y);(Origin,%20MovePt,%20pmNotXor);;;TForm1.ImageMouseDown(Sender:%20TObject;%20Button:%20TMouseButton;:%20TShiftState;%20X,%20Y:%20Integer);i:%20byte;:=%20True;.Canvas.MoveTo(X,%20Y);:=%20Point(X,%20Y);:=%20Origin;drawingtool=2%20then_awal:=%20False;i:=%201%20to%20count%20do(X>Node[i].posX-10)%20and%20(Y>Node[i].posY-10)%20and%20(X<Node[i].posX+10)%20and%20(Y<Node[i].posY+10)%20then_awal:=%20True;:=%20i;;;drawingtool%20in%20[3,4]%20theni:=%201%20to%20count%20do(X>Node[i].posX-10)%20and%20(Y>Node[i].posY-10)%20and%20(X<Node[i].posX+10)%20and%20(Y<Node[i].posY+10)%20thendrawingtool%20of">: {LINE}.Canvas.MoveTo(TopLeft.X, TopLeft.Y);.Canvas.LineTo(BottomRight.X, BottomRight.Y);;;;;TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);Drawing then(Origin, MovePt, pmNotXor);:= Point(X, Y);(Origin, MovePt, pmNotXor);;;TForm1.SpeedButton1Click(Sender: TObject);:= 1;.Canvas.Pen.Mode:= pmcopy;;TForm1.ImageMouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);XX,YY,i: byte;Drawing then(Origin, MovePt, pmNotXor); //afficher;drawingtool=2 then_akhir:= False;i:= 1 to count do(X>Node[i].posX-10) and (Y>Node[i].posY-10) and (X<Node[i].posX+10) and (Y<Node[i].posY+10) then_akhir:= True;:= i;;; (node1<>0) and (node2<>0) and bool_awal and bool_akhir then(Point(Node[node1].posx,Node[node1].posy), Point(Node[node2].posx,Node[node2].posy), pmCopy);[node1,node2]:=round(sqrt(sqr(abs(Node[node2].posy-Node[node1].posy)/9) + sqr(abs(Node[node2].posx-Node[node1].posx)/9)));[node2,node1]:= Data[node1,node2];:= Node[node1].posx;:= Node[node1].posy; := Node[node2].posx;:= Node[node2].posy;;; //if:= False;drawingtool=1 then:= count + 1;Node[count] do:= x;:= y;;Image.Canvas do.Canvas.Pen.Mode:= pmcopy;(X-15,Y-15,X+15,Y+15);count div 10 > 0 then(x-12,y-6,'R'+IntToStr(count))(x-5,y-6,'R'+IntToStr(count));;;;;TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);Drawing then(Origin, MovePt, pmNotXor);:= Point(X, Y);(Origin, MovePt, pmNotXor);;;TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);i: byte;:= True;.Canvas.MoveTo(X, Y);:= Point(X, Y);:= Origin;drawingtool=2 then_awal:= False;i:= 1 to count do(X>Node[i].posX-10) and (Y>Node[i].posY-10) and (X<Node[i].posX+10) and (Y<Node[i].posY+10) then_awal:= True;:= i;;;drawingtool in [3,4] theni:= 1 to count do(X>Node[i].posX-10) and (Y>Node[i].posY-10) and (X<Node[i].posX+10) and (Y<Node[i].posY+10) thendrawingtool of

  • 16802. Разработка программного обеспечения на языке низкого уровня - ассемблер
    Компьютеры, программирование

    Программирование на языке ассемблер считается сложною задачею, причины его такие:

    1. Язык ассемблер любого процессора существенно сложнее любого языка высокого уровня. Чтоб воспользоваться всеми возможностями языка ассемблер, нужно, по крайней мере, найти команды микропроцессора, а их число со всеми возможными вариантами перевешает 100, их количество значительно превышает количество операторов и ключевых слов других языков высокого уровня. Проблема усложняется еще тем, что изменения в ассемблере возникают намного быстрее, чем в языках высокого уровня, это связано с появлением новых микропроцессоров и соответственно новых команд.
    2. Программист, который использует язык ассемблер должен сам следить за распределением памяти и вместо регистров, чтоб корректно разделять и управлять памятью. В языках высокого уровня это делается автоматически с помочью компилятора, но это обстоятельство имеет преимущество: можно оптимально расположить данные в памяти, обеспечить максимальную скорость выполнения и минимальную длину программы.
    3. Программы на языке ассемблер тяжелее проектировать и настраивать, нужно все время помнить, что конкретно находиться в каждом из регистров в данной ячейки памяти. Принято считать, что разработка программы только на языке ассемблер, некоторого процессора, даже если он распространенный не рекомендуется. Понятно, что любую программу можно написать только с помощью ассемблера, но для этого нужно использовать намного больше количество команд и время, которое пойдет на ее выполнение и настройку будет намного больше, чем для языка высокого уровня. Намного выгодней написать программу на языке высокого уровня, а наиболее критические части быстрого действия писать на языке ассемблер.
  • 16803. Разработка программного обеспечения по автоматизации учебного процесса в колледже
    Компьютеры, программирование

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

  • 16804. Разработка программного обеспечения системы ОАО "Главсетьсервис ЕНЭС"
    Компьютеры, программирование
  • 16805. Разработка программного приложения для решения информационно-логических задач
    Компьютеры, программирование
  • 16806. Разработка программного приложения для решения информационно-логических задач
    Компьютеры, программирование

    } else if (line == "}")(need_op == 0)-;.Error.WriteLine ("Нельзя зaкрыть блок, требуется оперaтор"); else if (line == ";")_op = 0;.Error.WriteLine ("Строкa не рaспознaнa");(incl <0) Console.Error.WriteLine("Код зa пределaми глaвной функции");( if_c<0) Console.Error.WriteLine("Else без открывaющего If");( need_while<0) Console.Error.WriteLine("While без нaчaльного Do");

  • 16807. Разработка программного приложения для решения информационно-логических задач
    Компьютеры, программирование
  • 16808. Разработка программного приложения для решения информационно–логических задач
    Компьютеры, программирование
  • 16809. Разработка программного приложения для решения информационно–логических задач
    Компьютеры, программирование

    -при выборе пункта меню «проверка синтаксиса программы», пользователю необходимо будет указать место хранения проверяемого файла (d:\programma.txt), после чего программа будет часть программы проверять посимвольно, а часть построчно, после чего на экран пользователя выведется сообщение об ошибке, либо если в случае правильности написания программы будет выдано сообщение о правильности проверяемой программы, затем будет выведено подменю с возможностью повторной проверки программы, либо переход в главное меню.

  • 16810. Разработка программного продукта
    Компьютеры, программирование

    №Факторы ОценкаОчень низкая (5)Низкая (4)Номиналь-ная (3)Высокая (2)Очень высокая (1)Сверх высокая (0)Числовые значения, соответствующие оценкам Факторы продукта1Требуемая надежность ПО легкое беспо-койство 0,75легко вос-станавлива-емые потери 0,88восста-навливаемые потери 1,00финансовые потери 1,15риск для человеческой жизни 1,39 -2Размер базы данных (байты или LOC) -< 10 байт или LOC программы 0,9310? байты или LOC?100 1,00100? байты или LOC ?1000 1,09? 1000 1,19 -3Сложность продукта ( приложение В)0,750,881,001,151,301,664Требуемая повторная ис-пользованность -нет 0,91на уровне проекта 1,00на уровне программы 1,14на уровне семейства продуктов 1,29на уровне нескольких семейств 1,495Документирова-ния требований жизненного цикла описана меньшая часть этапов 0,89описана большая часть этапов 0,95полностью удовлетворяет требованиям 1,00избыточны 1,06очень избыточны 1,13 -Факторы платформы6Ограничения времени выполнения - -используется выделенного на выполнение ?50% времени 1,0070% 1,1185% 1,3195% 1,677Ограничения оперативной памяти - -Используется ?50% доступной памяти 1,0070% 1,0685% 1,2195% 1,578Изменчивость платформы разработки -значительные изменения 1 раз в год 0,87значительные изменения 1 раз в 6 месяцев 1,00Значитель-ные измене-ния 1 раз в 2 месяца 1,15значительные изменения 1 раз в 2 недели 1,30 -Факторы персонала9Возможности аналитика (про-дуктивное уча-стие в работе)15% 1,5035% 1,2255% 1,0075% 0,8390% 0,67 -10Возможности программиста (продуктивное участие в работе) 15% 1,3735% 1,1655% 1,0075% 0,8790% 0,74 -11Опыт работы с приложением2 месяца 1,226 месяцев 1,101 год 1,003 года 0,896 лет 0,81 -12Опыт работы с платформой 2 месяца 1,256 месяцев 1,121 год 1,003 года 0,886 лет 0,81 -13Опыт работы с языком и утилитами2 месяца 1,226 месяцев 1,101 год 1,003 года 0,916 лет -14Непрерывность персонала (т.е. количество тех, кто «сменился») за год 48 % 1,2424 % 1,1012 % 1,006 % 0,923 % 0,84 -Факторы проекта15Использование программных утилитредактирование, кодирование, отладка 1,24простая CASE - утилита 1,12базовые утилиты жизненного цикла 1,00развитые утилиты жизнен-ного цикла 0,86развитые утилиты жизненного цикла, высокая интеграция 0,72 -16Мультисетевая обработкаодин телефон, почта 1,25индивидуаль-ные телефоны, факс 1,12узкополосной e-mail 1,00широкопо-лосные элек-тронные ком-муникации 0,86широкопо-лосные эле-ктронные ком-муникации, видеокон-ференции 0,72все средства мульти-медиа 0,7817Требуемый график разработки (соотно-шение реального времени разработки и выделенного времени) 75% от срока 1,2985% 1,00100% 1,00130% 1,00160% 1,00 -

  • 16811. Разработка программного продукта "Накладные на отпуск товара ОАО "Сафоновский электромашиностроительный завод"
    Компьютеры, программирование

    Для этого нажимаем на кнопку рядом с датой начала периода . Появиться своеобразный календарь. Выбор месяца осуществляется кнопками . Выбор года - кнопками . Выбор дня осуществляется мышью. Таким же образом выбираем дату окончания периода. После того, как будет выбран период времени, появиться список приходных ордеров(если конечно такие имеются для данного промежутка времени). Для случая, когда список ордеров слишком большой, можно воспользоваться фильтрацией и/или сортировкой ордеров по номеру или по цеху. Для того чтобы отсортировать список по определенному столбцу, необходимо навести курсор мыши на заголовок столбца и нажать левую клавишу мыши. Фильтрация осуществляется путем ввода данных в ячейку, ниже заголовка столбца. После ввода необходимо нажать ENTER. Например, мы получили большой список ордеров. Нам необходимо найти ордера от цеха с номером 2700. Для этого вводим 2700 в пустую ячейку ниже заголовка столбца, отвечающего за номера цехов, и жмем ENTER. Появиться список всех ордеров от цеха 2700, которые были получены в указанный период времени (рисунок 4.7).

  • 16812. Разработка программного продукта "цеховое планирование"
    Компьютеры, программирование

    ТерминОпределение терминаОперативно - производст - венное плани - рованиепредставляет собой систему мер, направленных на конкретизацию технико-экономического плана во времени и пространстве; заключается в распределении годового текущего плана социального развития предприятия по исполнителям и отрезкам времениСводное планированиетекущие мощности предприятия сопоставляются со спросом, сформированным на основе заказов - на продажу и производственных [2].Совокупное планированиеоценка прогноза ожидаемого спроса и планирование уровней выпуска продукции, загрузки людей и оборудования, запасов готовой продукции, производственных расходовCRP - Capacity Requirements Planningоценка выполнимости контрольного графика производства на основе детального анализа графика производственного процесса исходя из имеющихся ресурсов (оборудование, люди, складские площади и т. д.)MRP - Material Requirements Planningоценка выполнимости контрольного графика производства на основе имеющихся материалов. Планирование поставок производственных материалов зависимого спроса начинается с создания календарного графика изготовления изделия, который преобразуется в график потребностей в сырье, деталях и сборочных узлах Система планирования MRP IIпредставляет собой процесс "преобразования" бизнес-плана в производственный графикERP«финансово ориентированная информационная система для определения и планирования ресурсов предприятия, необходимых для получения, изготовления, отгрузки и учета заказа потребителей».Оперативно - календарное планированиеявляется продолжением и развитием объемного планирования. На этом этапе объектами планирования являются отдельные изделия, сборочные единицы, детали и деталеоперации Диспетчированиенепрерывный оперативный учет, контроль и регулирование выполнения хода производстваДиспетчерская службаслужба основными принципами, которой есть оперативность и профилактикаSIC - Statistic Inventory Controlформирование графика производства готовой продукции и поставок материалов независимого спроса, основываясь на его статистическом анализе, информации о текущих запасах и планируемых поставках.Компьютерная система «Запуск-выпускобеспечит гарантированное выполнение поставок продукции «точно в срок» при снижении потребления всех видов ресурсовПландокумент, охватывающий весь комплекс производственной, хозяйственной и финансовой деятельности за установленный период, после завершения которого начинает действовать план следующего периода

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

    Имя файлаОбъем файла (КБ)Функции файлаПримечанияProject1.bpr6Файл проектаПросмотр всех форм проектаProject1.cpp2Содержит код программы на С++Project1.exe1439Запускающий файлЗагрузка программыProject1.obj11Объектный код модуляProject1.res1Файл с результатами выполнения программыProject1.tds704Служебная информация на языке delphiUnit1.cpp2Содержит код программы на С++Unit1.ddp1Служебная информация на языке delphiUnit1.dfm631Содержит закодированные сведения о визуальных компонентах модуля 1Окно входа в системуUnit1.h2Заголовочный файл модуля 1Unit2.cpp1Содержит код программы на С++Unit2.ddp1Служебная информация на языке delphiUnit2.dfm3Содержит закодированные сведения о визуальных компонентах модуля 2Окно «Оформление чека»Unit2.h1Заголовочный файл модуля 2Unit3.cpp1Содержит код программы на С++Unit3.ddp1Служебная информация на языке delphiUnit3.dfm1Содержит закодированные сведения о визуальных компонентах модуля 3Окно «выбор операций»Unit3.h1Заголовочный файл модуля 3Unit4.cpp1Содержит код программы на С++Unit4.obj17Объектный код модуляUnit4.dfm3Содержит закодированные сведения о визуальных компонентах модуля 4«Зарплата к выплате организаций»Unit4.h1Заголовочный файл модуля 4Unit5.cpp11Содержит код программы на С++Unit5.obj32Объектный код модуляUnit5.dfm73Содержит закодированные сведения о визуальных компонентах модуля 5Окно «Цели расхода»Unit5.h2Заголовочный файл модуля 5Unit6.cpp14Содержит код программы на С++Unit6.ddp1Служебная информация на языке delphiUnit6.dfm5Содержит закодированные сведения о визуальных компонентах модуля 6Форма для печатиUnit6.h2Заголовочный файл модуля 6Unit8.cpp2Содержит код программы на С++Unit8.ddp1Служебная информация на языке delphiUnit8.dfm93Содержит закодированные сведения о визуальных компонентах модуля 8«Приходный ордер»Unit8.h2Заголовочный файл модуля 8Unit9.cpp2Содержит код программы на С++Unit9.ddp1Служебная информация на языке delphiUnit9.dfm94Содержит закодированные сведения о визуальных компонентах модуля 9«Расходный ордер»Unit9.h2Заголовочный файл модуля 9Unit10.cpp2Содержит код программы на С++Unit10.ddp1Служебная информация на языке delphiUnit10.dfm94Содержит закодированные сведения о визуальных компонентах модуля 10Форма «Количество произведенных операций»Unit10.h2Заголовочный файл модуля 10borlndmm.dll22Библиотечный файлCc3260mt.dll1 462Библиотечный файлЗаключение

  • 16814. Разработка программного средства "Портфолио педагога"
    Компьютеры, программирование

    {$R *.dfm}.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Buttons, ComCtrls, StdCtrls, Grids, DBGrids, ExtDlgs;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TComboBox;: TButton;: TEdit;: TLabel;: TComboBox;: TLabel;: TLabel;: TComboBox;: TListBox;: TComboBox;: TButton;: TSpeedButton;: TSpeedButton;: TLabel;: TEdit;: TUpDown;: TLabel;: TEdit;: TLabel;: TUpDown;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TTabSheet;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TPanel;: TDBGrid;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TTabSheet;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TLabel;: TComboBox;: TPageControl;: TTabSheet;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TLabel;: TOpenPictureDialog;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TLabel;: TLabel;: TCheckBox;: TComboBox;: TListBox;: TCheckBox;: TComboBox;: TListBox;: TComboBox;: TListBox: TLabel;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TTabSheet;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TSpeedButton;: TSpeedButton;: TLabel;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDateTimePicker;: TLabel;: TButton;: TButton;: TStringGrid;FormActivate(Sender: TObject);SpeedButton2Click(Sender: TObject);SpeedButton3Click(Sender: TObject);Button1Click(Sender: TObject);SpeedButton1Click(Sender: TObject);SpeedButton4Click(Sender: TObject);Button2Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);SpeedButton6Click(Sender: TObject);SpeedButton7Click(Sender: TObject);SpeedButton5Click(Sender: TObject);SpeedButton8Click(Sender: TObject);SpeedButton10Click(Sender: TObject);SpeedButton9Click(Sender: TObject);SpeedButton12Click(Sender: TObject);SpeedButton13Click(Sender: TObject);SpeedButton11Click(Sender: TObject);SpeedButton17Click(Sender: TObject);SpeedButton19Click(Sender: TObject);SpeedButton18Click(Sender: TObject);SpeedButton14Click(Sender: TObject);SpeedButton16Click(Sender: TObject);SpeedButton15Click(Sender: TObject);CheckBox1Click(Sender: TObject);SpeedButton20Click(Sender: TObject);SpeedButton21Click(Sender: TObject);CheckBox2Click(Sender: TObject);SpeedButton23Click(Sender: TObject);SpeedButton25Click(Sender: TObject);SpeedButton22Click(Sender: TObject);SpeedButton24Click(Sender: TObject);CheckBox3Click(Sender: TObject);SpeedButton31Click(Sender: TObject);SpeedButton30Click(Sender: TObject);SpeedButton28Click(Sender: TObject);SpeedButton29Click(Sender: TObject);SpeedButton27Click(Sender: TObject);SpeedButton26Click(Sender: TObject);CheckBox6Click(Sender: TObject);CheckBox5Click(Sender: TObject);CheckBox4Click(Sender: TObject);SpeedButton32Click(Sender: TObject);SpeedButton34Click(Sender: TObject);SpeedButton33Click(Sender: TObject);SpeedButton35Click(Sender: TObject);CheckBox7Click(Sender: TObject);CheckBox8Click(Sender: TObject);SpeedButton36Click(Sender: TObject);SpeedButton37Click(Sender: TObject);SpeedButton38Click(Sender: TObject);SpeedButton40Click(Sender: TObject);SpeedButton44Click(Sender: TObject);SpeedButton46Click(Sender: TObject);SpeedButton39Click(Sender: TObject);SpeedButton41Click(Sender: TObject);SpeedButton45Click(Sender: TObject);SpeedButton47Click(Sender: TObject);CheckBox9Click(Sender: TObject);CheckBox10Click(Sender: TObject);CheckBox11Click(Sender: TObject);CheckBox12Click(Sender: TObject);CheckBox13Click(Sender: TObject);FormCloseQuery(Sender: TObject; var CanClose: Boolean);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);

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

    %200%20thencombobox1.ItemIndex=0%20then%20ADOTable1.Sort:='%d0%a4%d0%b0%d0%bc%d0%b8%d0%bb%d0%b8%d1%8f_%d1%83%d1%87%d0%b0%d1%89%d0%b5%d0%b3%d0%be%d1%81%d1%8f';combobox1.ItemIndex=1%20then%20ADOTable1.Sort:='%d0%98%d0%bc%d1%8f_%d1%83%d1%87%d0%b0%d1%89%d0%b5%d0%b3%d0%be%d1%81%d1%8f';combobox1.ItemIndex=2%20then%20ADOTable1.Sort:='%d0%9e%d1%82%d1%87%d0%b5%d1%81%d1%82%d0%b2%d0%be_%d1%83%d1%87%d0%b0%d1%89%d0%b5%d0%b3%d0%be%d1%81%d1%8f';combobox1.ItemIndex=3%20then%20ADOTable1.Sort:='%e2%84%96_%d0%b3%d1%80%d1%83%d0%bf%d0%bf%d1%8b';combobox1.ItemIndex=4%20then.Active:=false;.Active:=true;;;;TSpr_ych.BitBtn1Click(Sender:%20TObject);.Insert;_ych.Show;;TSpr_ych.BitBtn2Click(Sender:%20TObject);_ych.ADOTable1.Edit;_ych.Show;;TSpr_ych.BitBtn3Click(Sender:%20TObject);messagedlg('%d0%a3%d0%b4%d0%b0%d0%bb%d0%b8%d1%82%d1%8c%20%d0%b4%d0%b0%d0%bd%d0%bd%d1%8b%d0%b5?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable1.Delete else exit;;TSpr_ych.FormClose(Sender: TObject; var Action: TCloseAction);_ych.Hide;.Show;;TSpr_ych.BitBtn4Click(Sender: TObject);(length(combobox2.Text)>0) and (length(Edit1.Text)>0) then(ComboBox2.ItemIndex=0) then begin.Filter:='(№_группы='''+Edit1.Text+''')';.Filtered:=true;;(ComboBox2.ItemIndex=1) then begin.Filter:='(Фамилия_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;(ComboBox2.ItemIndex=2) then begin.Filter:='(Имя_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;(ComboBox2.ItemIndex=3) then begin.Filter:='(Отчество_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;.Visible:=true;.Visible:=false;messagedlg('Выберите поле и введите значение для поиска',mtInformation,[mbOK],0);;TSpr_ych.BitBtn5Click(Sender: TObject);.Filtered:=false;.Active:=false;.Active:=true;.Refresh;.Visible:=false;.Visible:=true;;TSpr_ych.BitBtn6Click(Sender: TObject);_ych.Hide;.Show;;.Unit3;TSpr_gr.BitBtn3Click(Sender: TObject);n:integer;messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOKbegin:=ADOQuery1.FieldByName('№_группы').AsInteger;.Filtered:=false;.Filter:='№_группы='''+ IntToStr(n) +'''';.Filtered:=true;.Delete;.Active:=false;.Active:=true;exit;;TSpr_gr.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOQuery1.Sort:='№_группы';combobox1.ItemIndex=1 then ADOQuery1.Sort:='Специальность';combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TSpr_gr.BitBtn1Click(Sender: TObject);.Insert;_gr.Show;;TSpr_gr.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_gr.BitBtn6Click(Sender: TObject);_gr.Hide;.Show;;.Unit4;TSpr_prep_disc.FormClose(Sender: TObject;Action: TCloseAction);.Show;;TSpr_prep_disc.BitBtn1Click(Sender: TObject);.Insert;_prep.Show;;TSpr_prep_disc.BitBtn2Click(Sender: TObject);.Edit;_prep_disc.Hide;_prep.Show;;TSpr_prep_disc.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:='Фамилия_преподавателя';combobox1.ItemIndex=1 then ADOTable1.Sort:='Имя_преподавателя';combobox1.ItemIndex=2 then ADOTable1.Sort:='Отчество_преподавателя';combobox1.ItemIndex=3 then.Active:=false;.Active:=true;;;;TSpr_prep_disc.BitBtn6Click(Sender: TObject);messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable2.Delete else exit;;TSpr_prep_disc.BitBtn4Click(Sender: TObject);.Insert;_disc.Show;;TSpr_prep_disc.BitBtn3Click(Sender: TObject);">procedure TOsnova.N12Click(Sender: TObject);.Hide;_ych.Show;;TOsnova.N14Click(Sender: TObject);.Hide;_gr.Show;;TOsnova.N13Click(Sender: TObject);.Hide;_prep_disc.Show;;TOsnova.N2Click(Sender: TObject);.Hide;.Show;;TOsnova.N18Click(Sender: TObject);_spec.Show;.Hide;;TOsnova.N4Click(Sender: TObject);.Show;.Hide;;TOsnova.N3Click(Sender: TObject);.Show;.Hide;;TOsnova.N16Click(Sender: TObject);.Hide;_napr.Show;;TOsnova.N19Click(Sender: TObject);.Show;.Hide;;TOsnova.N15Click(Sender: TObject);.Hide;_rap.Show;;TOsnova.N22Click(Sender: TObject);.Hide;_Naprav.Show;;TOsnova.N8Click(Sender: TObject);_napr_s.Show;.Hide;;TOsnova.N24Click(Sender: TObject);_sprav.Show;.Hide;_sprav.BitBtn1.Visible:=true;_sprav.BitBtn3.Visible:=false;;TOsnova.N25Click(Sender: TObject);.Hide;_sprav.Show;_sprav.BitBtn1.Visible:=false;_sprav.BitBtn3.Visible:=true;;TOsnova.N5Click(Sender: TObject);_prikaz.BitBtn1.Visible:=true;_prikaz.BitBtn3.Visible:=false;_prikaz.Show;.Hide;;TOsnova.N6Click(Sender: TObject);_prikaz.BitBtn1.Visible:=false;_prikaz.BitBtn3.Visible:=true;_prikaz.Show;.Hide;;.Unit2;TSpr_ych.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:='Фамилия_учащегося';combobox1.ItemIndex=1 then ADOTable1.Sort:='Имя_учащегося';combobox1.ItemIndex=2 then ADOTable1.Sort:='Отчество_учащегося';combobox1.ItemIndex=3 then ADOTable1.Sort:='№_группы';combobox1.ItemIndex=4 then.Active:=false;.Active:=true;;;;TSpr_ych.BitBtn1Click(Sender: TObject);.Insert;_ych.Show;;TSpr_ych.BitBtn2Click(Sender: TObject);_ych.ADOTable1.Edit;_ych.Show;;TSpr_ych.BitBtn3Click(Sender: TObject);messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable1.Delete else exit;;TSpr_ych.FormClose(Sender: TObject; var Action: TCloseAction);_ych.Hide;.Show;;TSpr_ych.BitBtn4Click(Sender: TObject);(length(combobox2.Text)>0) and (length(Edit1.Text)>0) then(ComboBox2.ItemIndex=0) then begin.Filter:='(№_группы='''+Edit1.Text+''')';.Filtered:=true;;(ComboBox2.ItemIndex=1) then begin.Filter:='(Фамилия_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;(ComboBox2.ItemIndex=2) then begin.Filter:='(Имя_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;(ComboBox2.ItemIndex=3) then begin.Filter:='(Отчество_учащегося='''+Edit1.Text+''')';.Filtered:=true; end;.Visible:=true;.Visible:=false;messagedlg('Выберите поле и введите значение для поиска',mtInformation,[mbOK],0);;TSpr_ych.BitBtn5Click(Sender: TObject);.Filtered:=false;.Active:=false;.Active:=true;.Refresh;.Visible:=false;.Visible:=true;;TSpr_ych.BitBtn6Click(Sender: TObject);_ych.Hide;.Show;;.Unit3;TSpr_gr.BitBtn3Click(Sender: TObject);n:integer;messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOKbegin:=ADOQuery1.FieldByName('№_группы').AsInteger;.Filtered:=false;.Filter:='№_группы='''+ IntToStr(n) +'''';.Filtered:=true;.Delete;.Active:=false;.Active:=true;exit;;TSpr_gr.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOQuery1.Sort:='№_группы';combobox1.ItemIndex=1 then ADOQuery1.Sort:='Специальность';combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TSpr_gr.BitBtn1Click(Sender: TObject);.Insert;_gr.Show;;TSpr_gr.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_gr.BitBtn6Click(Sender: TObject);_gr.Hide;.Show;;.Unit4;TSpr_prep_disc.FormClose(Sender: TObject;Action: TCloseAction);.Show;;TSpr_prep_disc.BitBtn1Click(Sender: TObject);.Insert;_prep.Show;;TSpr_prep_disc.BitBtn2Click(Sender: TObject);.Edit;_prep_disc.Hide;_prep.Show;;TSpr_prep_disc.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:='Фамилия_преподавателя';combobox1.ItemIndex=1 then ADOTable1.Sort:='Имя_преподавателя';combobox1.ItemIndex=2 then ADOTable1.Sort:='Отчество_преподавателя';combobox1.ItemIndex=3 then.Active:=false;.Active:=true;;;;TSpr_prep_disc.BitBtn6Click(Sender: TObject);messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable2.Delete else exit;;TSpr_prep_disc.BitBtn4Click(Sender: TObject);.Insert;_disc.Show;;TSpr_prep_disc.BitBtn3Click(Sender: TObject);

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

    Textpattern - самая простая блог-платформа по сравнению со всеми описанными выше. Для форматирования текста в ней используется язык разметки Textile. Платформа Textpattern очень похожа на ExpressionEngine, за исключением тех возможностей, которыми наполнена ExpressionEngine изначально. У этой платформы существует достаточное количество тем и расширений, и хотя сообщество разработчиков Textpattern не такое большое, как в случае Wordpress, оно весьма лояльно и открыто по отношению к пользователям. Платформа Textpattern идеально послужит более опытным создателям блогов, которые предпочитают простоту и знакомы с языком Textile. Возможности Textpattern:

    • встроенный редактор CSS;
    • использование конвертора Textile, позволяющего пользователям размечать текст без изучения HTML;
    • предварительный просмотр публикуемой заметки и её представления в XHTML;
    • базовые шаблоны страниц созданы в соответствии со стандартами W3C;
    • основанная на собственных тегах система создания шаблонов позволяет многократно использовать фрагменты кода или наполнения и включает т. н. «компоновщик тегов» для автоматизации процесса редактирования;
    • разграничение прав пользователей, позволяющее организовать структуру издателей, редакторов, дизайнеров для совместной работы;
    • система комментариев к статьям включающая средства борьбы со спамом;
    • встроенная система статистики, включающая отслеживание перенаправлений;
    • трансляция наполнения сайта через RSS и Atom;
    • расширяемая архитектура, позволяющая использовать плагины для добавления функциональности любой части системы, включая административную;
    • интегрированная система управления ссылками;
    • интегрированная система управления изображениями, позволяющая связывать изображение с определённой частью содержания;
    • интегрированная система управления файлами позволяющая загружать их через собственный интерфейс;
    • разделение наполнения и представления с помощью концепции «секций» для представления и «категорий» для организации наполнения;
    • использование кодировки UTF-8 и поддержка большого количества языков.
  • 16817. Разработка программного средства расчета химического равновесия
    Компьютеры, программирование
  • 16818. Разработка программного средства, обеспечивающего криптографическую защиту файлов
    Компьютеры, программирование

    Функция или процедураВходные данныеВыходные данныеОписаниеCalculateSubKeysFKeyPtr: PChar - исходный ключ шифрования; FKeySize: Integer - размер ключа.pz: PWord;- развернутый подключ шифрования;Процедура выполняет разворачивание основного ключа шифрования на раундовые подключи. DecipherBlockBlock: array[1..4] of Word - входной блок данных.DecipherBlock: Boolean - успешное или незавершенное расшифрование блока данных.Выполняется расшифрование одного блока входных данных по алгоритму IDEA.EncipherBlockBlock: array[1..4] of Word - входной блок данных.EncipherBlock: Boolean - успешное или незавершенное расшифрование блока данных.Выполняется шифрование одного блока входных данных по алгоритму IDEA.EncryptCopyDestStream, SourseStream: TStream - итоговый и исходный потоки для шифрования; Count: Int64 - размер потока данных; Key : string - ключ шифрования.EncryptCopy: Boolean - успешное или аварийное завершение работы.Шифрование одного потока данных в другой согласно алгоритму IDEA.DecryptCopyDestStream, SourseStream: TStream - итоговый и исходный потоки для расшифрования; Count: Int64 - размер потока данных; Key : string - ключ расшифрования.DecryptCopy: Boolean - успешное или аварийное завершение работы.Расшифрование одного потока данных в другой согласно алгоритму IDEA.EncryptStreamIDEADataStream: TStream - поток данных для шифрования; Count: Int64 - размер потока; Key: string - ключ шифрования; KCONST: Array of word - вектор инициализации.EncryptStream: Boolean - успешное или аварийное завершение работы.Выполняет шифрование одного потока данных согласно алгоритму IDEA.DecryptStreamIDEADataStream: TStream - поток данных для расшифрования; Count: Int64 - размер потока; Key: string - ключ расшифрования; KCONST: Array of word - вектор инициализации.DecryptStream: Boolean - успешное или аварийное завершение работы.Выполняет расшифрование одного потока данных согласно алгоритму IDEA.InitializeAKey: string - ключ шифрования.KeyPtr : PChar - развернутый ключ.Производит разворачивание ключа шифрования до 32 байт.

  • 16819. Разработка программной игры "баскетбол"
    Компьютеры, программирование

    Имя переменнойТипНазначениеgrdriverintegerСлужебные переменные для включения и настройки графического режимаgrmodeintegererrcodeintegerxintegerПоложение игрокаxprevintegerПредыдущее положение игрокаstepintegerШаг игрокаradiusintegerРадиус мячаhandxintegerКоордината мяча и руки по оси xhandyintegerКоордината мяча и руки по оси yvintegerСкорость мячаdelay1integerЗадержкаchangeintegerБыла ли нажата клавишаangleReal Направление руки (броска)angleprevRealПредыдущее Направление руки anglestepRealИзменение направления рукиkeyCharВведенная клавишаycrealКоордината мяча по оси yiintegerСчетчикdirectionintegerНаправление полета мячаhandintegerВременная переменнаяgoalintegerБыл ли голyrealКоордината мяча по оси yyprealПредыдущая координата мяча по оси yvxrealСкокость мяча по оси xvyrealСкокость мяча по оси ydistancerealРасстояние от мяча до угла кольцаkrealБыл ли удар мяча об кольцоk1realВременные переменныеtmpRealtmp1Realtmp2Real

  • 16820. Разработка программной системы, обеспечивающей отображение и сравнение в трехмерном пространстве исходных данных из двух матричных форм
    Компьютеры, программирование

    //-----------------------------------------------------------------------------TMat.LoadMatrixFromBitmap(filename:string; var Matrix:TMatrix):boolean;,j :Integer;: string;:= false;not FileExists(filename) then exit;Matrix do.Width:=0;.Height:=0;.LoadFromFile(OpenPictureDialog1.FileName);:=bmp.Width;.Max:=w;.Max:=w;:=w div 2;:=w div 2;(vx,w);(nx,w);(cx,w);(cc,w);i:=0 to w-1 do(vx[i],w);(nx[i],w);(cx[i],w);(cc[i],w);;:='';.Items.Clear;i:=0 to w-1 doj:=0 to w-1 do[i,j]:=(GetRValue(bmp.Canvas.Pixels[i,j])+(bmp.Canvas.Pixels[i,j])+(bmp.Canvas.Pixels[i,j]))/50;vx[i,j]>10 then vx[i,j]:=9+(random(99)+1)/100;:=ss+FormatFloat('0.00', vx[i,j])+' ';[i,j,1]:=GetRValue(bmp.Canvas.Pixels[i,j])/255;[i,j,2]:=GetGValue(bmp.Canvas.Pixels[i,j])/255;[i,j,3]:=GetBValue(bmp.Canvas.Pixels[i,j])/255;[i,j,1]:=GetRValue(bmp.Canvas.Pixels[i,j])/255;[i,j,2]:=GetGValue(bmp.Canvas.Pixels[i,j])/255;[i,j,3]:=GetBValue(bmp.Canvas.Pixels[i,j])/255;;.Items.Add(ss);:='';;:=w*2;(Matrix, LastCCX, LastCCY);.Position:=LastCCX;.Position:=LastCCY;;:= true;;TMat.LoadMatrixFromDtFile(filename:string; var Matrix:TMatrix):boolean;,x,y,j,k,posp,posbar:Integer;,sfl,ss,formfl:String;: TFloatRec;: Extended ;:integer;:Extended;:= false;not FileExists(filename) then exit;Matrix do.Items.Clear;.Position:=0;.Visible:=True;.Update;.Items.LoadFromFile(FileName);LBData.Items.Count>5 then.Position:=5;.Update;:=LBData.Items.Count;.Max:=w;.Max:=w;:=w div 2;:=w div 2;(vx,w);(nx,w);(cx,w);(cc,w);i:=0 to w-1 do(vx[i],w);(nx[i],w);(cx[i],w);(cc[i],w);y :=0 to w-1 do[i,y]:=0;[i,y,1]:=0;[i,y,2]:=0;[i,y,3]:=0;[i,y,1]:=0;[i,y,2]:=0;[i,y,3]:=0;[i,y,1]:=0;[i,y,2]:=0;[i,y,3]:=0;;;:=True;:='';y :=0 to w-1 do:=LBData.Items[y];:=0;(((pos(' ',spr)>0) or (Length(spr)>0)) and (Yess=True) and (x<w)) do:=pos(' ',spr);(posp>0) then:=trim (copy(spr,0,posp));(spr,1,posp);:=strtofloatdef(sfl,-100);(ValStr=-100) then:=False;(Length(mess)=0) then mess:='Неверное значение'+#13#10+'строка '+ IntToStr(y+1)+#13#10+'позиция '+IntToStr(x+1)+#13#10+'['+sfl+']';;;((ValStr<-10) or (ValStr>10)) then:=False;(Length(mess)=0) then mess:='Значение >10, либо <-10'+#13#10+'строка '+ IntToStr(y+1)+#13#10+'позиция '+IntToStr(x+1)+#13#10+'['+sfl+']';;else vx[x,y]:=ValStr;else:=Trim(spr);:=strtofloatdef(spr,-100);(ValStr=-100) then:=False;(Length(mess)=0) then mess:='Неверное значение'+#13#10+'строка '+ IntToStr(y+1)+#13#10+'позиция '+IntToStr(x+1)+#13#10+'['+spr+']';;;((ValStr<-10) or (ValStr>10)) then:=False;(Length(mess)=0) then mess:='Значение >10, либо <-10'+#13#10+'строка '+ IntToStr(y+1)+#13#10+'позиция '+IntToStr(x+1)+#13#10+'['+spr+']';;else vx[x,y]:=ValStr;:='';;(x);;:= FormatFloat('0',70*(((y+1)*(x))/(w*w)));:=StrToInt(formfl);.Position:=5+coint;.Update;