![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
InviZible |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: ![]() ![]() ![]() |
Решить задачу на обработку текста, использую функции работы со строками.
Предполагается, что исходным является текстовый файл. В текст могут входить слова из латинских букв, цифры, знаки арифметической операции, точка, запятая, пробел. Задача: Вывести на экран те слова, которые отличны от последнего слова текста и первая буква этого слова входит в него ещё раз. больше интересует: как найти последнее слово в строке и из каких символов оно состоит. Заранее спасибо. |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Я ж тебе на Винограде ответил
![]() Ну ладно, смотри: const Может, кто-то сделает проще ... Цитата как найти последнее слово в строке На другом форуме было "в тексте". Извини, это ОЧЕНЬ разные вещи!!! |
InviZible |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: ![]() ![]() ![]() |
я за тобой не успеваю. я только тут, а ты уже там. спасибо.
> На другом форуме было "в тексте". Извини, это ОЧЕНЬ разные вещи!!! так, я сначала вывожу на экран весь текст через ... while not eof(f) readkn(f,s) .... и в переменной s отсается последнея строка из текста. И мне нужно вытащить из s это слово. |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Цитата И мне нужно вытащить из s это слово. А зачем? Ты что, потом, чтоб найти все НЕсовпадающие слова будешь второй раз по файлу проходить? Ты сначала посмотри, как это сделано в программе, которую тебе предложили, разберись, а потом будешь критиковать. |
InviZible |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: ![]() ![]() ![]() |
я не криткую.
да, буду второй раз по файлу проходить, т.к. может встретиться такое слово и во всём тексте. |
InviZible |
![]()
Сообщение
#6
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: ![]() ![]() ![]() |
Всем спасибо, вот мой вариант
Код program textproga; uses crt; var bukvi:set of char; f:text; slovo,c,s,possl:string; pslovo,i,k,j:integer; massl:array[1..100] of string; begin clrscr; assign(f,'E:/tp7/bin/test/text.txt'); reset(f); bukvi:=['A'..'Z','a'..'z']; j:=1; writeln('====Text====================='); while not eof(f) do begin readln(f,s); writeln(s); i:=1; while (i <=length(s)) do begin pslovo:=0; if not (s[i] in bukvi) then inc(i); slovo:=''; while (i <=length(s)) and (s[i] in bukvi ) do begin pslovo:=1; slovo:=slovo+s[i]; inc(i); end; if pslovo=1 then begin massl[j]:=slovo; inc(j); end; end; end; writeln('============================='); for i:=1 to j-1 do write(massl[i],' '); writeln; writeln('****last word****************'); possl:=massl[j-1]; writeln(possl); writeln('*****************************'); for i:=1 to j do begin slovo:=massl[i]; c:=slovo[1]; delete(slovo,1,1); if pos(c,slovo) > 0 then begin slovo:=c+slovo; massl[i]:=slovo; if (slovo<>possl) then writeln(slovo); end; end; { writeln(possl); esli nujno pechatat' possl } close(f); readln; end. |
![]() ![]() |
![]() |
Текстовая версия | 1.09.2024 8:48 |