Версия для печати темы

Автор: Katelinna00 13.11.2012 3:06

Помогите пожалуйста!
Условие задачи: подсчитать количество слов, оканчивающихся на ЕЕ в нечетных абзацах и на О в четных.
У меня получается найти слова в предложениях, но я не могу понять как это сделать с абзацами.



Program work;
uses crt;
var
k,k1:integer;
s,s1,s2,s3,s4:string;
begin
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k:=0;
s1:='ее';
while s<>'' do
begin
s2:=copy(s,1,pos(' ',s)-1);
if pos(s2[length(s2)],s1)<>0 then
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('Слова, оканчивающиеся на ее = ',k);
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k1:=0;
s3:='о';
while s<>'' do
begin
s4:=copy(s,1,pos(' ',s)-1);
if pos(s4[length(s4)],s3)<>0 then
k1:=k1+1;
delete(s,1,pos(' ',s));
end;
write('Слова, оканчивающиеся на о = ',k1);
readln;
end.

Автор: Krjuger 13.11.2012 20:54

Чем заканчивается каждый абзац? Правильно, символом перехода на новую строку, вот и надо сделать счетчики на эти символы. Код символа перехода на новую строку 13.Единственное тут надо знать, какого рода сам файл, потому в некоторых программах когда идет автоматический перевод на новую строку при выходе за пределы листа, там проставляется переход на новую строку самостоятельно.
Либо ввести какой-нибудь символ или комбинацию символов, знаменующие конец абзаца и проверять на их присутствие.

Автор: Katelinna00 14.11.2012 20:21

Цитата(Krjuger @ 13.11.2012 15:54)