Лабораторная работа №2 «Разработка приложения, выполняющего сортировку числового массива по возрастанию»

ФГБО ВПО «Брянский государственный технический университет»

Кафедра «Компьютерные технологии и системы»

Предмет: «Лингвистическое и программное обеспечение САПР»
Лабораторная работа №2

«Разработка приложения, выполняющего сортировку числового массива по возрастанию»

Выполнили студенты

гр 08-САПР:

Попов И.С.

Семченко Е.В

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

Беспалов В.А.

Брянск 2011

Задание:
Необходимо создать программу в Delhpi , которая генерирует случайным образом 10 чисел в диапазоне от 0 до 100, и сортирует их выбранным способом.

Описание функционирования программы:

Проектируемая программа должна функционировать следующим образом: при нажатии кнопки «Generate », происходит генерация чисел. При нажатии кнопки «Sort» происходит сортировка чисел по возрастанию методом обмена.
Метод сортировки

Метод сортировки обменом основан на выполнении в цикле операций сравнения и при необходимости обмена соседних элементов.

Готовая программа представлена на рисунке 1.

$c:\documents and settings\admin\рабочий стол\безымянныйuiuiui.jpg$

Рисунок 1. Разработанная программа

Блок-схема программы

Блок-схема метода сортировки

Приложение 1

Код программы
unit Unit1;
interface
uses

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

Dialogs, StdCtrls;
type

TForm1 = class(TForm)

Memo1: TMemo;

Memo2: TMemo;

btng: TButton;

btns: TButton;

procedure btngClick(Sender: TObject);

procedure btnsClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;

A:array[0..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.btngClick(Sender: TObject);

var i:integer;

begin

memo1.Clear;

for i := 1 to 10 do begin

A[i]:=random(99)+1;

Memo1.Lines.Add(inttostr(A[i]));

end;

end;
procedure TForm1.btnsClick(Sender: TObject);

var i,min,pos,temp,j:integer;

begin

memo2.Clear;

for i := 1 to 9 do begin

min:=A[i];

pos:=i;

for j := i+1 to 10 do begin

if A[j]

min:=A[j];

pos:=j;

end;

end;

temp:=A[i];

A[i]:=A[pos];

A[pos]:=temp;
end;
for i := 1 to 10 do begin

Memo2.Lines.Add(inttostr(A[i]));

end;

end;

end.