 Распознавание. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| mihas |
 28.08.2003 9:07
Сообщение
#1
|
|
Гость  |
??? Help Me !!! Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше - русских букв или цифр.
|
 
|
|
| AlaRic |
28.08.2003 17:19
Сообщение
#2
|
|
...  Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация:  3  |
С помощью множеств можно решить! Два множества: одно из русских букв, а другое из цифр. Посчитаешь сколько раз какое множество входит в текст файла и сравнить!
|
   |
|
| mvg |
28.08.2003 18:29
Сообщение
#3
|
 Новичок Группа: Пользователи Сообщений: 36 Репутация: 0 |
дык я вроде эту задачу еще в обед того... ;). см. тему про "обрезание" массива
-------------------- Да пребудет паскаль вовеки!
|
|
|
|
| mihas |
29.08.2003 14:20
Сообщение
#4
|
|
Гость |
Цитата дык я вроде эту задачу еще в обед того... ;). см. тему про "обрезание" массива Да огромное спасибо тебе!!! Программа заработала, только видимо из=за того что ты торопился небольшие ошибочки допустил ( например строки-константы не могут быть массивами) , вот рабочий код программы: Код program readfile; var nr,nb,i:longint;rus,num:string; f:file of byte;b:byte; s:string; begin rus:='АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзиймлкнопрстуфхцчшщьыъэюя'; num:='123456789'; nr:=0;nb:=0; assign(f,'text.txt');reset(f); repeat read(f,B); for i:=1 to length(rus) do if chr(B)=rus[i] then nr:=nr+1; for i:=1 to length(num) do if chr(B)=num[i] then nb:=nb+1; until eof(f); close(f); s:='Букв больше'; if nb=nr then s:='Равное количество'; if nb>nr then s:='Цифр больше'; writeln(s); readln; end. Сообщение отредактировано: volvo - 17.12.2004 13:49 |
|
|
|
| zx1024 |
29.08.2003 14:34
Сообщение
#5
|
 Пионер Группа: Пользователи Сообщений: 119 Пол: Мужской Репутация: 0 |
4 байта коту под хвост.
Код n : longint; ... for i:=1 to length(rus) do if chr(B)=rus[i] then n:=n+1; for i:=1 to length(num) do if chr(B)=num[i] then n:=n-1; ... s:='Букв больше'; if n=0 then s:='Равное количество'; if n<0 then s:='Цифр больше'; Сообщение отредактировано: volvo - 17.12.2004 13:49 |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 17:10 |