VPF::dek i stek - Форум программистов

g0vlad

Дата 13.4.2009, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.4.2009

Репутация: нет
Всего: нет

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[i]:=0;
  repeat
  For i:=1 to max do
  Begin
    GoToXY(10+i*4,10); TextColor(YELLOW); Writeln(mas[i]: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.

Добавлено @ 14:21
Napiwite pozalusto polni kod procedur

Это сообщение отредактировал(а) volvo877 - 13.4.2009, 16:25

volvo877

Дата 13.4.2009, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(g0vlad @ 13.4.2009, 14:19

)

Stek ja uze sam napisal

То, что ты написал никакого отношения к стеку не имеет! Стек- динамическая структура данных, и загонять ее в рамки массива - полный бред. Добавь к своему "стеку" 15 чисел. Не можешь? Тогда зачем тебе эта реализация? Делай, как положено.

И потом: СНАЧАЛА реализуй логику, ПОТОМ навешивай не нее свое оформление. Я, например, не буду разбираться в твоей программе, потому что не вижу собственно добавления/удаления элемента из-за постоянных вызовов TextColor и TextBackground, да GotoXY. Тебе что, главное, чтобы экран был заполнен синими/красными и белыми циферками, и неважно, что там вообще внутри происходит? Ну, так покрась его случайным образом и иди сдавай...

P.S. Вот тут смотри работу со стеком, через пост - работа с деком. Это для случая, если ты захочешь сделать ПРАВИЛЬНО.

g0vlad

Дата 13.4.2009, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.4.2009

Репутация: нет
Всего: нет

spasibo boljwoje!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »