Задача со строками

[Panda]

Помогите сделать программу.
Строка Т состоит из слов, разделенных пробелами, и содержит русский текст. Выяснить сколько слов начинается приставкой «пре».

[puporev]

Если не влезать в дебри русского языка и считать, что первые три буквы пре- это пристаквка, то делаем так:

uses crt;
var s:string;
    i,k:integer;
begin
clrscr;
write('s: ');readln(s);
k:=0;
while pos('пре',s)>0 do
   begin
    delete(s,1,pos('пре',s)+3);
    k:=k+1;
   end;
write('k=',k);
readln
end.

Если же разбираться, когда пре- это приставка, а когда нет, то это задача для хорошего филолога.

[Panda]

Сообщение от puporev

Если не влезать в дебри русского языка и считать, что первые три буквы пре- это пристаквка, то делаем так:

uses crt;
var s:string;
    i,k:integer;
begin
clrscr;
write('s: ');readln(s);
k:=0;
while pos('пре',s)>0 do
   begin
    delete(s,1,pos('пре',s)+3);
    k:=k+1;
   end;
write('k=',k);
readln
end.

Если же разбираться, когда пре- это приставка, а когда нет, то это задача для хорошего филолога.

Спасибо!!!

[bag]

Сообщение от puporev

Если не влезать в дебри русского языка и считать, что первые три буквы пре- это пристаквка, то делаем так:

uses crt;
var s:string;
    i,k:integer;
begin
clrscr;
write('s: ');readln(s);
k:=0;
while pos('пре',s)>0 do
   begin
    delete(s,1,pos('пре',s)+3);
    k:=k+1;
   end;
write('k=',k);
readln
end.

Если же разбираться, когда пре- это приставка, а когда нет, то это задача для хорошего филолога.

Интересно, а как эта прога обработает строку:"Пре препрепре"?

[puporev]

Преведите на русский. Ибо на идиотский программа не расчитана.

[bag]

Сообщение от puporev

Преведите на русский. Ибо на идиотский программа не расчитана.

Еще вариант, который правильно обрабатывает "идиотский язык"

uses crt;
var
 c:integer;
 s:string;
begin
  clrscr;
  write('stroka='); readln(s);
  s:=' '+s+' ';
  while pos(' пре',s)>0 do
  begin
    inc(c);
    delete(s,1,pos(' пре',s));
    delete(s,1,pos(' ',s)-1);
  end;
  writeln('kol. slov=',c);
  readkey;
end.

From Stilet: Ты был бы еще молодцее, якби оформлял код спецтегом (#)

[Serge_Bliznykov]

bag. Молодец!! Плюс.

puporev
а имхо, Вы не правы... :-(

во-первых, грубо... :-(
а во-вторых, в Вашей программе совершенно не учитывается условие "сколько слов начинается приставкой «пре»."
И, если Вам так не нравится "идиотский язык", то попробуйте слова "светопредставление, попрекать, сопредельный" и ещё много-много русских слов )

[puporev]

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

[Stilet]

Чтоб вы окончательно помирились скажу что задание у автора не полное, ибо походу имеется ввиду что перед ПРЕ больше приставок нет, т.е. слова сопредельный или недоперепить не учитываются, иначе нужно писать анализатор корней, а это уж на крупненькую прогу потянет. )

Тем паче что автор обьявил благодарность. Так что тему закрываю.