Работа с текстом. - Паскаль, Turbo Pascal, PascalABC.NET

Marcus75 · 19.12.2011, 19:41

Помогите пожалуйста написать программу, которая будет заменять в веденном тексте все большие буквы маленькими.

rubius2008 · 19.12.2011, 19:56

Код:

for i:=1 to length(s) do if UpCase(s[i])=s[i] then s[i]:=LowCase(s[i]);

тут используется функция LowCase она определена в PascalABC, в Turbo Pascal ее нет, нужно будет делать через код символа.

Marcus75 · 19.12.2011, 19:57

Цитата:

Сообщение от rubius2008

Код:

for i:=1 to length(s) do if UpCase(s[i])=s[i] then s[i]:=LowCase(s[i]);

тут используется функция LowCase она определена в PascalABC, в Turbo Pascal ее нет, нужно будет делать через код символа.

Мне бы для Turbo Pascal

rubius2008 · 19.12.2011, 20:04

Воспользуйтесь функциями chr и ord для решения вашей задачи. Я не помню коды символов надо смотреть таблицу. Код будет примерно такой

Код:

for i:=1 to length(s) do if UpCase(s[i])=s[i] then s[i]:=chr(ord(s[i])+x);

x - надо подобрать, см. таблицу ASCII

Serge_Bliznykov · 20.12.2011, 00:35

делайте по принципу, изложенному ЗДЕСЬ

19.12.2011, 19:41	#1
Marcus75 Пользователь Регистрация: 19.12.2011 Сообщений: 15	Работа с текстом. Помогите пожалуйста написать программу, которая будет заменять в веденном тексте все большие буквы маленькими.

19.12.2011, 19:56	#2
rubius2008 Форумчанин Регистрация: 19.03.2010 Сообщений: 409	Код: `for i:=1 to length(s) do if UpCase(s[i])=s[i] then s[i]:=LowCase(s[i]);` тут используется функция LowCase она определена в PascalABC, в Turbo Pascal ее нет, нужно будет делать через код символа. Есть вопросы, пишите в ЛС.

19.12.2011, 20:04	#4
rubius2008 Форумчанин Регистрация: 19.03.2010 Сообщений: 409	Воспользуйтесь функциями chr и ord для решения вашей задачи. Я не помню коды символов надо смотреть таблицу. Код будет примерно такой Код: `for i:=1 to length(s) do if UpCase(s[i])=s[i] then s[i]:=chr(ord(s[i])+x);` x - надо подобрать, см. таблицу ASCII Есть вопросы, пишите в ЛС.

20.12.2011, 00:35	#5
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	делайте по принципу, изложенному ЗДЕСЬ