• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

Операции Над Строками В Pascale

  • Автор темы Valian
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

Valian

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

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.
 

Senset

Well-known member
11.09.2006
136
0
#2
Вы с самого начала вводите лишь одно предложение, которое потом анализируете... Может быть Вам необходимо использовать файлы (там много строк, понятно где начинается абзац и т.п.)?
Или же второй вариант это: "сделать условный абзац в строке например по символу \n", т.е.:
s='Это первый абзац\nЭто второй абзац'
Но при этом стоит учитывать, что маскимальный набор символов в строке (для паскаля)=255
При ручном вводе строки, Вы сможете набить только 160 символов (если это турбо паскаль, а в фри - такой баги вроде нет)
 
Статус
Закрыто для дальнейших ответов.