VPF::[Delphi Console] Стек - Форум программистов

Tarantul2007

Дата 17.4.2007, 21:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Даны указатели P1 и P2 на вершины двух непустых стеков.
Перемещать элементы из первого стека во второй,
пока значение вершины первого стека не станет четным
(перемещенные элементы первого стека будут располагаться во втором стеке в порядке,
обратном исходному). Если в первом стеке нет элементов с четными значениями,
то переместить из первого стека во второй все элементы.
Вывести адреса новых вершин первого и второго стека
(если первый стек окажется пустым, то вывести для него константу nil).
Операции выделения и освобождения памяти не использовать.

Код


program Zadanie2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

type  TPStack=^TStack;
      TStack=record
        data:integer;
        next:TPStack;
       end;
var p1,p2:TPStack;
    el:integer;
    ch:char;

function StackIsEmpty(var s:TPStack):boolean;
begin
  StackIsEmpty:=(s=nil);
end;

procedure Push(var s:TPStack; var elem:integer);
var tmp:TPStack;
begin
  New(tmp);
  tmp^.data:=elem;
  tmp^.next:=s;
  s:=tmp;
end;


begin
SetconsoleCP(1251);
SetconsoleoutputCP(1251);
writeln('Первый стек пустой = ',StackIsEmpty(p1));
writeln('Второй стек пустой = ',StackIsEmpty(p2));
repeat
   write('Введите элемент стека = ');
   readln(el);
   Push(p1,el);
   write('Продолжить ввод ?(y/n) ');
   readln(ch);
  until ch='n';
while p1^.data mod 2<>0 do begin
                             Push(p2,p1^.data);
                             p1:=p1^.next;
                             end;
while p2<>nil do begin
                 write(p2^.data,' ');
                 p2:=p2^.next;
                 end;
writeln;
writeln('Вершина первого стека = ',integer(addr(p1)));
writeln('Вершина второго стека = ',integer(addr(p2)));
if p1=nil then writeln('Первый стек пустой = nil');
writeln('Второй стек пустой = ',StackIsEmpty(p2));
readln;
end.

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