Зразок діалогової програми

uses cRT;

const n=6;

var ch: char;

i, j: word;

a: array[1..20] of integer;

Procedure read_from_queue;

Begin

…

End;

Procedure write_from_queue;

Begin

…

End;

Procedure print_quele;

Var k: word;

Begin

…

End;

procedure print_mas;

var k: word;

Begin

for k: =1 to n do write(a[k], ' ');

end;

{-----------Golovna programa--------}

Begin

clrscr;

ch: ='0'; i: =0; j: =0;

While ch< > '5' do

Begin

writeln('1. Zapus elementa y queue');

writeln('2. Prohutatu element z queue');

writeln('3. Pokazatu vmist queue');

writeln('4. Pokazatu vmist masuvy');

writeln('5. zaverchutu poboty si queue');

writeln;

write('Vvedite N menu - '); readln(ch);

Case ch of

'1': write_from_queue;

'2': begin read_from_queue;; writeln('ENTER'); readln(ch); end;

'3': begin print_quele;; writeln('ENTER'); readln(ch); end;

'4': begin print_mas; writeln('ENTER'); readln(ch) end;

'5': exit;

end;

end;

End.

Контрольні запитання

1. Яка структура називається чергою?

2. Як структура даних «черга» відображається на пам’ять комп’ютера?

3. Який елемент називають «головою» черги?

4. Який елемент називають «хвостом черги?

5. Як відбувається читання елементів черги? Запишіть алгоритм читання елемента черги.

6. Як відбувається запис елементів у чергу? Запишіть алгоритм запису елемента в чергу.

7. Зобразіть схематично роботу з елементами черги.

8. Запишіть процедуру перегляду елементів черги.

9. Який принцип доступу здійснюється до значень елементів черги при їх обробці? Обґрунтуйте свою відповідь.