pascal基础问题
从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL"。...
从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL"。
展开
6个回答
展开全部
你好,这便是我给的程序。:
如果就单单对于这个题目而言,只要下面这个程序就够了。
program lx;
var
a:char;
i:integer;
begin
for i:=1 to 6 do
begin
read(a);
write(chr(ord(a)-32));
end;
end.
若你想输入其他字符的话,只要:
program lx;
var
a:char;
i:integer;
begin
while not(eoln) do {eoln是行结束标志}
begin
read(a);
write(chr(ord(a)-32));
end;
end.
谢谢,祝你学业有成
如果就单单对于这个题目而言,只要下面这个程序就够了。
program lx;
var
a:char;
i:integer;
begin
for i:=1 to 6 do
begin
read(a);
write(chr(ord(a)-32));
end;
end.
若你想输入其他字符的话,只要:
program lx;
var
a:char;
i:integer;
begin
while not(eoln) do {eoln是行结束标志}
begin
read(a);
write(chr(ord(a)-32));
end;
end.
谢谢,祝你学业有成
展开全部
var
i,j:integer;
ch:char;
a:string;
begin
readln(a);
j:=ord('A')-ord('a');
for i:=1 to a[0] do
begin
write(chr(ord(a[i])+j));
end;
writeln;
end.
久不写PASCAL了,代码容易出现低级错误,望谅解
i,j:integer;
ch:char;
a:string;
begin
readln(a);
j:=ord('A')-ord('a');
for i:=1 to a[0] do
begin
write(chr(ord(a[i])+j));
end;
writeln;
end.
久不写PASCAL了,代码容易出现低级错误,望谅解
展开全部
program abc;
var s1,s2:string;
i:integer;
begin
readln(s1); {输入小写字符串}
for i:=1 to length(s1) {计算字符串长度并循环,i代表下标}
do s2:=s2+chr(ord(s1[i])-32); {读取每个字符并转换存入S2}
writeln(s2);
readln;
end.
var s1,s2:string;
i:integer;
begin
readln(s1); {输入小写字符串}
for i:=1 to length(s1) {计算字符串长度并循环,i代表下标}
do s2:=s2+chr(ord(s1[i])-32); {读取每个字符并转换存入S2}
writeln(s2);
readln;
end.
展开全部
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then
s[i]:=chr(ord(s)-32);
writeln(s);
end.
这个程序对输入的任何字符串都有效
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then
s[i]:=chr(ord(s)-32);
writeln(s);
end.
这个程序对输入的任何字符串都有效
展开全部
var
i,j:longint;
s1:string;
begin
read(s1);
for i:=1 to length(s1) do
s1:=chr(ord(s1[i])-32);
write(s1);
end.
大写字母与小写字母的ASCII码差为97('a')-65('A')=32
i,j:longint;
s1:string;
begin
read(s1);
for i:=1 to length(s1) do
s1:=chr(ord(s1[i])-32);
write(s1);
end.
大写字母与小写字母的ASCII码差为97('a')-65('A')=32
展开全部
var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
s:=chr(ord(s[i])-32);
writeln(s);
end.
就是这
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
s:=chr(ord(s[i])-32);
writeln(s);
end.
就是这
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询