|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2009, 12:32 | #1 |
Пользователь
Регистрация: 24.05.2009
Сообщений: 24
|
Текстовые файлы
Помогите разобраться!
Условие: Дан файл, содержащий произвольный текст. Выясните, чего в нем больше: букв или цифр. Мой код: FT: text; C: char; M: set of '0'..'9'; N: set of 'a'..'z'; Begin Assign(FT,'Text.txt'); Reset(FT); While not Eof(FT) begin ReadLn(FT,C); end; close(FT); end. Вопросы: 1.Как можно обратиться к каждому элементу файла, для того чтоб подсчитать чего больше букв или цифр. 2.Должен ли паскаль выводить содержимое файла при получении результата? Последний раз редактировалось Milashka_zp; 24.05.2009 в 13:33. |
24.05.2009, 16:32 | #2 | ||
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
И считывайте файл посимвольно: Код:
Цитата:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
||
24.05.2009, 18:49 | #3 |
Пользователь
Регистрация: 24.05.2009
Сообщений: 24
|
Я переделала программу:
FT: file of char; C: char; N: set of 'a'..'z'; k,m: integer; Begin Assign(FT, 'text.txt'); Reset(FT); k:=0; m:=0; While not Eof(FT) Read(FT,C); if (C in N) then m:=m+1 else k:=k+1; if m>k then writeln('Букв больше') else writeln('Цифр больше'); close(FT); end. Программа постоянно выбивает, "Цифр больше"! Не могу найти ошибку, помогите! Я первый раз сталкиваюсь с файлами в паскале, поэтому подозреваю, что проблема в строке "if (C in N) then". Повторяюсь что я впервые сталкиваюсь с файлами, поэтому я не могу понять что копируется в переменную "С"! |
24.05.2009, 18:57 | #4 | ||
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Код:
Не забывайте, что в файле, кроме цифр и букв, есть пробелы и символы перевода строки. Цитата:
Код:
Код заключайте в теги CODE!
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
||
24.05.2009, 19:16 | #5 |
Пользователь
Регистрация: 24.05.2009
Сообщений: 24
|
Большое спасибо, я поняла свою ошибку!
А та программа запускалась, но содержимое переменной N принемало за число, поэтому и выбивало "цифр больше" |
24.05.2009, 19:19 | #6 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Хотя сложно судить, т.к. вы, похоже, выложили измененный (не рабочий) код.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Текстовые файлы. | alex-2009 | Помощь студентам | 2 | 14.04.2009 15:52 |
Текстовые файлы | ponchikpk | Помощь студентам | 1 | 23.03.2009 22:02 |
текстовые файлы | lusuj | Помощь студентам | 3 | 20.11.2008 19:18 |
Текстовые файлы на С | Raptor | Общие вопросы C/C++ | 15 | 26.01.2008 21:06 |