Разработка рабочего проекта программы

Разработка программы

1. Form1 — главное окно (сортировка строкового массива).

Рисунок 1. Окно Form1.

Ниже приведены описание компонентов (некоторые похожие компоненты не описаны).

Компонент Form1.

Свойства:

Сaption — Form1;

• — BorderStyle — bsSizeable;
• — BiSystemMenu — True;
• — BiMinimaze — True;
• — BiHelp — False;
• — События: нет.
• 1 — компонент TLabel1

Свойства:

• — Caption = Входной список;
• 2 — компонент TLabel2

Свойства:

• — Caption = Отсортированный список;
• — 3 — компонент object Button3
• — Caption = Отсортировать;
• — Enabled = True;
• — 4 и 5 — компаненты object Memo1 и Memo2
• — ScrollBars = ssBoth;
• — Enabled = True;

Спецификация программы

Написание программы

Для решения поставленной задачи в программе были объявлены строки m: array of string; t: string (в этом случае строка может содержать до 255 символов);

Доступ к элементам массива символов осуществляется с помощью индексов, поэтому были объявлены целочисленные простые переменные i, j: integer;.

procedure TForm1. Button3Click (Sender: TObject);

var.

i, j: integer;

m:array of string;

t:string;

begin.

// считываем массив.

setlength (m, memo1.Lines.Count);

for i:=0 to memo1.lines.Count-1 do.

m[i]: =memo1.Lines[i];

// сортируем.

for i:=0 to high (m)-1 do.

for j:=i+1 to high (m) do.

if m[i]>m[j] then begin.

t:=m[i];

m[i]: =m[j];

m[j]: =t;

end;

// выводим результаты.

memo2.Lines.clear;

for i:=0 to high (m) do.

memo2.Lines.Add (m[i]);

end;

Спецификация программы