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

[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]

Извини конешно,но чем она усложняется?что ты используеш блокврайт для записи 1 значения из строки и 1 значения из чисел,что ты будеш использовать обычные write writeln,ты все равно приимуществ блокврайта не особо используеш,а если выразится точнее,то блокфрайт может сразу целые блоки копировать(отсуда и его название),а ты все равно этого не делаеш.

[Lapp]

ты все равно этого не делаеш.

Если уж на то пошло, то правильнее будет сказать, что blockwrite использован совершенно неверно. Из целой переменной (два байта) записывался только один, а из строковой (256 байт) почему-то два байта..

HalkW, прочти внимательно условие и пойми, что это задание - на отработку именно файлов типа text. А они существуют не для усложнения, а для упрощения. Работать с на уровне blockwrite намного сложнее.

Добавлено через 5 мин.

Из целой переменной (два байта) записывался только один, а из строковой (256 байт) почему-то два байта

Упс сорри, недогляд, не посмотрел на открытие файла. Правильно так: из целой записывалось 128 байт, а из строковой таки 256. Но - и с длиной, и с хвостом..)) Короче, ответ все равно один: используй text, Write и WriteLn.