dek_stek

[g0vlad]

Pomogite pozalusto s dekom!
Zada4a: proceduri dobavljaut v vektor STEK(sprava) i DEK(sleva),a tak ze udaljatj lementi steka i deka!
Stek ja uze sam napisal, a dek ni kak ne polu4aetsaj, esli vi mozete, pomogite pozalusto!
4estnoje studen4eskoje vam spasibo, zaranee!
Код:


{-------------------------------------------}
Program STEK_DEK;
Uses crt;
const max=10;
var i:integer;
headr,tailr,heads,tails:integer;
mas:array[1..max] of integer;

PROCEDURE add_dek;
???????????????????????????????????
PROCEDURE delete_dek;
???????????????????????????????????
PROCEDURE add_stek;
Begin
ClrScr;
Textcolor(LIGHTBLUE); GoToXY(3,19); ClrEol;
If (tails=max) and (heads>tailr+1)
Then Begin
heads:=heads-1; Randomize;
mas[heads]:=random(90)+10;
End else
If (heads<=tailr+1)
Then Begin
GoToXY(26,19); TextColor(red);
Writeln('error!');
End;
End;

PROCEDURE delete_stek;
Begin
ClrScr;
If (heads<=max)
Then Begin
mas[heads]:=0; heads:=heads+1;
End else
if (heads>max) then
Begin
GotoXY(26,19); TextColor(red);
Writeln('error!');
End;
End;

var q:integer;
BEGIN
ClrScr;
headr:=1; tailr:=0;
heads:=max+1; tails:=max;
For i:=1 to max Do
mas:=0;
repeat
For i:=1 to max do
Begin
GoToXY(10+i*4,10); TextColor(YELLOW); Writeln(mas:4);
End;

GotoXY(1,3); Textcolor(WHITE);
Writeln('1. Dobavitj element v dek(sprava sleva).');
Writeln('2. Udalitj element iz deka(sprava sleva).');
Writeln('3. Dobavitj novij element v stek.');
Writeln('4. Udalitj element iz steka.');
Writeln('5. EXIT.');
Readln(q);
case q of
1: add_dek;
2: delete_dek;
3: add_stek;
4: delete_stek;
End;
until q=5;
END.

[Naeel Maqsudov]

по совокупности нарушений