Дали след. задачу: дан файл с неизвестным кол-вом строк, нужно в начало каждой строки поставить кол-во символов, а в конец файла кол-во строк. Первую часть я вроде сделал, а вот со второй никак... Помогите найти ошибку!!! Заранее благодарен!!!
uses crt;
var a:array [1..100] of string[105];
i,j,m,k:integer;
s:string;
f:text;
begin
assign (f,'chukcha.txt');
reset (f);
begin
repeat
readln (f, a[i]);
i:=i+1;
j:=j+1;
until eof(f);
end;
close(f);
for i:=1 to j do begin
m:=length(a[i]);
str(m, s);
insert (s, a[i], 1);
end;
rewrite (f);
for k:=1 to j do
begin
Writeln(f, a[k]);
end;
Write (f,j);
close (f);
end.
var
j: integer;
s: string;
f, f_out: text;
begin
assign(f,'f.txt'); reset (f);
assign(f_out, 'tmp.txt'); rewrite(f_out);
j := 0;
while not eof(f) do begin
readln(f, s); inc(j);
writeln(f_out, length(s), ' ' + s);
end;
writeln(f_out, j);
close(f); close(f_out);
erase(f); rename(f_out, 'f.txt');
end.
Так:
uses crt;
var
a:array [1..100] of string[105];
i,j,m,k:integer;
s:string;
f:text;
begin
assign (f,'f.txt');
reset (f);
i := 1; j := 0;
begin
repeat
readln (f, a[i]);
i:=i+1;
j:=j+1;
until eof(f);
end;
close(f);
for i:=1 to j do begin
// m:=length(a[i]);
str(length(a[i]), s);
insert (s + ' ', a[i], 1);
end;
rewrite (f);
for k:=1 to i do begin { <--- До I а не J }
Writeln(f, a[k]);
end;
Writeln(f, j);
close (f);
end.
Хм... Неверно работает... Первая часть все круто, а вот вторая... Прога записывает в файл еще одну строчку(в ней "0"), соотвественно суммирует и ее. Итого получается ровно на одну строчку больше...
Не знаю. У меня работает как положено. Приведи свой входной файл...
А ты уверен что в входном файле, в конце нету пустых строк ?
Уверен! Я же ее не создаю! Кстати, когда она есть, то выводит тоже самое! И в чем ошибка???
ЗЫ: Когда в конце кода меняю след.образом все норм. работает!
...
for k:=1 to i-1 do begin
Writeln(f, a[k]);
end;
Writeln(f, j-1);
...
Я думаю, что ты в своей проге исправил строку
for i:=1 to j do begin(кстати, не понял зачем),
i := 1; j := 0;забыл.
for i:=1 to j do begin(кстати, не понял зачем)
i := 1; j := 0;
А ты программу, которую я привел, внимательно изучил, ПРЕЖДЕ, чем говорить, что она не работает? (Hint: смотри строку №11)