Народ, подскажите ПОЖАЛУЙСТА, как можна написать эту програмку.
Дан текстовый файл, дописать в его конце следующие данные: количество строк и количество символов в кождой строке.
Заранее благодарен.
Автор: 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 - там есть пример использования. а если у тебя не получается - покажи, хотя бы, как пробуешь.