几道关于pascal的题目题目分别如下:1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND()和TRUNC()函
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 06:12:20
![几道关于pascal的题目题目分别如下:1.用字符输出一个“王”字.2.从键盘上读入小写的](/uploads/image/z/554479-7-9.jpg?t=%E5%87%A0%E9%81%93%E5%85%B3%E4%BA%8Epascal%E7%9A%84%E9%A2%98%E7%9B%AE%E9%A2%98%E7%9B%AE%E5%88%86%E5%88%AB%E5%A6%82%E4%B8%8B%EF%BC%9A1.%E7%94%A8%E5%AD%97%E7%AC%A6%E8%BE%93%E5%87%BA%E4%B8%80%E4%B8%AA%E2%80%9C%E7%8E%8B%E2%80%9D%E5%AD%97.2.%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A%E8%AF%BB%E5%85%A5%E5%B0%8F%E5%86%99%E7%9A%84%22pascal%22%2C%E5%88%A9%E7%94%A8CHR%EF%BC%88%EF%BC%89%E5%92%8CORD%EF%BC%88%EF%BC%89%E5%87%BD%E6%95%B0%2C%E8%BE%93%E5%87%BA%E5%A4%A7%E5%86%99%E7%9A%84%22PASCAL%22.3.+%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A%E8%AF%BB%E5%85%A5%E4%B8%80%E4%B8%AA%E5%AE%9E%E6%95%B0%2C%E5%88%A9%E7%94%A8ROUND%EF%BC%88%EF%BC%89%E5%92%8CTRUNC%EF%BC%88%EF%BC%89%E5%87%BD)
几道关于pascal的题目题目分别如下:1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND()和TRUNC()函
几道关于pascal的题目
题目分别如下:
1.用字符输出一个“王”字.
2.从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL".
3. 从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身、整数部分、小数部分、四舍五入后的值.(要求:分三行输出 ;输出实数本身时,格式与读入时相同;整数部分、小数部分在同一行输出;其它各占一行.)
4.输入一个时、分、秒,把它转换为一个秒数.
这些题请帮忙解决一下,好的话加分,答案前请加题号,谢谢!
几道关于pascal的题目题目分别如下:1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR()和ORD()函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND()和TRUNC()函
1,
var
a:integer;
begin
writeln(' -----');
writeln(' -|-');
writeln('-------')
end.
2,
不知道楼主有没有学到字符串,如果用字符串
var
a,c:integer;
s:string;
begin
read(s);
a:=length(s);
for c:=1 to a do write(chr(ord(s[c])-32));
end.
如果不用字符串
var
a,c:integer;
r:char;
begin
while r'l' do
begin
read(r);
write(chr(ord(r)-32));
end;
writeln;
end.
3,
var
a,c:integer;
s:real;
r:char;
begin
readln(s);
writeln(s);
writeln(trunc(s),' ',s-trunc(s):0:1);
writeln(s:0:1);
writeln;
end.
4,
var
a,c,s,f,m:integer;
r:char;
begin
read(s,f,m);
writeln(s*3600+f*60+m);
end.
已测试,并精简到极致,