28.08.2015, 13:00 | #1 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Выводятся не все символы
Код:
var f2,f:text; c:char; s:array[char] of integer; begin assign(f,'input.txt'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); s[c]:=s[c]+1; end; readln(f); end; assign(f2,'K3.txt'); Rewrite(f2); for c:=#0 to #255 do if s[c]<>0 then writeln(f2,c:4,':',s[c]); close(f); close(f2); end. |
28.08.2015, 13:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите похожие топики, может что то проясниться Word, непонятные символы и иероглифы Отсортировать символы по убыванию частот Паскаль, символы и строки Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов После переустановки ОС не печатаются некоторые символы Периодически не печатаются символы |
28.08.2015, 13:16 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Чем просматриваете текстовый документ? Кодировку менять пробовали? Прикрепите файлы input.txt и K3.txt к следующему сообщению.
Без содержимого файла input.txt сложно понять, почему что-то работает не так, как вы задумали. Насколько я понял, программа считает сколько раз каждый символ встречается в тексте. Тут опять таки проблема может быть в кодировке текста, если используется не ASCII, то в массив просто не попадут символы русского алфавита, так как их номера в кодовой таблице имеют значение больше 255. Вот примеры текстовых файлов в кодировке CP866, которая подходит к вашему листингу: input.txt K3.txt Собственно, все правильно считается, если правильно задачу перед машиной ставить. Создать исходный файл в нужной кодировке можно как при помощи самого FreePascal, так и программой Notepad++.
__________________
Убить всех человеков! Последний раз редактировалось AlexZir; 28.08.2015 в 13:52 Причина: добавил файлы |
28.08.2015, 13:58 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Ставьте Notepad++ и формируйте исходные файлы к заданиям с его помощью.
__________________
Убить всех человеков! |
28.08.2015, 14:02 | #5 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
AlexZir, теперь это понятно стало. А подскажите как не кодировку файла подстроить под кодировку программы, а наоборот? То есть, что-то в коде значит нужно поменять? И возможно ли это? Теперь понятно, что можно через Notepad++. А что, если нет такого редактора и нет возможности его скачать (если предположить такую ситуацию). То как быть?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.08.2015, 14:04 | #6 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Это вполне возможно. В FreePascal есть функции преобразования кодировки текста. Смотрите справку, там все описано. И да, вам нужно будет внести изменения в код.
__________________
Убить всех человеков! |
28.08.2015, 17:18 | #8 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вот что по поводу PascalABC.Net из справки:
Цитата:
__________________
Убить всех человеков! |
|
28.08.2015, 19:05 | #9 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо за информацию! Попробую - может получится.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
free pascal, задача, помогите "чайнику" |
|
|