03.09.2015, 17:28 | #1 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Организация стека через динамическую структуру
Код:
program g; type tData = string[80]; tHtd = ^Htd; Htd = record data: tData; next: tHtd; end; stek = tHtd; var d: tData; s: stek; f1,f2:text; procedure puch(var s: stek; d: tData); var p: stek; begin new(p); p^.data := d; p^.next := nil; s := p; end; procedure pop(var s: stek; d: tData); var p: stek; begin d := s^.data; writeln(f2,d); p := s; s := s^.next; dispose(p); end; begin Assign(f1, 'словарь.txt'); Reset(f1); assign(f2,'g.txt'); Rewrite(f2); while eof(f1) do readln(f1, d); puch(s, d); while s<>nil do pop(s,d); end. |
03.09.2015, 17:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Безусловно схожие по содержанию темы вам должны чем то быть полезны Организация Wi-Fi Организация интернета Организация ветвления Разработать алгоритм удаления из стека С# Организация циклов |
03.09.2015, 19:30 | #2 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Уже всё получилось! Вот как должно быть:
Код:
program g; type tData = string[80]; tHtd = ^Htd; Htd = record data: tData; next: tHtd; end; stek = tHtd; var d: tData; s: stek; f1, f2: text; procedure Init(var s: stek); begin s := nil; end; function IsE(s: stek): Boolean; begin Result := s <> nil; end; procedure puch(var s: stek; d: tData); var p: stek; begin new(p); p^.data := d; p^.next := s; s := p; end; procedure pop(var s: stek; var d: tData); var p: stek; begin d := s^.data; p := s; s := s^.next; dispose(p); end; begin Assign(f1, 'словарь.txt'); Reset(f1); assign(f2, 'g.txt'); Rewrite(f2); Init(s); while not eof(f1) do begin readln(f1, d); puch(s, d); end; close(f1); while Ise(s) do begin pop(s, d); writeln(f2,d); end; close(f2); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|