Вобщем такая задачка :
В заданном предложении заменить все строчные латинские буквы прописными.
Определить ,сколько раз в преобразованном предложении встречается
сочетание символов "А+В" Напечатать исходный и преобразованный тексты,
а также число встретившихся сочетаний.
Возникает сразу 2 вопроса:
-Как перевести строчные в прописные (говорят что както при помощи таблицы ASCII)
и -Как вообще понимать второе предложение?)))
Помогите пожалуйста кто силён?... я в тупике
for i := 1 to length(s) do
s[i] := UpCase(s[i]);
Благодарю!!! Работает!!))) Ну а как же всётаки быть со вторым вопросом?
Вот через таблицу, но для латинского алфавита:
for i:=1 to length(s) do if (ord(s[i])>=97) and (ord(s[i])<=122) then s[i]:=chr(ord(s[i])-32);
end.
Вот и именно что с плюсом
Ну это в целом ничего не меняет.. просто будешь искать pos('A+B',s) и все))
а можно еще так:
if (s[i]='A') and (s[i+1]='+') and (s[i+2]='B') then inc(kol);
Ну а что принять в качестве А и В ? любые 2 буквы чтоли?
Хм.. знаешь, вот я это "А+B" поняла как сочетание трех конкретных символов.. если тебе непонятно задание, то лучше спросить у препода..
А! ,всё, допёрло!!))) Айра спасибо! как всё оказывается просто было!)))
s := 'hello A+B world AA+B+B !!!';Что получим? Сколько раз 'A+B' встречается в строке? Внимательней с такими вещами...
а если удалять не А+В, а весь кусок строки, который заканчивается этим сочетанием?
ну или наоборот - копировать "хвост"...