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

 

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