Строки!Помогите. пожалуйста Опции

[Дымка]

Дана строка, содержащая текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новой строке отредактированный текст, в котором удалены подряд идущие вхождения слов в предложениях.
Не понимаю, как ее сделать!!Помогите, пожалуйста!!

[Дымка]

А можно еще пару глупых вопросов и с этой задачей покончено?!
For i := 1 To Ord(s[0]) Do
Case s[i] Of
'a' .. 'z': s[i] := Chr(Ord(s[i])-$20);
#160 .. #175: s[i] := Chr(Ord(s[i])-$20);
#224 .. #239: s[i] := Chr(Ord(s[i])-$50)
End;
Паскаль мой почти на школьном уровне, поясните . пожалуйста про Chr и Ord . Не совсем понимаю, что будет выполняться. и что значит -$20

И вот эту строчку...dec(p, length(_word))

[klem4]

А можно еще пару глупых вопросов и с этой задачей покончено?!
   For i := 1 To Ord(s[0]) Do
     Case s[i] Of
       'a' .. 'z': s[i] := Chr(Ord(s[i])-$20);
       #160 .. #175: s[i] := Chr(Ord(s[i])-$20);
       #224 .. #239: s[i] := Chr(Ord(s[i])-$50)
     End;
Паскаль мой почти на школьном уровне, поясните . пожалуйста про Chr и Ord . Не совсем понимаю, что будет выполняться. и что значит -$20

И вот эту строчку...dec(p, length(_word))

Все просто :

Chr(97)='a'

ord('a')=97

обратные друг к другу ф-и одна возвращает код по символу, а другая символ по коду

dec( a,b ) равносильно a:=a-b;
inc( a,b ) равносильно a:=a+b;

dec(a) равносильно a:=a-1;
inc(a) равносильно a:=a+1;

соответственно dec(p, length(_word)) - уменьшает p на величину, равную длинне строки _word

Сообщение отредактировано: klem4 - 10.07.2005 17:42