Сортировка выбором

 

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

ФГБОУ  ВПО

      Уральский Государственный Горный Университет

 

Факультет заочного обучения

 

 

 

 

 

 

 

 

 

 

 

                 Курсовой проект

По дисциплине: « Математическая логика »

Тема: «Сортировка выбором »

 

 

 

 

 

 

                                                                                                                   

                                                                                            Преподаватель: Петров Д.С

                                                                                            Студент: Добрынина К.А

                                                                                            Группа: Инф-3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                                                                                                                                  Екатеринбург 2013

 

Содержание

Введение……………………………...………..….………………………………….	3
1 Постановка задачи…………………..……………………………………..…........	3
2 Этапы разработки……..……………...……………………………….….………...	4
3 Технический проект……………………...……………………………….……......	5
4 Физическая структура программы………..…………………………….…….......	6
5 Описание работы программы  ……………………...………………......................	7
Заключение…………………………………….…...…………..……...……………..	8
Список использованных источников…………………...……..………..………......	9
Приложения…………………………………………………………………………..	10

 

 

Введение

Для разработки я выбрала программу Borland Delphi 7. Визуальная среда программирования Borland Delphi 7 значительно упрощает процесс написания приложения для операционной системы Windows, так как представляет конечные классы структуры в виде специализированных визуальных и не визуальных компонентов. Программа Borland Delphi 7 обладает хорошей комфортностью, надежностью, а также удобством в работе. Этот язык имеет обширные возможности по созданию пользовательского интерфейса, с широким набором функций, методов и свойств, которые служат для решения прикладных задач. В системе имеются развитые средства отладки, облегчающие разработку приложений.

Написание в среде  программирования Borland Delphi 7  компактно и нетребовательно к аппаратным и программным средствам компьютера, на котором оно используется.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 Постановка задачи

Задание

Реализовать программу  на сортировку массива выбором

Алгоритм решения задачи

Алгоритм сортировки массива  по возрастанию методом  выбора может быть представлен так:

-Просматривая массив  от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый элемент –на место минимального.

-Просматривая массив  от второго элемента, найти минимальный  элемент и поместить его на  место второго элемента, а второй  на место минимального.

-И так далее до  последнего элемента.

 

2 Этапы разработки

Этап первый – Анализ требований.

Дано задание разработать программу реализующую сортировку.

Целью решения задания  является вывод данных запрошенных  пользователем.

Этап второй – Разработка.

Для решения необходимо создать поле, где будут вводиться данные и кнопки с помощью которых производится сортировка.

Этап третий – Реализация

Методы решения  данной задачи могут быть различными. Я выбрала метод решения задачи путем вывода на экран поля для ввода и создания двух кнопок.

На третьем этапе  также проводилась запись алгоритма  на языке программирования.

Этап четвертый –  Тестирование.

На данном этапе проводилась  проверка программы в рабочих  условиях в целях определения  ее работоспособности, выявлялись недостатки.

Этап пятый – Отладка.

Обычно программа редко начинает работать корректно. Это свидетельствует о том, что в программе есть ошибки. На этом этапе проводится процесс поиска и устранения ошибок.

 

3 Технический проект

Для написания приложения был выбран язык Object Pascal  операционной системы Windows.

Визуальная среда программирования Borland Delphi 7 значительно упрощает процесс написания приложения для операционной системы Windows, так как представляет конечные классы структуры в виде специализированных визуальных и не визуальных компонентов. Программа Borland Delphi 7 обладает хорошей комфортностью, надежностью, а также удобством в работе. Этот язык имеет обширные возможности по созданию пользовательского интерфейса, с широким набором функций, методов и свойств, которые служат для решения прикладных задач. В системе имеются развитые средства отладки, облегчающие разработку приложений.

Написание в среде  программирования Borland Delphi 7  компактно и нетребовательно к аппаратным и программным средствам компьютера, на котором оно используется.

 

 

4 Физическая структура программы

Проект состоит из одной формы:

Form1 – форма с полем для ввода данных, двумя кнопками и полем с обработанной информацией.

 

8 Описание работы программы

Рис.1 «Сортировка по возрастанию»

 

Рис.2 «Сортировка по убыванию» 

Заключение

Во время выполнения курсовой, я закрепила свои знания в среде программирования Borland Delphi. Поставленные передо мной цели и задачи выполнены: разработанная простая в использовании и нужная программа, которая в дальнейшем может предоставляться пользователям.

 

Список использованных источников

1. Кэнту Марко. Delphi 5. - СПб.: Питер, 2005.
2. Тихомиров Ю.В. Delphi: разработка приложений. – СПб.: Питер, 2007.
3. Шумаков П.В., Фараонов В.В. Delphi 5 Руководство разработчика баз данных - М.: Нолидж, 2007.

Приложение

Листинг

unitUnit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, jpeg, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    StringGrid1: TStringGrid;

    Label2: TLabel;

    Button1: TButton;

    Image1: TImage;

    Button2: TButton;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

    procedure Button2Click(Sender: TObject);

  private  { Private declarations }

  public   { Public declarations }

  end;

var

  Form1: TForm1;

Implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

  const

  SIZE=10;

  var

  a:array[1..size] of integer;  //массив из 10-ти вводимых чисел

   min:integer; //номер минимального элемента

   j:integer; //сравниваемый  элемент

   buf:integer; //буфер  используемый при сравнении

   i,k:integer; //индекс

         begin         // массив считает что если ячейка пуста, то это равно 0

           for i:=1 to SIZE do //условие

         a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

         Label2.Caption:='';

        for i:=1 to SIZE - 1 do         //поиск минимального элемента массива

     begin

       min:=i;

      for j:=i+1 to SIZE do

      if a[j]<a[min]      // меняем местами минимальный и тот элемент

      then min:=j;

      buf:=a[i]; a[i]:=a[min]; a[min]:=buf;

      for k:=1 to SIZE do

      Label2.Caption:=Label2.Caption+'    '+IntTostr(a[k]);

     Label2.Caption:=Label2.Caption+#13;

  end;

   Label2.Caption:=Label2.Caption+#13+'Массив отсортирован';

end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

   case Key of

   #8,'0'..'9':;

  #14:

  if StringGrid1.Col<StringGrid1.ColCount-1

  then StringGrid1.Color:=StringGrid1.Color+1;

  else key:=Chr(0);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

const

SIZE=10;

var

a:array[1..size] of integer;  //массив из 10-ти вводимых чисел

max:integer; //номер max элемента

j:integer; //сравниваемый элемент

 buf:integer; //буфер используемый при сравнении

i,k:integer; //индекс

begin                      //начало программы                       

for i:=1 to SIZE do //условие

 a[i]:=StrToInt(StringGrid1.Cells[i-1,0]); // массив считает что если ячейка пуста, то это равно 0

  Label2.Caption:='';

for i:=1 to SIZE - 1 do  //поиск максимального элемента массива

 begin

max:=i;

for j:=i+1 to SIZE do

if a[j]>a[max]

then max:=j;

 // меняем местами максимальный и тот элемент

 buf:=a[i]; a[i]:=a[max]; a[max]:=buf;

  for k:=1 to SIZE do

  Label2.Caption:=Label2.Caption+'    '+IntTostr(a[k]);

     Label2.Caption:=Label2.Caption+#13;

  end;

   Label2.Caption:=Label2.Caption+#13+'Массив отсортирован';

end;

end.