![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Ксанка |
![]() ![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Репутация: ![]() ![]() ![]() |
Ребят, я никак не разберусь, можете помочь мне в этом вопросе? Пожалуйста.....Курсовую через две недели сдавать....
Задание: Определить, сколько раз в текстовом файле встречается каждая буква.... Сообщение отредактировано: Ксанка - 21.05.2005 21:32 |
![]() ![]() |
Дож |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 179 Пол: Мужской Репутация: ![]() ![]() ![]() |
Что значит
Код Сколько раз в текстовом файле встречается каждая б Или это буква Б? Сообщение отредактировано: Дож - 21.05.2005 21:33 -------------------- Доброго времени суток.
:nnn: |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
Вот тут пожалуй самый простой способ: Задача на обработку текста
Идея понятна? |
Ксанка |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Репутация: ![]() ![]() ![]() |
Неее, Дож, не Б, а каждая буква
![]() Вот ткое вот задание: Определить, сколько раз в текстовом файле встречается каждая буква. volvo, спааассибо за ссылку, только как переделать алгоритм, чтобы он считал кол-во каждой буквы в тексте? ![]() Сообщение отредактировано: Ксанка - 22.05.2005 10:18 |
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
Цитата(Ксанка @ 22.05.05 10:07) чтобы он считал кол-во каждой буквы в тексте? ![]() ![]() |
Дож |
![]()
Сообщение
#6
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 179 Пол: Мужской Репутация: ![]() ![]() ![]() |
Код 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: |
volvo |
![]()
Сообщение
#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 в поисках буквы... |
Ксанка |
![]() ![]()
Сообщение
#8
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Репутация: ![]() ![]() ![]() |
Дож!!:
![]() ![]() Сообщение отредактировано: Ксанка - 22.05.2005 10:57 |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 4:10 |