Question

帮忙解两题pascal基础题.

编写以下程序：
1、从键盘上读入小写的“pascal”，利用CHR（ ）和ORD（ ）函数，输出大写的“PASCAL”。
2、从键盘上读入一个实数，利用ROUND（ ）和TRUNC（ ）函数，输出该实数本身、整数部分、小数部分、四舍五入后的的值。

Answer 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.

Answer 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做的。