Лабораторная работа №2 «Разработка приложения, выполняющего сортировку числового массива по возрастанию» - davaiknam.ru o_O
Главная
Поиск по ключевым словам:
страница 1
Похожие работы
Название работы Кол-во страниц Размер
Лабораторная работа №6 обработка одномерных массивов цель работы... 1 97.36kb.
Лабораторная работа по теме: «Комбинированный тип данных. Записи. 1 33.73kb.
Построение приложения rpc разработка приложения 1 135.14kb.
Разработка методических основ изучения геомеханического состояния... 3 514.17kb.
Лабораторная работа Использование федеративной аутентификации в веб-приложении... 4 405.43kb.
Лабораторная работа №1 Создание приложения asp. Net 1 137.5kb.
Лабораторная работа №1 Разработка описания и анализ информационной... 1 138.8kb.
Лабораторная работа №1 Изучение возможностей сетевого анализатора. 5 429.73kb.
Лабораторная работа № Разработка моделей idef0 Порядок выполнения... 1 59.81kb.
Лабораторная работа №1 Построение детерминированного синтаксического... 1 278.71kb.
Лабораторная работа №1 Установка и настройка сетевой карты. 1 58.29kb.
Лабораторная работа №3 «Исследование работы фильтров высоких и низких... 3 331.06kb.
Направления изучения представлений о справедливости 1 202.17kb.

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

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

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


Предмет: «Лингвистическое и программное обеспечение САПР»
Лабораторная работа №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.




Материалисту остается только вера в человека. Лешек Кумор
ещё >>