ритично-допустимим розміром на жорсткому диску, необхідним для стабільної роботи операційної системи. База даних в міру заповнення буде займати з кожним разом все більше вільного місця на жорсткому диску, але спочатку рекомендується зарезервувати під неї близько 50 Мб.
4. Опис програмного продукту
. 1 Опис блок-схеми алгоритму роботи програми
Блок-схема - поширений тип схем (графічних моделей), що описують алгоритми або процеси, в яких окремі кроки зображуються у вигляді блоків різної форми, з'єднаних між собою лініями, що вказують напрямок послідовності.
Правила виконання схем визначаються наступними документами:
- ГОСТ 19.701-90. Схеми алгоритмів, програм, даних і систем. Умовні позначення і правила виконання. [1]
- Для програмної документації (застаріли, замінюються ГОСТ 19.701-90):
- ГОСТ 19.002-80. Схеми алгоритмів і програм. Правила виконання. [2]
- ГОСТ 19.003-80. Схеми алгоритмів і програм. Позначення умовні графічні. [3] [4]
Дані документи зокрема регулюють способи побудови схем і зовнішній вигляд їх елементів.
Порядок виконання дій задається шляхом з'єднання вершин дугами, що дозволяє розглядати блок-схеми не тільки як наочну інтерпретацію алгоритму, зручну для сприйняття людиною, але і як зважений орієнтований граф (т. зв. граф-схема алгоритму , ДСА). Подібне уявлення алгоритмів використовується при побудові систем логічного керування, що реалізують задані керуючі алгоритми, в задачах розпаралелювання обчислень і т. Д.
Для автоматичного створення блок-схем з вихідних тіКстово програм та їх створення вручну існують вільні програми - Dia, Kivio, OpenOffice Draw; комерційні програми Microsoft Visio.
4.2 Організація вхідних і вихідних даних
Вхідними даними є дані необхідні для коректної роботи програми, вихідними даними є результат роботи програми.
Для даного програмного продукту вхідними даними будуть зображення, яке потрібно відредагувати.
Вихідними даними буде збережені зображення.
. 3 Опис лістингу програми
програма зображення апаратний лістинг
unitmain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms ,, ExtCtrls, Buttons, StdCtrls, Menus, ExtDlgs, ComCtrls, jpeg;=class (TForm)
Panel1: TPanel ;: TScrollBox ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TColorBox ;: TColorBox ;: TLabel ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TSpeedButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TSpeedButton ;: TSavePictureDialog ;: TImage ;: TSpeedButton ;: TTrackBar ;: TButton ;: TLabel ;: TShape ;: TLabel ;: TSpeedButton;
OpenPictureDialog1: TOpenPictureDialog ;: TProgressBar; image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); FormCreate (Sender: TObject); image1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); image1Paint (Sender: TObject); image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); N5Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); Image1Progress (Sender: TObject; Stage: TProgressStage ;: Byte; RedrawNow: Boolean; const R: TRect; Msg: String); SpeedButton7Click (Sender: TObject); TrackBar1Change (Sender: TObject); Button1Click (Sender:TObject); SpeedButton10Click (Sender: TObject); SpeedButton6Click (Sender: TObject); SpeedButton5Click (Sender: TObject); SpeedButton4Click (Sender: TObject); SpeedButton1Click (Sender: TObject); SpeedButton3Click (Sender: TObject); SpeedButton2Click (Sender: TObject);
{Private declarations}
{Public declarations};=(sPen, sRect, sEllipse, sPoly, sFill, sRectL) ;: TForm1;: TShape ;, buffer: TBitmap;, ym, x0, y0: integer;: boolean ;
{$ R * .dfm}
//Ця функція додає ефект сепії в растрове зображення.
// глибина встановлює інтенсивність кольору червоно-коричневого кольору
//більше число встановити більш високу інтенсивність.
//Щоб створити у відтінках сірого ефект замість цього, встановити глибину ??raquo; 0
function bmptosepia (const bmp: TBitmap; depth: Integer): Boolean;, color2: longint;, g, b, rr, gg: byte;, w: integer; .ProgressBar1.Max:= bmp.Height; h:=0 to bmp.height dow:=0 to bmp.width do