UC知道用PASCAL语言帮我做一下这道题
来源：百度知道 编辑：UC知道 时间：2024/05/26 07:45:07
1.编一个程序，要求把一个字符串（键盘输入）转换成全部字母小写的字符串。其中采用依次转换各个字符的方式实现，字符转换要求使用函数实现。
2.完整模拟字符串的拷贝函数：
StrintCopy (s: String; Index: Integer; Count: Integer) : String;
2.完整模拟字符串的拷贝函数：
StrintCopy (s: String; Index: Integer; Count: Integer) : String;
var st:string;
i,j,k:integer;
function change(x:char):char;
begin
if (x>'A') AND (x<'Z') then begin
change:=chr(ord(x)+32);
end
else change:=x;
end;
begin
readln(st);
for i:=1 to length(st) do st[i]:=change(st[i]);
writeln(st);
end.
第一题
program pro1;
var
s:string;
i:integer;
procedure change(var c:char);
begin
c:=char(ord(c)+32);
end;
BEGIN
readln(s);
for i:=1 to length(s)do
if s[i] in['A'..'Z']then
change(s[i]);
writeln(s);
END.
第二题
function StrintCopy(s: String; Index: Integer; Count: Integer):string;
var i:integer;
begin
for i:=1 to Count do
StrintCopy[i]:=s[Index+i-1];
StrintCopy[0]:=char(Count);
end;