Поразрядная сортировка для списков

Доп_лекция №11_2 13 ноября 2012 г.

Рост конкурентных преимуществ

Максимально эффективное использование ПО, уже установленного в компании

Часть функций и решений могут быть осуществлены при помощи современных ИС ДОУ. Например, согласование бюджета, утверждение заявки на финансирование и т.д. Это позволит сократить затраты на расширение рабочих мест "тяжелых" решений за счет использования систем.

Внедрение системы электронного документооборота напрямую отражается на конкурентных преимуществах компании перед другими игроками рынка. Повышается скорость и качество обслуживания клиентов за счет ускорения движения информационных потоков и четкого контроля всех процессов. Функционирование даже крупного предприятия становится более мобильным и меньше зависит от конкретных "незаменимых" сотрудников.

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

Однако выбор и приобретение системы электронного документооборота - это только первый шаг на пути построения электронного документооборота в организации. Прежде чем система заработает и реально начнет приносить эффект, предстоит процесс внедрения.

unit Unitdigit_sort;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TSort_dig = class(TForm)

Memo1: TMemo;

ListBox1: TListBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

plist=^list;

list=record

date:integer;

next:plist;

end;

ff=file of integer;

var

Sort_dig: TSort_dig;

f:ff;

start:plist;

k:integer;

implementation

{$R *.dfm}

procedure output(var pp:plist);

var gg:plist;

begin

Sort_dig.ListBox1.Clear;

gg:=pp;

while gg<> nil do

begin

Sort_dig.ListBox1.Items.add(inttostr(gg^.date));

gg:=gg^.next;

end;

end;

procedure sortdigit(var res:plist);

var c,i,x,s,n:integer;

lp,ln,p,start1:plist;

begin

c:=0;

lp:=nil;

repeat

s:=res^.date;

s:=s div 10;

start1:=nil;

c:=c+1;

for i:=0 to 9 do

begin

p:=res;

while p<> nil do

begin

x:=p^.date;

for n:=1 to c-1 do

x:=x div 10;

x:=x mod 10;

if x=i then

begin

new(ln);

ln^.date:=p^.date;

ln^.next:=nil;

if start1=nil then

start1:=ln

else

lp^.next:=ln;

lp:=ln;

end;

p:=p^.next;

end;

end;

res:=start1;

until s=0;

output(res);

end; // Поразрядная сортировка списка

Function Create_list(var g:ff):Plist;

var lp,ls:plist;

begin

lp:=nil;

while not eof(g) do

begin

if lp=nil then

begin

new(lp);

read(g,lp^.date);

lp^.next:=nil;

start:=lp;

end else

begin

new(ls);

lp^.next:=ls;

read(g,ls^.date);

ls^.next:=nil;

lp:=ls;

end;

end;

result:=start;

closefile(f);

end;

procedure TSort_dig.BitBtn1Click(Sender: TObject);

var z,i:integer;

begin

Assignfile(f,'myfile2.dat');

rewrite(f);

k:=Memo1.Lines.Count;

For i:=0 to k-1 do

begin

z:=strtoint(memo1.Lines[i]);

Write(f,z)

end;

closefile(f);

end;

procedure TSort_dig.BitBtn2Click(Sender: TObject);

begin

Assignfile(f,'myfile2.dat');

reset(f);

start:=Create_list(f);

Sort_dig.Listbox1.Clear;

output(start);

end;

procedure TSort_dig.BitBtn3Click(Sender: TObject);

var nns:plist;

begin

nns:=Start;

sortdigit(nns);

end;

procedure TSort_dig.BitBtn4Click(Sender: TObject);

begin

close;

end;

procedure TSort_dig.FormCreate(Sender: TObject);

begin

Memo1.Clear;

end;

end.

Рис. 1

Дата добавления: 2014-01-07