Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Текстовый файл

Автор: Kempf 6.04.2007 12:07

Народ, подскажите ПОЖАЛУЙСТА, как можна написать эту програмку.


Дан текстовый файл, дописать в его конце следующие данные: количество строк и количество символов в кождой строке.

Заранее благодарен.

Автор: Renbo 6.04.2007 12:15

Всё зависит в первую очередь от подхода: каким доступом пользуешься?(прямой или параллельный)
Поэтому код мальца разный будет.

Автор: Kempf 6.04.2007 12:53

Цитата(Renbo @ 6.04.2007 11:15) *

Всё зависит в первую очередь от подхода: каким доступом пользуешься?(прямой или параллельный)
Поэтому код мальца разный будет.


Ты знаешь, я в новичёк в этом деле, и не совсем понимаю что ты имеешь в виду?

Хотелось бы немного поподробнее узнать, в общих чертах, о построении алгоритма к этой задачке.

Автор: мисс_граффити 6.04.2007 12:57

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

Автор: Kempf 6.04.2007 13:02

Цитата(мисс_граффити @ 6.04.2007 11:57) *

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...


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

Автор: мисс_граффити 6.04.2007 13:10

Kempf, а в чем проблема?
прошел по файлу, все посчитал (это умеешь?), потом открыл с помощью append и дописал...

Автор: Kempf 6.04.2007 13:13

Цитата(мисс_граффити @ 6.04.2007 12:10) *

Kempf, а в чем проблема?
прошел по файлу, все посчитал (это умеешь?), потом открыл с помощью append и дописал...


У проблемы с Append, не могу открыть с помощью этой процедуры файл.
Если можешь, то напиши листинг использования этой процедуры.

Автор: Renbo 6.04.2007 13:17

Цитата(мисс_граффити @ 6.04.2007 9:57) *

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...


Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ


Kempf, создаёшь фаил.


USES CRT;

Procedure kol-voStrok;
Var
s:string;
i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
begin
read(File,s);
inc(i);
end;
write('У вас в файле ',i,' строк');
readkey;
End;




Это кол-во строк

Автор: Kempf 6.04.2007 13:21

Цитата(Renbo @ 6.04.2007 12:17) *

Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ
Kempf, создаёшь фаил.


USES CRT;

Procedure kol-voStrok;
Var
s:string;
i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
begin
read(File,s);
inc(i);
end;
write('У вас в файле ',i,' строк');
readkey;
End;




Это кол-во строк




Это я понял, а как это дописать в этот же файл?

Автор: klem4 6.04.2007 13:26

Renbo
 ! 
7. Проверяйте программы перед тем, как разместить их на форуме!!!
Устное замечание, в следующий раз получишь предупреждение




Ты уверен что твоя программа выдат верный результат ? Я нет. Мало того это даже компилироваться не будет, а если исправить синтаксис и скомпилировать, такая программа повиснет на веки.

Автор: Kempf 6.04.2007 13:36

Ну так что, люди, как мне быть?


Автор: мисс_граффити 6.04.2007 15:16

посмотри в паскалевском help - там есть пример использования.
а если у тебя не получается - покажи, хотя бы, как пробуешь.