Новости

Разработка приложений Windows. Прикладные программы обработки данных

Работа добавлена:






Разработка приложений Windows. Прикладные программы обработки данных на http://mirrorref.ru

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное

учреждение высшего профессионального образования

«РЯЗАНСКИЙ ГОСУДАРСТВЕННЫЙ РАДИОТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

Кафедра «Информационная безопасность»

Отчет

О лабораторной работе по методам программирования №6

«Разработка приложенийWindows. Прикладные программы обработки данных»

           Выполнила:

           студентка гр. 242

           Сухих Е.В.

           Проверил:

           доц. каф. ИБ

           Кузьмин Ю.М.

Рязань 2015

Блок-схема алгоритма простой выборки показана на рисунке 1:

Рисунок 1 –Блок-схема алгоритма простой вставки

Блок-схема алгоритма простой выборки показана на рисунке 2:

Рисунок 2 –Блок-схема алгоритма простой выборки

Блок-схема алгоритма простого обмена представлена на рисунке 3:

Рисунок 3 –Блок-схема алгоритма простого обмена

Блок-схема алгоритма слияния показана на рисунке 4:

Рисунок 4 –Блок-схема алгоритма слияния

На рисунке 5 показана блок-схема запуск рекурсивного алгоритма слияния:

Рисунок 5 –Блок-схема запуска рекурсивного алгоритма слияния

На рисунке 6 показана заставка программы:

Рисунок 6 –Заставка программы

На рисунке 7 показано главное окно программы:

Рисунок 7 –Главное окно программы

На рисунке 8 показано открытие файла «Числа.txt» и отображение его на экран:

Рисунок 8 –Отображение чисел на экране

На рисунке 9 показан метод сортировки вставкой:

Рисунок 9–Сортировка вставкой

На рисунке 10 показан метод сортировки выборкой:

Рисунок 10 –Сортировка выборкой

На рисунке 11 показан метод сортировки обмена:

Рисунок 11 –Сортировка обменом

На рисунке 12 показан метод сортировки слиянием:

Рисунок 12 –Сортировка слиянием

На рисунке 13 показано главное окно справочной системы данного приложения:

Рисунок 13 –Главное окно справочной системы

Код программы:

unit Lab_6_Sourse;

interface

uses

 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,

 Vcl.StdCtrls, Vcl.ExtDlgs;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   Memo1: TMemo;

   OpenTextFileDialog1: TOpenTextFileDialog;

   SaveTextFileDialog1: TSaveTextFileDialog;

   RadioButton1: TRadioButton;

   RadioButton2: TRadioButton;

   RadioButton3: TRadioButton;

   RadioButton4: TRadioButton;

   Image1: TImage;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

 M = Array[0..20] of integer;

var

 Form1: TForm1;

 FileH : text;

 n : integer;

 Mass : M;

implementation

{$R *.dfm}

procedure Sort_1(var Mass: M; n : integer);

var

 i, j, x : integer;

begin

 for i := 1 to n - 1 do

   begin

     x := Mass[i];

     j := i - 1;

   while (Mass[j] > x) and (j >= 0) do

     begin

       Mass[j + 1] := Mass[j];

       j := j - 1;

     end;

   Mass[j + 1] := x;

 end;

end;

procedure Sort_2(var Mass: M; n : integer);

var

 i, j, x, k : integer;

begin

 for i := 0 to n - 1 do

   begin

     k := i;

     x := Mass[i];

     for j := i + 1 to n - 1 do

       if (Mass[j] < x ) then

         begin

           k := j;

           x := Mass[j];

         end;

     Mass[k] := Mass[i];

     Mass[i] := x;

   end;

end;

procedure Sort_3(var Mass: M; n : integer);

var

 i, j, x, k : integer;

begin

 for i := 0 to n - 1 do

   for j := i + 1 to n - 1 do

     begin

       if (Mass[j] < Mass[i]) then

         begin

           k := Mass[i];

           Mass[i] := Mass[j];

           Mass[j] := k;

         end;

     end;

end;

procedure Merge(var Mass: M; first, last: integer);

var

 i, k, s, f: integer;

 mas: M;

begin

 k := (first + last) div 2;

 s := first;

 f := k + 1;

 for i := first to last do

   if (s <= k) and ((f > last) or (Mass[s] < Mass[f])) then

     begin

       mas[i] := Mass[s];

       inc(s);

     end

   else

     begin

       mas[i] := Mass[f];

       inc(f);

     end;

 for i := first to last do

   Mass[i] := mas[i];

end;

procedure Sort_4(var Mass: M; first, last: integer);

begin

 if (first < last) then

   begin

     Sort_4(Mass, first, (first + last) div 2);

     Sort_4(Mass, (first + last) div 2 + 1, last);

     Merge(Mass, first, last);

   end;

end;

procedure OpenFile(FileName: string);

var

 i : integer;

begin

 Assign(FileH, Filename);

 reset(FileH);

 n := 0;

 try

   while(not eof(FileH)) do

     begin

       read(FileH,Mass[n]);

       n := n + 1;

     end;

 except

   ShowMessage('Â ôàéëå ñîäåðæàòñÿ íåïîääåðæèâàåìûå äàííûå');

 end;

 close(FileH);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 i : integer;

begin

 if (RadioButton1.Checked) then

   Sort_1(Mass, n);

 if (RadioButton2.Checked) then

   Sort_2(Mass, n);

 if (RadioButton3.Checked) then

   Sort_3(Mass, n);

 if (RadioButton4.Checked) then

   Sort_4(Mass, 0, n - 1);

 Memo1.Lines.Clear;

 for i := 0 to n - 1 do

   begin

     Memo1.Lines.Add(IntToStr(Mass[i]));

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 Close();

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 if (OpenTextFileDialog1.Execute()) then

   Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);

 OpenFile(OpenTextFileDialog1.FileName);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

   if (SaveTextFileDialog1.Execute) then

     begin

       Memo1.Lines.SaveToFile(SaveTextFileDialog1.FileName + '.txt');

       OpenTextFileDialog1.FileName := SaveTextFileDialog1.FileName;

     end;

end;

end.

Разработка приложений Windows. Прикладные программы обработки данных на http://mirrorref.ru


Похожие рефераты, которые будут Вам интерестны.

1. Реферат ОСMS Windows и прикладные программы

2. Реферат Разработка Windows-программы движение частиц

3. Реферат Прикладные компьютерные программы

4. Реферат Системные и прикладные программы, их виды и назначение

5. Реферат Разработка программы для работы с базой данных типизированных файлов (файлов записей)

6. Реферат Общее представление об инструментах программы Windows Movie Maker

7. Реферат Разработка Web-приложений

8. Реферат Технологии работы с графической информацией. Растровая и векторная графика. Аппаратные средства ввода и вывода графических изображений. Прикладные программы работы с графикой. Графический редактор

9. Реферат Архітектура операційної системи Windows NT Огляд архітектури ОС Windows NT Захищені підсистеми ОС Windows NT Керування пам’ятью

10. Реферат Защита данных в операционной системе Windows 10. Bit Locker