Заменить строчные буквы на прописные - Turbo Pascal

Формулировка задачи:

Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные. англ заменяет безотказно, а русские путает...

var
s:string;
i:integer;
function upcase(c:char):char;
begin if c in['a'..'z','а'..'я'] then
upcase:=chr(ord(c)-32)
else upcase:=c
end;
begin
write('введите предложение:');
readln(s);
for i:=1 to length(s) do
s[i-1]:=upcase(s[i-1]);
s[i]:=upcase(s[i]);
write('результат:',s);
readln;
end.

Решение задачи: «Заменить строчные буквы на прописные»

Листинг программы

Var i: Integer;
begin
 for i := 32 to 254
 do begin
    if i mod 9 = 0
    then WriteLn;
    Write('[',i:3,':',Chr(i),'] ');
    end;
 ReadLn;
end.

Объяснение кода листинга программы

Объявляется переменная i типа Integer.
Запускается цикл for, который проходит по всем числам от 32 до 254 (inclusive).
Внутри цикла проверяется условие: если текущее значение i делится на 9 без остатка, то выводится строка '[', заменяя символ ']' на прописную букву ']'.
Если условие не выполняется, то выводится символ '[', текущее значение переменной i, пробел и символ ']'.
После завершения внутреннего цикла, вызывается функция ReadLn.

Оцени полезность:

13 голосов , оценка 3.769 из 5

Похожие ответы