IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Из одной программы слепить другую, Найти слова в тексте и определить когда они идут друг за другом
сообщение
Сообщение #1


Гость






Есть программа, которая находит в текстовом файле самое длинное слово и количество раз которое оно употребляется в тексте. И зэтой программы нужно сделать такую чтобы выявляла наличие 2 определенных слов в тексте и подсчитывала сколько раз они в тексте идут друг за другом.
Кто в курсе как сделать?

uses
crt;
var
f:text;
px:^string;
st,s1^string;
flag^boolean;
k,d,maxd,ch:integer;
begin
clrscr;
assign<f, 'c:\tp70\bin\program.txt');
reset(f);
maxd:=1;
while not eof(f) do
begin
flag:=true;
new(px);
readln(f, px^);
while flag=true do begin
k:=pos(' ',px^);
if k<>0 then begin
st:=copy(px^,1,k);
delete(px^,1,k);
if lenght<st>maxd then begin
maxd:=lenght<st>;
s1:=st;
end;
flag:=true;
end;
if k=0 then begin
s:=copy<px^,1,lenght<px^>>;
if lenght<st>maxd then begin
maxd:=lenght<st>;
s1:st;
end;
flag:=false;
end;
end;
dispose<px>;
end;
close<f>;
reset<f>;
while not eof<f> do begin
new<px>;
readln<f,px^>;
k:=pos<s1,px^>;
if k<>0 then ch:ch+1;
dispose<px>;
end;
textcolor<2>;
writeln<'samoe dlinnoe slovo ',s1,' ego dlina ',maxd,' povtor ',ch>;
readln;
end.







 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Сколько можно дублировать одно и то же?

Это что:
Задача на файлы и повторения
?

А это:
Про слова
?

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Так дело в том, что там нет необходимой информации. Первая тема в разделе платных услуг, а во второй нет опять же ничего полезного.
Если бы где то уже было решение этой задачи я бы не дублировал.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.09.2020 13:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name