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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

  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.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!