Версия для печати темы

Автор: Lion4ik 13.04.2007 12:36

Вводится строка заканчивающаяся точкой, например SSALK.
вывести её в обратном порядке, используя процедуры стеков.

Помогите решить полностью задачу!

Автор: volvo 13.04.2007 14:20

Ну уж чего-чего, а реализаций стека на форуме хватает... Вот тут, например:

http://forum.pascal.net.ru/index.php?s=&showtopic=2706&view=findpost&p=23592

Читал? Там есть модуль, реализующий 3 основные операции: проверка на пустоту, Push и Pop... С использованием этого модуля программа будет выглядеть, например, так:

uses crt, stack;

var
  ch: telem;
  st: tstack;


begin
  stackinit(st);

  repeat

    ch := readkey;
    write(ch);
    stackpush(st, ch);

  until ch = '.';
  writeln;

  stackpop(st); { <--- Это - если НЕ надо печатать саму точку }
  while not stackempty(st) do begin
    write(stackpop(st));
  end;
  writeln;readln;
end.

Автор: Lion4ik 13.04.2007 14:34

Volvo а ты можешь написать мне эту программку с моим условием и с моей СТРОКОЙ SSALK, а то времени вобрез самому понимать полностью. Заранее благодарен!!!!!!!!!!!!!

Автор: volvo 13.04.2007 14:51

А ты запускал то, что я привел? Введешь свою строку, она будет перевернута.

P.S. То, что времени в обрез у тебя - это НЕ мои проблемы...

Автор: Lion4ik 13.04.2007 15:37

Цитата(volvo @ 13.04.2007 11:51)

Автор: Tan 13.04.2007 18:23

Автор: Lion4ik 13.04.2007 20:20

модуль всё скачал вложил в папку с файлом программы как положнно всё...

а в программа не запумскается ch: = readkey;
eror:TYPE mismatch

Автор: Tan 13.04.2007 20:24

Надо в основной программме писать

Uses Modulname;

Автор: Lion4ik 13.04.2007 21:14

Цитата(Tan @ 13.04.2007 17:24)

Uses Modulname;

Unit STACK;
INTERFACE
Type
 TElem = integer; 
 TStack = ^TElement; 
 TElement = record
             info:TElem;
             Next:TStack
            end;
 
 Procedure StackInit(var s:TStack);
 Function StackEmpty(S:TStack):Boolean;
 
 Procedure StackPush(var S:TStack; E:TElem);

 Function StackPop(var S:TStack):TElem;
 {--------------------------------------}

IMPLEMENTATION
 Procedure StackInit(var s:TStack);
 begin
  s:=nil
 end;
 Function StackEmpty(S:TStack):Boolean;
 begin
  StackEmpty:=(S=NIL);
 end;
 Procedure StackPush(var S:TStack; E:TElem);
 var
  z:TStack;
 begin
  new(z);
  z^.next:=s;
  Z^.INFO:=E;
  s:=z;
 end;
 Function StackPop(var S:TStack):TElem;
 const errorcode=255;
 var z:TStack;
 begin
  If StackEmpty(S) then
  begin

   Halt(errorcode);
  end else
  begin
   z:=s;
   s:=s^.next;
   stackPop:=z^.info;
   dispose(z)
  end
 end;
end.

uses crt, stack;

var
  ch: telem;
  st: tstack;


begin
  stackinit(st);

  repeat

    ch := readkey;
    write(ch);
    stackpush(st, ch);

  until ch = '.';
  writeln;

  stackpop(st);   while not stackempty(st) do begin
    write(stackpop(st));
  end;
  writeln;readln;
end.

Автор: мисс_граффити 13.04.2007 21:38

когда ж люди читать научатся....
Тебе что сказали сделать?

Автор: Lion4ik 13.04.2007 21:41

я читать умею и это я сделал всё равно тоже самое.....в самом модуле я поменял целоее на чар!!!!

Добавлено через 5 мин.

Цитата(Lion4ik @ 13.04.2007 18:41)

Автор: мисс_граффити 13.04.2007 21:59

после этого модуль перекомпилировал?

Автор: Lion4ik 13.04.2007 22:05

Цитата(мисс_граффити @ 13.04.2007 18:59)

Автор: Tan 13.04.2007 22:14

Если ты его объявил, откомпилировал и основная программа запустилась, значит всё сделал верно.

Автор: Lion4ik 13.04.2007 22:27

Цитата(Tan @ 13.04.2007 19:14)

Автор: hiv 13.04.2007 23:28

Цитата(Lion4ik @ 13.04.2007 19:05)

Автор: Lion4ik 14.04.2007 0:33

Цитата(hiv @ 13.04.2007 20:28)

Автор: мисс_граффити 14.04.2007 0:40

у тебя большой выбор, куда вводить строку?

Автор: Lion4ik 14.04.2007 0:47

Цитата(мисс_граффити @ 13.04.2007 21:40)