Хід роботи. 1. Завантажте середовище програмування

1. Завантажте середовище програмування. Створіть новий файл та збережіть його з назвою Steck_(буква вашого класу(англ.).pas.

2. Розробіть діалогову меню-орієнтовану програму роботи з елементами стека за такими пунктами:

1) записати елемент у стек;

2) прочитати елемент зі стеку;

3) показати вміст стека;

4) показати вміст масиву;

5) завершити роботу зі стеком.

Для виконання даного завдання наберіть програмний код за зразком та допишіть відповідні процедури. Протестуйте програму для n=5 та 10 за такою схемою:

· Заповнити повністю стек;

· Спорожнити стек;

· Заповнити стек до половини;

· Вичитати один елемент;

· Записати два елементи.

Результати тестування занесіть до зошита.

3. Перепишіть програму до зошита та доповніть запис коментаріями щодо пояснення роботи алгоритмів роботи з елементами стеку.

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

uses СRT;

const n=5;

var ch: char;

i: word;

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

procedure read_from_stack;

begin

…

end;

procedure write_to_stack;

begin

…

end;

procedure print_stack;

var k: word;

begin

…

end;

procedure print_mas;

var j: word;

begin

…

end;

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

Begin

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

while ch< > '5' do

begin

clrscr;

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

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

writeln('3. Pokazatu vmist steka');

writeln('4. Pokazatu vmist masuvy');

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

writeln;

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

case ch of

'1': write_to_stack;

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

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

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

'5': exit;

end;

end;

end.

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

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

uses СRT;

const n=5;

var ch: char;

i: word;

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

procedure read_from_stack;

begin

if i=0 then writeln('Stack is empty')

else

begin

writeln(a[i]);

dec(i);

end;

end;

procedure write_to_stack;

begin

if i> =n then writeln('Stack is full')

else

begin

inc(i);

readln(a[i]);

end;

end;

procedure print_stack;

var k: word;

begin

for k: =1 to i do

write(a[k], ' ');

writeln

end;

procedure print_mas;

var j: word;

begin

for j: =1 to n do

write(a[j], ' ');

writeln

end;

Begin

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

while ch< > '5' do

begin

clrscr;

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

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

writeln('3. Pokazatu vmist steka');

writeln('4. Pokazatu vmist masuvy');

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

writeln;

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

case ch of

'1': write_to_stack;

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

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

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

'5': exit;

end;

end;

end.