pascal基础问题

从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL"。... 从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL"。 展开
 我来答 举报
二十二翰林
2010-01-20 · TA获得超过713个赞
知道小有建树答主
回答量:127
采纳率:0%
帮助的人:153万
展开全部
你好,这便是我给的程序。:
如果就单单对于这个题目而言,只要下面这个程序就够了。
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.
谢谢,祝你学业有成
统合部水瓶座
2010-01-18 · TA获得超过163个赞
知道小有建树答主
回答量:148
采纳率:0%
帮助的人:118万
展开全部
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了,代码容易出现低级错误,望谅解
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
jaxxcyhc3bea9
2010-01-19 · TA获得超过8856个赞
知道大有可为答主
回答量:4564
采纳率:75%
帮助的人:1239万
展开全部
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.
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
huzecong
2010-01-20 · TA获得超过267个赞
知道小有建树答主
回答量:226
采纳率:0%
帮助的人:137万
展开全部
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.
这个程序对输入的任何字符串都有效
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
chenletian12
2010-01-21 · 超过10用户采纳过TA的回答
知道答主
回答量:81
采纳率:0%
帮助的人:40.5万
展开全部
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
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
流云桑陌
2010-01-23
知道答主
回答量:5
采纳率:0%
帮助的人:0
展开全部
var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
s:=chr(ord(s[i])-32);
writeln(s);
end.
就是这
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式