Задача с использованием стека., стек.очередь.кольцо Опции

[HalkW]

Столкнулся с небольшой проблемой,а именно:
Задача:
Создать текстовые файлы, содержащие один текстовую, а другой числовую информацию (количество слов и чисел может быть неодинаковым). Используя стек, создать другой текстовый файл, в котором числа и слова чередовались и были бы записаны в обратном порядке ("лишние" числа или слова были бы записаны в конец файла).
Всё вроде бы хорошо,создаю файлы генераторами.Но вот вывод в третий файл меня смущает.Закодирован!
Текст программы:

uses crt;
type
ukaz = ^s;
s = record
tip : byte;
pole1:integer;
pole2:string;
next:ukaz;
end;
var
file2:file of string;
file1:file of integer;
fileo:file;
X,HEAD:ukaz;
a:integer;
b:string;
begin
clrscr;
assign(file1,'d:\file1.txt'); reset(file1);
assign(file2,'d:\file2.txt'); reset(file2);
assign(fileo,'d:\fileo.txt'); rewrite(fileo);
Head:=nil;
while (not eof(file1)) and (not eof(file2)) do
begin
if not eof(file1) then
begin
read(file1,a);
new(x);
x^.tip:=1;
x^.pole1:=a;
x^.next:=head;
head:=x;
end;
if not eof(file2) then
begin
read(file2,b);
new(x);
x^.tip:=2;
x^.pole2:=b;
x^.next:=head;
head:=x;
end;
end;
x:=head;
while x<>nil do
begin
if x^.tip=1 then blockwrite(fileo,x^.pole1,1)
else blockwrite(fileo,x^.pole2,1);
x:=x^.next;
end;
while not eof(file1) do
begin
read(file1,a);
blockwrite(fileo,a,1);
end;
while not eof(file2) do
begin
read(file2,b);
blockwrite(fileo,b,2);
end;
end.

---------------------------

М

Про теги не забываем...

И файлы:

Сообщение отредактировано: volvo - 28.06.2009 18:47

[Krjuger]

При записи кириллицы (или скажем псевдографики) в файл типа Text (и при просмотре этого файла блокнотом) ты тоже получишь вместо записанного всякие иероглифы, и что? Не веришь - спроси у пользователя sheka

Знаю,сталкивался,но тут то реч немного о другом все таки...И давай не будем в каджой теме переходить на личности?Оке?Я спрашиваю ту информацию,которая мне необходима,чтобы помоч...Если у тебя таких вопросов не возникает,это уже сугубо твое дело.

в файл с помощью генератора

Ты имееш в виду процедуру рандома при заполнении файла числами?.
Вот смотри,ты заполнил свой стек,у тебя есть записи типа строки и типа челых чисел.Все на этом твоя работа с твоими входными файлами должна закончится.Дальше ты береш идеш в начало стека,сначала читаеш из строковой части пишеш строку потом число,ну или наоборот,затем просто переходиш к следующиму элементу по твоей ^.next.так будеш делать пока не дойдеш до последнего.Но тут появляется маленькая загвоздка количество строк и чисел разное.Я думаю необходимо сделать проверку,если данная часть пуста то ничего не пишем,если что то есть то пишем.Надеюсь ты понял,что я предложил......

Сообщение отредактировано: Krjuger - 28.06.2009 21:40