Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2016, 20:43   #1
scarecrow_1
Пользователь
 
Регистрация: 22.12.2015
Сообщений: 28
По умолчанию Создать стек из случайных целых чисел и удалить из него записи с четными числами

Создать стек из случайных целых чисел и удалить из него записи с четными числами
scarecrow_1 вне форума Ответить с цитированием
Старый 05.05.2016, 17:12   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Использованы процедуры, написанные volvo.

Код:
program stack22;

uses
  math;
type
  pstack = ^tstack;
  tstack =
  record
    info : integer;
    next : pstack;
  end;

procedure push(var s : pstack; value : integer);
var p : pstack;
begin
  new(p);
  p^.next := s;
  p^.info := value;
  s := p;
end;

function pop(var s : pstack) : integer;
var p : pstack;
begin
  result := s^.info;
  p := s;
  s := s^.next;
  dispose(p);
end;

procedure print(s : pstack);
begin
  while s <> nil do
  begin
    write(s^.info:4);
    s := s^.next;
  end;
  writeln;
end;

var
  y, x : pstack;
  i, n, value : integer;

begin
  randomize;
  x := nil;  y := nil;
  write('n = '); readln(n);
  for i := 1 to n do
    push(x, randomrange(1,100));
  writeln('First stack:');
  print(x);

  while x <> nil do
  begin
    value := pop(x);
    if value mod 2 <> 0 then
       push(y, value)
  end;

  while y <> nil do
    push(x, pop(y));
  writeln('Second stack:');
  print(x);
  readln;

end.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать стек со случайными целыми числами. Найти максимальный элемент и вставить после него 0. Veronika_13 Помощь студентам 4 07.05.2014 23:44
5.Создать файл из 100 целых чисел, лежащих на отрезке [150,9000], используя генератор случайных чисел. -Вывести эти viktoriya95 Паскаль, Turbo Pascal, PascalABC.NET 0 21.02.2014 22:36
Сформировать список целых чисел и удалить из него все числа меньше 0 bwitcher Помощь студентам 0 23.03.2013 16:42
Дан файл целых чисел. Удалить из него все отрицательные числа vaako Паскаль, Turbo Pascal, PascalABC.NET 5 12.04.2012 22:45
Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел prelest' Паскаль, Turbo Pascal, PascalABC.NET 4 01.06.2011 10:27