Полная версия: Поиск слов с окончаниями
Найти слова из текстового файла с окончаниями -онок и -енок и вывести их на экран.Как искать слова по их началу я знаю, а вот как наоборот? Наработки приводить не буду т.к. вам этот бред скорее всего не пригодиться. Заранее спасибо!
pos('енок',s)
Код
uses crt;
var s:string;
i,n,nah:integer;
begin
clrscr;
write('write text ';
readln(s);
n:=Length(s);
nah:=1;
for i:=1 to n do begin
if (s[i+1]=' ' or (i=n) then begin
if (copy(s,i-3,4)='онок' or (copy(s,i-3,4)='енок' then writeln(copy(s,nah,i-nah+1));
if s[i+2]<>' ' then nah:=i+2;
end;
end;
readln;
end.
var s:string;
i,n,nah:integer;
begin
clrscr;
write('write text ';
readln(s);
n:=Length(s);
nah:=1;
for i:=1 to n do begin
if (s[i+1]=' ' or (i=n) then begin
if (copy(s,i-3,4)='онок' or (copy(s,i-3,4)='енок' then writeln(copy(s,nah,i-nah+1));
if s[i+2]<>' ' then nah:=i+2;
end;
end;
readln;
end.
Вот еще вариант но тут ввод строки. Как заменить на поиск из файла?
...
var F: Text;
...
Assign(F, 'name.txt);
ReSet(F);
...
While not EOF(F) do
begin
ReadLn(F, S);
...
end;
...
Close(F);
...
Цитата
Вот еще вариант но тут ввод строки.
А ты этот "вариант" откомпилировать пробовал?
Код
program a;
var f : text;
s:string;
i,n,nah:integer;
begin
assign (f,'file.txt');
reset (f);
while not eof (f) do begin
n:=length(s);
nah:=1;
for i:=1 to n do begin
if (s[i+1]=' ' or i=n) then begin
if ((copy (s,i-3,4)='onok') or (copy(s,,i-3,4)='enok') then
writeln (copy(s,nah,i-nah+1));
if s[i+2]<>' ' then nah:=i+2;
end;
end;
readln;
end.
var f : text;
s:string;
i,n,nah:integer;
begin
assign (f,'file.txt');
reset (f);
while not eof (f) do begin
n:=length(s);
nah:=1;
for i:=1 to n do begin
if (s[i+1]=' ' or i=n) then begin
if ((copy (s,i-3,4)='onok') or (copy(s,,i-3,4)='enok') then
writeln (copy(s,nah,i-nah+1));
if s[i+2]<>' ' then nah:=i+2;
end;
end;
readln;
end.
if (s[i+1]=' ' or i=n ) then begin - тут выдается ошибка о несовпадении типов.Что не так?
(s[i+1]=' ') or (i=n)
Условия, разделяемые or/and/xor всегда должны заключаться в скобки.
Zloy student, я про это и говорил 
Приоритеты надо расставлять (скобками):
Приоритеты надо расставлять (скобками):
for i:=1 to n do begin
if (s[i+1]=' ') or (i=n) then begin
if (copy(s,i-3,4)='onok') or (copy(s,i-3,4)='enok') then
writeln (copy(s,nah,i-nah+1));
if s[i+2]<>' ' then nah:=i+2;
end;
end;
Zloy student
Ты забыл вставить
ReadLn(F, S);
У тебя из файла строки НЕ читаются
Ты забыл вставить
ReadLn(F, S);
У тебя из файла строки НЕ читаются
Спосибо! У меня еще вопрос. Что нужно поменять, чтобы выводились слова содержащие заглавные буквы?
...
if s[i] in ['А'..'Я'] then {Заглавная буква есть!}
if s[i] in ['А'..'Я'] then {Заглавная буква есть!}
Тогда выводятся слова кончающиеся на заглавную.
Zloy student,
Реализация StrUpper - здесь: Модуль для работы со строками
...
if (copy(StrUpper(s),i-3,4)=StrUpper('onok')) or (copy(StrUpper(s),i-3,4)=StrUpper('enok')) then
writeln (copy(s,nah,i-nah+1));
...
Реализация StrUpper - здесь: Модуль для работы со строками
А попроще никак нельзя? мне не поверят что это я писал 
Нужно выводить слова содержащие заглавную букву!
Ну что за народ... Мало того, что даешь решение, так еще и попроще подавай 
Тогда делай сам, чтобы поверили, что это ты делал... Хотя я вообще не понимаю, что, твоя программа НЕ выведет слово
Lisenok
?
Тогда объясни, ЧТО ИМЕННО этому помешает?
Тогда делай сам, чтобы поверили, что это ты делал... Хотя я вообще не понимаю, что, твоя программа НЕ выведет слово
Lisenok
?
Тогда объясни, ЧТО ИМЕННО этому помешает?
Вот блин! Мне надо понятней выражаться. Забейте на окончания. Задание у меня такое: вывести из файла слова содержащие заглавную букву. Не создаю другую тему потому что задания похожие.Что в этой программе нужно поменять?
Правила прочти ВНИМАТЕЛЬНО !!! Свалку не надо из темы делать...
Сформулируй задачу как положено и создай новую тему...
Закрыто
Сформулируй задачу как положено и создай новую тему...
Закрыто
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.