IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Текстовый файл
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +



Дан текстовый файл. Посчитать число повторений в нём строчных английских букв ("a"-"z") и создать строковый файл, элементы которого имеют вид "буква"-"число повторений буквы". Буквы,отсутствующие в тексте не включать. Строки упорядочить по возрастанию кодов букв.

Подскажите метод решения или натолкните на мысль. smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Открываем файл. Можно создать массив строк и добавить в цикле туда все строки файла.Можно и просто добавить в s: string 1-ую,2-ую,3-ую,..n-ую строку и каждый раз с ней работать.Дело в принципе твое.Делаешь цикл for c {Char}:='a' to 'z' do begin Далее в символ сh: char добавить по очереди каждый символ очередной строки и смотреть - ch=c ?. И так со всему строками, но только если символ повторился несколько раз,тогда открывай счетчик I: integer;!В конце цикла забиваешь в строковой файл "ch"-"i". И далее в цикле в сh добавится новая буква и опять по новой!


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Здесь есть алгоритм: Задача на обработку текста

(надо только немного изменить вывод)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(Артемий2 @ 10.03.2007 19:40) *

Открываем файл. Можно создать массив строк и добавить в цикле туда все строки файла.Можно и просто добавить в s: string 1-ую,2-ую,3-ую,..n-ую строку и каждый раз с ней работать.Дело в принципе твое.Делаешь цикл for c {Char}:='a' to 'z' do begin Далее в символ сh: char добавить по очереди каждый символ очередной строки и смотреть - ch=c ?. И так со всему строками, но только если символ повторился несколько раз,тогда открывай счетчик I: integer;!В конце цикла забиваешь в строковой файл "ch"-"i". И далее в цикле в сh добавится новая буква и опять по новой!

Не мог бы ты немного поподробней...пример катануть...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Ну попробуй вот так, если то..
var
arr: array [1..20] of string[255];
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs: file of string[255];
begin
a:=0; o:=0; count:=0;
assign(t,'ban.dat');
assign(fs,'words.dat');
reset(t);
rewrite(fs);
while not eof(t) do begin
Inc(a);
readln(t,arr[a]);
end;
for ch:='a' to 'z' do begin
for d:=1 to 20 do begin
st:=arr[d];
if not (st='') then begin
repeat
inc(o);
if st[o]=ch then begin inc(count); end;
until o=length(st);
o:=0;
end else Break;
end;
if not (count=0) then begin
str(count,s);
s:='Word '+ch+' - '+s+' raz.';
write(fs,s);
count:=0;
end else count:=0; Continue;
end;


Добавлено через 5 мин.
Цитата
Строки упорядочить по возрастанию кодов букв.

Пока сделано без этого

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(Артемий2 @ 11.03.2007 16:53) *
Ну попробуй вот так, если то..


Большое спасибо! Сейчас попробую запустить. Ааа...ну ещё всё-таки нужно упорядочить строки...

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Что-то она не работает...Ничего не записывает в новый файл... А по алфавиту вроде бы должна раставлять.

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Какой у тебя компилятор? Я это делал на Free Pascal!

Добавлено через 6 мин.
У меня все откомпилилось..


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(Артемий2 @ 11.03.2007 20:18) *

Какой у тебя компилятор? Я это делал на Free Pascal!

Добавлено через 6 мин.
У меня все откомпилилось..


Так у меня тоже, но в новый файл ничего не записывает!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Очень странно, у меня все работает.. blink.gif Ты его текстовым открываешь?


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Вот так записывает?

var
cnt: array['a' .. 'z'] of integer;
s: string;
i: integer;
ch: char;
f, r: text;

begin
assign(f, 'text.txt'); reset(f);
assign(r, 'letter.txt'); rewrite®;
while not eof(f) do begin
readln(f, s);
for i := 1 to length(s) do
if s[i] in ['a' .. 'z'] then inc(cnt[s[i]]);
end;
close(f);

for ch := 'a' to 'z' do
if cnt[ch] > 0 then writeln(r, ch:2, ': ', cnt[ch]:3, '':3);
close®;

end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(Артемий2 @ 11.03.2007 22:05) *

Очень странно, у меня все работает.. blink.gif Ты его текстовым открываешь?


var
arr: array [1..20] of string;
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs:text;
begin
a:=0; o:=0; count:=0;
assign(t,'asd.txt');
assign(fs,'asdf.txt');
reset(t);
rewrite(fs);
while not eof(t) do begin
Inc(a);
readln(t,arr[a]);
end;
for ch:='a' to 'z' do begin
for d:=1 to 20 do begin
st:=arr[d];
if not (st='') then begin
repeat
inc(o);
if st[o]=ch then begin inc(count); end;
until o=length(st);
o:=0;
end;
end;
if not (count=0) then begin
str(count,s);
s:=ch+' - '+s;
writeln(fs,s);
count:=0;
end else count:=0;
end;
end.

Мне пришлось заменить строчный тип файла fs на text,компилятор ошибку выдавал в writeln(fs,s)... В чём косяк может быть?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


удалил..

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(volvo @ 11.03.2007 22:12) *
Вот так записывает?

Да так записывает! Большое спасибо! good.gif

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


var
arr: array [1..20] of string;
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs:text;
begin
a:=0; o:=0; count:=0;
assign(t,'ban.dat');
assign(fs,'words.dat');
reset(t);
rewrite(fs);
while not eof(t) do begin
Inc(a);
readln(t,arr[a]);
end;
for ch:='a' to 'z' do begin
for d:=1 to 20 do begin
st:=arr[d];
if not (st='') then begin
repeat
inc(o);
if st[o]=ch then begin inc(count); end;
until o=length(st);
o:=0;
end;
end;
if not (count=0) then begin
str(count,s);
s:=ch+' - '+s;
writeln(fs,s);
count:=0;
end else count:=0;
end;
close(t);
close(fs);
readln

?


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Ага! Пашет! Спасибо! good.gif

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 22:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name