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

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

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

> Сколько раз в текстовом файле встречается каждая б, Курсовая...
Ксанка
сообщение 21.05.2005 21:30
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

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


Ребят, я никак не разберусь, можете помочь мне в этом вопросе? Пожалуйста.....Курсовую через две недели сдавать....
Задание: Определить, сколько раз в текстовом файле встречается каждая буква....

Сообщение отредактировано: Ксанка - 21.05.2005 21:32
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 7)
Дож
сообщение 21.05.2005 21:33
Сообщение #2


Бывалый
***

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

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


Что значит
Код

Сколько раз в текстовом файле встречается каждая б

Или это буква Б?

Сообщение отредактировано: Дож - 21.05.2005 21:33


--------------------
Доброго времени суток.
:nnn:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.05.2005 22:45
Сообщение #3


Гость






Вот тут пожалуй самый простой способ: Задача на обработку текста
Идея понятна?
 К началу страницы 
+ Ответить 
Ксанка
сообщение 22.05.2005 10:07
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

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


Неее, Дож, не Б, а каждая букваsmile.gif
Вот ткое вот задание: Определить, сколько раз в текстовом файле встречается каждая буква.

volvo, спааассибо за ссылку, только как переделать алгоритм, чтобы он считал кол-во каждой буквы в тексте? huh.gif

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


Гость






Цитата(Ксанка @ 22.05.05 10:07)
чтобы он считал кол-во каждой буквы в тексте? huh.gif

blink.gif А сейчас он что считает?
 К началу страницы 
+ Ответить 
Дож
сообщение 22.05.2005 10:20
Сообщение #6


Бывалый
***

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

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


Код

Const letters=100;
        alphabet: array[1..letters] of char=
        ('А','Б','В','Г','Д','Е'.......,'x','y','z');
Var f              : file;
     letterNum : array[1..letter] of word;
...
...
While not(eof(f)) do begin
read(f,C);
j:=0;
While j<>Letters do begin
j:=j+1;
If alphabet[j]=C then letterNum[j]:=letterNum[j]+1;
end;
end;
...
...


В результате букв Alphabet[i] будет равно letterNum[i]. Но при этом решение не предусматриваются большие и маленькие буквы. Это является условием?
{Надеюсь, файл откроешь сама ;)}


--------------------
Доброго времени суток.
:nnn:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 22.05.2005 10:30
Сообщение #7


Гость






Дож,
можно проще:
const
  alpha: set of char =
    ['а' .. 'п', 'р' .. 'я', 'А' .. 'П', 'Р' .. 'Я', 'a' .. 'z', 'A' .. 'Z'];
var
 cnt: array[char] of integer;
 ch: char;
 f: file of char;
begin
 { open file ... }
 while not eof(f) do begin
   read(f, ch); inc(cnt[ch]);
 end;
 { close file ... }
 for ch := #32 to #255 do
   if ch in alpha then writeln('letter - ', ch, ' counter: ', cnt[ch]:4);
end.

Кстати, работать будет побыстрее, потому что наличие элемента во множестве определяется намного быстрее, чем проход по alphabet в поисках буквы...
 К началу страницы 
+ Ответить 
Ксанка
сообщение 22.05.2005 10:56
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

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


Дож!!: wub.gif Спасибо, самое оно, разобралась! :thanks: volvo wub.gif и тебе большое спасибо, точно быстрее! :thanks:

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

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

 

- Текстовая версия 28.07.2025 4:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"