![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Creator S. |
![]()
Сообщение
#1
|
Гость ![]() |
С помощью текстового редактора создать файл, содержащий текст,
длина кото¬рого не пре-вышает 500 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая: - выводит текст на экран дисплея; - определить количество слов во втором предложении; второе предложение текста выде-лить цветом. Не могу понять, как делать эту задачу. Может предложите какой-нибудь вариант решения. |
![]() ![]() |
DimaD |
![]()
Сообщение
#2
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Вот программа которая выводит текст на экран дисплея.
1.dat - имя текстового файла. var
St: String;
F: TextFile;
begin
Assign(f,'1.dat');
Reset(f);
while not EOF(F) do
begin
Readln(F,St);
Writeln(St);
end;
CloseFile(F);
Readln;
end.
|
APAL |
![]()
Сообщение
#3
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
А определить количество слов - сюда: http://forum.pascalnet.ru/index.php?showtopic=2361
Пользуйся поиском и F.A.Q. Цвет изменяешь через модуль CRT: TextColor(...); TextBackGround(...); Сообщение отредактировано: APAL - 21.12.2005 1:33 -------------------- |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 9:51 |