Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Реализация стека в Pascal

81K
09 апреля 2012 года
Fighter215
2 / / 09.04.2012
Помогите реализовать стек в паскале. Вот кусочек кода, где идёт объявление стека и процедура добавления в стек. Правильно ли они написаны? Помогите написать функцию вывода данных их стек, а, запись стека в файл и чтение из файла.
Код:
type  PNode = ^Node;
      Node = record
    Name:       string;
    fam:        string;
    LastName:   string;
    Address:    string;
    Day:        word;
    Month:      word;
    Year:       word;
    Child:      word;
    SumHour:    word;     //Отработанно часов
    Price:      integer;  //Расценка одного часа
    Next:       PNode;
      end;
     
Procedure Push ( var Head: PNode; x: Node);
var NewNode: PNode; F1: file of Node;
 begin
 New(NewNode);
 NewNode^.fam := x.fam;
 NewNode^.name := x.name;
 NewNode^.lastname := x.lastname;
 NewNode^.address := x.address;
 NewNode^.day := x.day;
 NewNode^.month := x.month;
 NewNode^.year := x.year;
 NewNode^.child := x.child;
 NewNode^.sumhour := x.sumhour;
 NewNode^.price := x.price;
 NewNode^.next := Head;
 Head := NewNode;
 Assign (F1, 'database.date');
 ReWrite (F1);
 write(f1,x);
 Close(f1);
end;
  • wanja, в смысле число? Как я уже понял, там должно быть не (F1, x), а (F1, NewNode)?И всё равно, это не решает проблемы от Fighter215, 10 апреля 2012 года
247
10 апреля 2012 года
wanja
1.2K / / 03.02.2003
А зачем он записывает число в файл? Кстати, там всегда будет только одно число - последнее добавленное. А если не считать записи в файл, все верно.
81K
10 апреля 2012 года
Fighter215
2 / / 09.04.2012
Цитата: wanja
А зачем он записывает число в файл? Кстати, там всегда будет только одно число - последнее добавленное. А если не считать записи в файл, все верно.


в смысле, число?

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог