|
Вопрос # 5 267/ вопрос решён / |
|
Здравствуйте, эксперты!Всех с праздником великой победы!!
Мне нужно написать программу котороая считает колличесвто букв и цифр в текстовом документе. Для решение этой задачи мне подсказали ,что лучше использовать ASK код .Тоесть нужно создать условия которое быдут сравнивать символ с ask-кодмо?. Если да то какой диапозон. Или я что то не правлено понял?
Приложение: Переключить в обычный режим- Reset(f);
- a:=0;
- b:=0;
- while not (eof(f))do
- begin
- Readln(f,s);
- for i:=1 to length(s)
- if 210< ord(s[i])and < 255 then
- a:=a+1;
- ........................
 |
Вопрос задал: Когут Игорь Викторович (статус: Посетитель)
Вопрос отправлен: 9 мая 2011, 06:55
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 9 мая 2011, 07:47; участников в обсуждении: 2.
|
Егор (статус: 10-ый класс), 9 мая 2011, 07:18 [#1]:
ascii код знаю, а ask - нет 
зачем с ascii кодом сравнивать? на разных платформах код символов будет разным, а если ещё вспомнить про такую штуку, как юникод, то...
сравнивать надо с самими символами. и понятнее и не надо париться с кодами.
буквы-то какие считать? только английские,только русские, или ещё какие? (буквы узбекского/грузинского/клингонского алфавитов?)
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
Когут Игорь Викторович (статус: Посетитель), 9 мая 2011, 07:23 [#2]:
извеняюсь не знал как правильно пишется.Пусть будут буквы русского алфавита, но не могу понять какое условие нужно
|
|
Егор (статус: 10-ый класс), 9 мая 2011, 07:47 [#3]:
это неправильно:
if 210< ord(s[i])and < 255 then
надо так:
if 210<ord(s[i]) and ord(s[i])<255 then
кстати, символ с кодом 210 это "╥". не вижу здесь никаких русских букв.
если оперировать не кодами, а самими символами, то так:
if s[i]>='А' and s[i]<='я' then
зы. код будет верно работать только для файлов в win-кодировке. т.е. сохранённых, например, блокнотом.
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
9 мая 2011, 11:46: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
9 мая 2011, 13:46: Статус вопроса изменён на решённый (изменил автор вопроса — Когут Игорь Викторович): прницип условия понял, но в коде программы есть ошибка
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|