帮忙解两题pascal基础题.

2025-05-06 07:16:32

推荐回答（2个）

回答1：

var
s:string;i:longint;
begin
readln(s);
for i:=1 to length(s) do writeln(chr(ord(s[i]-32)));
end.

var
a:real;
begin
readln(a);writeln(a);
writeln(trunc(a);
writeln(a-trunc(a));
writeln(round(a));
end.

回答2：

1.
var
s:string;
begin
readln(s);
s:=upcase(s);
writeln(s);
end.
这是我用字符串做的。CHR 和 ORD 不能做出，因为这是对于“CHAR”型设计的。
2.
var
n:real;
begin
readln(n);
writeln(n);
writeln(trunc(n));
writeln(n-trunc(n));
writeln(round(n));
end.
我都是用FP2.2.0做的。