var str:string;i, n: integer;beginreadln(str);if str:=039;q039;, 039;w039;, 039;e039;, 039;r039;, 039;t039;, 039;y039;, 039;u039;,
Var str:string;
i, n: integer;
begin
readln(str);
if str:='q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z', 'x', 'c', 'v', 'b', 'n', 'm';
for i:= 1 to n do
writeln(chr(ord(str[i])+32));
else
writeln(chr(ord(str[i])-32));
end.
Задачка:Написать функцию, отдающую перевоплощенную к верхнему регистру строчку в качестве аргумента(сделать для заглавных и строчных)с таблицей "АСКИ"
К примеру
ввод: ABcz
вывод:ABCZ
2 ответа
Пашок Никоненко
Var s : string;
function Conv(var aStr : string): string;
var ch : char;
i : integer;
begin
Conv:=' '; na sluchai esli stroka budet pustoi
for ch:='a' to 'z' do
for i:=1 to Length(aStr) do if aStr[i]=ch then aStr[i]:=Chr(Ord(aStr[i])-32);
Conv:=aStr;
end;
begin
Writeln('Enter string');
Readln(s);
Writeln(Conv(s));
Readln
end.
для преображения больших в малюсенькие замените -32 на +32 и в операторе for 'a' to 'z' поменяйте на большие
function Conv(var aStr : string): string;
var ch : char;
i : integer;
begin
Conv:=' '; na sluchai esli stroka budet pustoi
for ch:='a' to 'z' do
for i:=1 to Length(aStr) do if aStr[i]=ch then aStr[i]:=Chr(Ord(aStr[i])-32);
Conv:=aStr;
end;
begin
Writeln('Enter string');
Readln(s);
Writeln(Conv(s));
Readln
end.
для преображения больших в малюсенькие замените -32 на +32 и в операторе for 'a' to 'z' поменяйте на большие
Тимур Ительан
Написал Вам функцию для преобразования из нижнего регистра в верхний с вводом слова:
function TOUPPERCASE(s: string): string;
begin
var i: integer;
for i:=1 to length(s) do begin
Result := Result + Upcase(s[i]);
end;
write('Итог:'+Result);
end;
begin
var str:string;
write('Введите слово: ');
read(str);
TOUPPERCASE(str);
end.
У себя протестировал - все работает. У Вас тоже обязано.
Полагаюсь посодействовал, фортуны :)
function TOUPPERCASE(s: string): string;
begin
var i: integer;
for i:=1 to length(s) do begin
Result := Result + Upcase(s[i]);
end;
write('Итог:'+Result);
end;
begin
var str:string;
write('Введите слово: ');
read(str);
TOUPPERCASE(str);
end.
У себя протестировал - все работает. У Вас тоже обязано.
Полагаюсь посодействовал, фортуны :)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов