№4 КОНТРОЛЬНАЯ РАБОТА по дисциплине «Структуры и алгоритмы обработки данных»
- Составить алгоритм обработки очереди из поступающих данных.
- В функции обработки очереди входят: добавление очередного элемента в конец очереди; выборка первого элемента из очереди, сдвиг всех элементов очереди на 1.
- Проверить работу алгоритма на произвольном входном потоке данных: вводить элемент, добавлять в очередь (выводить очередь); выбирать для обслуживания первый элемент и удалять его из очереди (очередь показать).
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.