pascal语言编程

1、编写程序求三角形面积：设三角形的三条边a=10.56、b=15.245、c=21.386（提示：海伦公式s=sqrt（p*（p-a）*（p-b）*(p-c)),其中p=（a+b+c）/2）

2、输入一个三位数，要求把这个数的百位数与个位数对调，输出对调后的数。

3、输入三个字符，输出每个字符的序号，然后反向输出这三个字符。（求字符的符号函数为ord，如求字母a的序号ord（a）=97）

我刚学，不怎么懂，直接用程序回答好了，能够解释一下更好。注意：是pascal语言，不是其他的。

var a,b,c,p,s:real;
x:integer;
ch1,ch2,ch3:char;

begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:0:2);

write('Input 3-digit number: ');
readln(x);
x:=100*(x mod 10)+((x div 10) mod 10)*10+(x div 100);
writeln('changed number: ',x);

write('1.char:');
readln(ch1);
write('2.char:');
readln(ch2);
write('3.char:');
readln(ch3);
writeln(ord(ch1),' ',ord(ch2),' ',ord(ch3));
writeln(ch3,ch2,ch1);
writeln('Press any key to continue');
readln
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息