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

Тема в разделе "Pascal and Delphi", создана пользователем Valian, 13 ноя 2012.

Статус темы:
Закрыта.
  1. Valian

    Valian Гость

    Условие задачи: подсчитать количество слов, оканчивающихся на ЕЕ в нечетных абзацах и на О в четных. Реализовать задачу необходимо в 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.
     
  2. Senset

    Senset Well-Known Member

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

Поделиться этой страницей