program toupper;
const
BSIZE=80;{ предельная длина строки }
var
buf:array[1..BSIZE] of char;
n:integer;{ длина введенной строки }
i:integer;
begin
n:=0;
write('-> ');
repeat
if not EOLN
then begin
n:=n+1;
read(buf[n]);
end;
until EOLN or(n=BSIZE);
{ здесь прочитана строка и записана в массив buf }
{ преобразование строки к верхнему регистру }
for i:=1 to n do
begin
case buf[i] of
'а'..'п':buf[i]:=chr(ord(buf[i])-32);
'р'..'я':buf[i]:=chr(ord(buf[i])-80);
end;
end;
{ вывод преобразованной строки }
writeln;
for i:=1 to n do
write(buf[i]);
end.
Похожие записи/страницы:
- Ввод строки в символьный массив - Pascal(Паскаль)
- Выделение остатка каждой строки, содержащей заданный символ, после первого появления этого символа. Строки…
- Если длина первой строки ментше длины второй строки, то определить количество слов во второй строке, иначе…
- Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие клавиши "Ввод". Программа должна…
- Дан текст из строчных латинских букв,за которым следует точка.Построить множество,состоящее из всех…
- Дан текст из строчных латинских букв, за которым следует точка. Напечатать все буквы, входящие в текст по одному…
- Дан файл, содержащий последовательность слов, отделенных друг от друга запятой, в конце файла точка. Напечатать…
- Дан файл F. Вывести на экран, из каждой строки слово наибольшей длины - Pascal(Паскаль)