Степан
5 год назад
var str:string;i, n: integer;beginreadln(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 dowriteln(chr(ord(str[i])+32));elsewriteln(chr(ord(str[i])-32));end.Задание:Написать функцию, возвращающую преобразованную к верхнему регистру строку в качестве аргумента(сделать для заглавных и строчных)с таблицей "АСКИ"Напримерввод: ABczвывод:ABCZ
ОТВЕТЫ
Ким
Oct 24, 2020
function uppercase(str: string): string;
var
i: integer;
begin
Result:='';
for i:=1 to length(str) do
if (str[i]>='a') and (str[i]<='z') then
Result:=Result+Chr(Ord(str[i])-32) else
Result:=Result+str[i];
end;
var
i: integer;
begin
Result:='';
for i:=1 to length(str) do
if (str[i]>='a') and (str[i]<='z') then
Result:=Result+Chr(Ord(str[i])-32) else
Result:=Result+str[i];
end;
268
Смежные вопросы:
