IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

> Перевод программы на си
ammaximus
сообщение 20.05.2008 10:30
Сообщение #1


Ночной волк
**

Группа: Пользователи
Сообщений: 103
Пол: Мужской

Репутация: -  1  +


Программа меняет заглавные буквы в строке на строчные. Помогите перевести на си. Есть ли эквиваленты ord, chr?

uses crt;
const n=20;
var s:string[n];
i:integer;
begin
readln(s);
for i:=1 to n do
begin
if s[i] in ['Ђ'..'Џ'] then s[i]:=chr(ord(s[i])+32); // от а до п
if s[i] in ['ђ'..'џ'] then s[i]:=chr(ord(s[i])+80); //от р до я
end;
writeln(s);
readkey;
end.


--------------------
Не думай о белой обезьяне.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 20:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"