№4 КОНТРОЛЬНАЯ РАБОТА по дисциплине «Структуры и алгоритмы обработки данных»

  1. Составить алгоритм обработки  очереди  из поступающих данных.
  2. В функции обработки очереди входят:  добавление очередного элемента в конец очереди; выборка первого элемента из очереди, сдвиг всех элементов очереди на 1.
  3. Проверить работу алгоритма на произвольном входном потоке данных: вводить элемент, добавлять в очередь (выводить очередь); выбирать для обслуживания первый элемент и удалять его из очереди (очередь показать).

saod3

Type

dataBD = record

data :string[50] ;

data_Temp:string[50];

end;

var

Form1: TForm1;

d:Array[1..50] of dataBD;

x:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click (Sender: TObject);

begin

x:=x+1;

d[x].data:=Edit1.Text;

Edit1.Clear;

end;

procedure TForm1.Button2Click (Sender: TObject);

var i:integer;

begin

for I := 1 to x  do

if Length (d[i].data)>0  then

begin

Edit2.Text:=d[i].data;

exit;

end;

end;

procedure TForm1.Button3Click (Sender: TObject);

var i: integer;

begin

for I := 1 to x  do

begin

d[i].data_Temp:=d[i].data;

d[i].data:='';

end;

for I := 1 to x+1  do

d[i+1].data:=d[i].data_Temp;

end;

procedure TForm1.Button4Click (Sender: TObject);

begin

for I := 0 to x do

begin

d[i].data:='';

d[i].data_Temp:='';

end;

end;

procedure TForm1.Button5Click (Sender: TObject);

var i:integer;

begin

ListBox1.Clear;

for I := 0 to x do

begin

ListBox1.Items.Add (d[i].data);

end;

end;

procedure TForm1.FormCreate (Sender: TObject);

begin

x:=0;

end;

end.

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: