VPF::Распределение данных по СТЕК'ам

Dobermann

Дата 28.6.2008, 01:34 (ссылка)

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

Загрузка ...

Опытный

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

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

В первом стеке (first) помещен текст из файла. Мне нужно перенести во второй стек (second) половину текста так, чтобы последний символ текста находился на дне стека .

Код


uses crt;
type TStack = ^stack;
        stack = record
            str: char;
           next: TStack;
        end;
var First, Second, top: TStack;
                     n: integer;

procedure InStack;
var   f: text;
      i: integer;
      s: char;
begin
   assign(f, 'E:\111.txt');
   reset(f);
   while not eof(f) do
     begin
         read(f, s);
         new(First);
         First^.str:=s;
         first^.next:=top;
         top:=first;
         n:=n+1;
     end;
end;

procedure In2Stack;

............................

procedure WriteStack;
begin
  writeln('SODERZHIMOE STEKA: ');
  first:=top;
  while first<>nil do
    begin
      write(first^.str); first:=first^.next;
    end;
  writeln;
end;
begin
  n:=0;
  top:=nil;
  InStack;
  WriteStack;
  writeln(n);
end.

Оформите плиз процедуру... =)

volvo877

Дата 28.6.2008, 09:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

После того, как отработала процедура InStack, последний символ текста лежит ГДЕ? В вершине первого стека, так? Если теперь перенести n div 2 верхних символов из первого стека во второй, то последний символ текста как раз и будет лежать на дне второго стека...

А если добавление символа в стек/извлечение символа из стека вынести в отдельные процедуры - то все будет совсем просто:

Код


uses crt;
type TStack = ^stack;
        stack = record
            str: char;
           next: TStack;
        end;

Procedure Push(var top: TStack; ch: char);
var p: TStack;
begin
  new(p);
  p^.next := top;
  p^.str := ch;

  p^.next := top;
  top := p;
end;

Function Pop(var top: TStack): char;
var p: TStack;
begin
  if top = nil then Pop := #0
  else begin
    pop := top^.str;
    p := top;
    top := top^.next;
    dispose(p);
  end;
end;

var
  First, Second: TStack;
  n: integer;

procedure InStack;
var
  f: text;
  i: integer;
  s: char;
begin
  First := nil; n := 0;

  assign(f, 'E:\111.txt');
  reset(f);
  while not eof(f) do begin
    read(f, s);
    Push(First, s);
    n:=n+1;
  end;
end;

procedure In2Stack;
begin
  Second := nil;
  for i := 1 to n div 2 do
    Push(Second, Pop(First));
end;
...

Обрати внимание, при печати стека у тебя портится ГЛОБАЛЬНАЯ переменная, лучше введи локальную, иначе потом будут проблемы с освобождением памяти...

Dobermann

Дата 28.6.2008, 13:01 (ссылка)

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

Загрузка ...

Опытный

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

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

volvo877, THANKS!!!

Цитата

И то верно =)
Что-то я затупил...всё в двух процедурах хотел сделать...

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