![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
jula939393 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 28.4.2013 Репутация: нет Всего: нет |
Здравствуйте!!!Помогите пожалуйста!!!
Написать программу, которая считывает текст из файла и выводит его на экран, заменив цифры от 0 до 9 на слова «ноль», «один», ..., «девять», начиная каждое предложение с новой строки. Можно переписать с Паскаля: USES CRT; CONST Separators:set of char=['.','!','?']; {множ-во: разделители} Digits:set of char=['0'..'9']; {множ-во: цифры} sDigits:array['0'..'9'] of string= ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять'); fname:string='file.txt'; VAR f:text; snt:string; c,ch:char; flagSnt:boolean; BEGIN clrscr; assign(f,fname); {Открытие исходного файла:} {$I-} reset(f); {$I+} if (IOResult<>0) then begin writeln('Ошибка! Невозможно открыть файл "',fname,'"'); exit; end; snt:=''; flagSnt:=false; while not eof(f) do begin {цикл - пока не конец файла:} read(f,c); {чтение символа} if c in Digits then {если это цифра} snt:=snt+sDigits[c] {заменить на соотв. слово} else snt:=snt+c; if c in Separators then begin {если это разделитель} if flagSnt then begin flagSnt:=false; writeln(snt); {вывести предложение} end; snt:=''; {начать новое предложение} end else flagSnt:=true; end; close(f); END. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |