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

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

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

 
 Ответить  Открыть новую тему 
> Файловая задача
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Помогите пожалуйста!!У меня задача, которую я не понимаю!!Все сайты облазила ни где не могу найти!!Вот условие: Дан файл содержащий текст на русском языке и некоторые два слова. Определить, сколько раз они встречаются в тексте и сколько из них непосредственно друг за другом.Я вас умоляю помогите!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  -1  +


Мне нужно решение абсолютно идентичной задачи! Уже гигабайт траффика сжег пока искал и так и не нашел! Просьба большая не давать ссылки (там все равно нет того что нужно, я смотрел по 10 раз).
Хотя бы часть задачи может у кого нибудь есть или просто похожая! Выручайте!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


хотя бы вот это бы почитали:
Разбиение на слова. Все способы.

считали строку. с помощью pos посмотрели, есть ли надежда обнаружить хотя бы одно из слов. если есть -разбили строку на слова. посчитали, сколько раз встречается первое, сколько второе. нашли, где они по соседству.
считали следующую строку...

на каком этапе трудности?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  -1  +


Сам алгоритм действий я знаю. Как эти действия реализовать в Паскале не знаю. Дали похожую задачу. Что в ней нужно изменить для получения нужного результата? Тему я читал. Это что либо даст тому у кого хорошая база знаний. У меня пока ее нет. Сдавать вот уже завтра. Было бы больше времени.

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.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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