Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Чат
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ Обработка текста: Перевод в заглавные буквы (верхний регистр)            }
{--------------------------------------------------------------------------}
{ На входе - текст, на выходе - текст из больших букв                      }
{--------------------------------------------------------------------------}
var s:string;

function BigAlpha(ps:string):string;
var i:integer;
begin
   for i:=1 to length(ps) do begin
     case ps[i] of
        'a'..'z','а'..'п': dec(ps[i],32);
        'р'..'я'         : dec(ps[i],80);
     end;
   end;
   BigAlpha:=ps;
end;

begin
     writeln('Введите любой текст'); readln(s);
     writeln('Этот же текст большими буквами:');
     writeln(BigAlpha(s));
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483



ставки на спорт онлайн