帮忙看看两道简单的free pascal 的题目怎么做！！！

几道简单的free pascal选择题！~

1.
a xor b的运算方法：将a,b 转化为2进制数，再进行对比，每个数位上的0或1如果相同，那么结果就取0，如果不同就取1，将得到的结果转化为原来进制的数，就是结果。
21 xor 2=
10101(即21的二进制数)
00010(即2的二进制数)
10111(即23的二进制数)
所以选C
2.
由题意可得，该车站的进出方法是‘先进后出’，就相当于一个栈。
进出顺序为，按顺序直接模拟即可
进，出，进，进，进，出，出，进，进，进，出，出
1.1进 然后1出
2.2进 3进 4进 栈变为（234）
3.按栈的原则 出的时候先出4 再出3 出栈顺序此时为‘143’
4.5进 6进 7进 栈变为（2567）
5.7出 6出 出栈顺序为‘14376’
即答案为C
3.
二叉树的中序遍历序列方法为:左中右
二叉树的后序遍历序列方法为:左右中
我们可以从后序遍历中得知中间的节点 再结合中序遍历得知左右节点
先看后序遍历GDBEHFCA的最后一个字母
再在中序遍历中找出这个字母，中序遍历由此可分为3部分，第一部分即该树的左子树，第二部分为根节点，第三部分为该树的右子树
(DGB) A (ECHF)
然后依次类推，按同样的方法继续分下去，直到找出树的全部节点
最后的树大概如下
......A
...B.....C
.D......E....F
....F.......H
再按前序遍历(即中左右)遍历该树
即为ABDGCEFH
答案为B

//质因数分解
var
n,nn:integer; //输入的数
d:array[1..10000] of integer; //存放质数
k:array[1..10000] of integer; //存放每个质数被整除的次数
i,j:integer; //循环变量
sum:integer; //被所有质数整除次数的总和
z:integer; //质数个数
s:integer; //记录输出质数的个数

function zhisu(n:integer):boolean;
var
j,k:integer;
findd:boolean;
begin
k:=trunc(sqrt(n));
if n=1 then zhisu:=false
else if (n=2)or(n=3) then zhisu:=true
else begin
findd:=false;
j:=1;
repeat
j:=j+1;
if (n mod j)=0 then findd:=true;
until findd or (j>k);
zhisu:=not findd;
end;
end;

begin
for n:=2 to 100 do begin
// repeat
//readln(n); nn:=n; if n<=1 then break;
nn:=n;
//以下求小于n的质数并存入数组d中
z:=0;
for i:=2 to n do if zhisu(i) then begin inc(z); d[z]:=i; k[z]:=0; end;
//以下进行质因数分解
for i:=1 to z do begin
while (nn >=d[i])and(nn mod d[i]=0) do begin
inc(k[i]); nn:=nn div d[i];
end;
end;
//计算质因数个数
sum:=0;
for i:=1 to z do sum:=sum+k[i];
//输出
s:=0;
if sum<2 then writeln(n,'=',n)
else
begin
write(n,'=');
for i:=1 to z do
if k[i]>0 then
for j:=1 to k[i] do
begin
inc(s);
if s=sum then writeln(d[i]:0) else write(d[i]:0,'*');
end;
end;
//until false;
end;
end.

..................
开玩笑！
第一题用1个变量计数，另一个从'a'一直到'z'循环，第一个变量够13就writeln;并清零。
为了尊重您的智商，更简单的方法是分两个循环。
var ch:char;
begin
for ch:='a' to chr(65+12) do write(ch,' ')
for ch:=chr(65+13) to 'z' do write(ch,' ')
end
第二题
说你也不懂。
还是把程序给你吧。
var i,k,n:integer;
begin
readln(n)
k:=0
for i:=1 to n do if odd(i) then k:=k+i
writeln(k)
end.
照复制的话会死得很惨。

第一题：
Program Q_1;
Var i: Longint;
Begin
For i:= 1 To 26 Do
Begin
Write(Chr(Ord('a')+ i- 1));
If i Mod 13= 0 Then Writeln;
End;
For i:= 1 To 26 Do
Begin
Write(Chr(Ord('z')- i+ 1));
If i Mod 13= 0 Then Writeln;
End;
End.
第二题：
Program Q_2;
Var n, i, Ans: Longint;
Begin
Readln(n);
Ans:= 0;
For i:= 1 To n Do
If Odd(i) Then Ans:= Ans+ i;
Writeln(Ans);
End.

1.
var i:longint;
begin
for i:=1 to 26 do
begin
write(chr(96+i),' ');
if i mod 13=0 then
writeln;
end;
for i:=26 downto 1 do
begin
write(chr(96+i),' ');
if i mod 13=0 then
writeln;
end;
end.

2.var i,n:longint;
begin
readln(n);
i:=(n+1) div 2;
writeln(i*i);
end.

program prog1;
var
c:char;
n:integer;
begin
n := 0;
for c := 'a' to 'z' do begin
inc(n);
if n mod 13 = 0 then writeln;
write(c);
end;
n := 0;
for c := 'z' downto 'a' do begin
inc(n);
if n mod 13 = 0 then writeln;
write(c);
end;
end.

program prog2;
var
n,i,sum:longint;
begin
readln(n);
for i := 1 to n do
if i mod 2 = 1 then inc(sum,i);
writeln(sum);
end.

---

北碚区18955776925： 第三题 街道路径free pascal(存盘名3.pas)？
历金健脾： var n,m,i,j,l,k,x1,x2,y1,y2,x:longint; a:array[1..50,1..50]of longint; b:array[1..50,1..50]of boolean; begin assign(input,'3.in'); reset(input); assign(output,'3.out'); rewrite(output); readln(n,m); readln(x1,y1,x2,y2); for i:=1 to m do a[1,i]:=1; for i:=1 to n do a[i,1]:...

北碚区18955776925： 我是学Free Pascal的,再打开pas文件时选择打开方式,选择fp.exe后,打开方式列表里没有,不能用fp.exe打？
历金健脾： 一般我们在windows环境下打开pas文件都是通过以记事本的打开方式打开的,也在windows下直接能修改,如果你想打开后进入free pascal,就需要先运行free pascal,在里面读取程序

北碚区18955776925： 用free pascla算怎么分西瓜?？
历金健脾： var i,j,k,l:longint; begin i:=1; while true do begin j:=0; k:=0; l:=0; if odd(i)and odd(i div 2)and odd(i div 2 div 2) then begin j:=i div 2+1; k:=i div 2 div 2+1; l:=i-j-k; end; if l=1 then break; i:=i+2; end; writeln('1:',j); writeln('2:',k); writeln('3:',l); end. 没错吧!

北碚区18955776925： 如何使用free pascal?？
历金健脾： 右键——默认值——默认代码页——更改为'437 (OEM - 美国)'——确定其他的调试步骤:例1. 1的调试:1、Free Pascal程序的启动 双击桌面上的Free Pascal,启动后,界面如下:2、第一次启动free pascal 时,用鼠标单击菜单不起作用,...

北碚区18955776925： free pascal程序运行时间 - ？
历金健脾： ①如果你是Linux系统,...那其实会用Linux的基本都知道 先编译,控制台输入:fpc 你的程序.pas 然后在运行前加上time即可:time ./你的程序 他会显示程序的运行时间 ②如果你是Windows系统,可以试着用free pascal内部的时间获取函数 ...

北碚区18955776925： free pascal怎么更改pas文件的储存地址 - ？
历金健脾： file=>change dir...然后选择你要放程序的文件夹.默认为bin/i386-win32;

北碚区18955776925： 用free pascla算怎么西瓜?？
历金健脾： var x,y:real; i,total:integer; a:array[1..3] of real; begin total:=1;y:=1;i:=0; repeat x:=y/2+1/2; if trunc(x)=x then begin i:=i+1; a[i]:=x; y:=y-x; end else begin total:=total+1;y:=total;i:=0; end; until (y=0)and(i=3); write(a[1]:5:0,a[2]:5:0,a[3]:5:0); end.

北碚区18955776925： free pascal 连续自然数和 - ？
历金健脾： 描述 Description对一个给定的自然数M,求出所有的连续的自然数段(连续个数大于1),这些连续的自然数段中的全部数之和为M.例子:1998+1999+2000+2001+2002 = 10000,所以从1998到2002的一个自然数段为M=10000的一个解....

北碚区18955776925： free pascal 如何编找朋友(friend.pas) - ？
历金健脾： typestring30=string[30]; var student:array[1..1000] of string30; friend:array[1..100] of string30; i,n,m:integer; f:text; function find(st:string30):boolean; {二分查找} var t:string30; i,j,k,kl,kr,l:integer; f:boolean; begin i:=1; j:=n; f:=false; repeat k:=(i+j) div ...

北碚区18955776925： free pascal 如何从程序外粘贴入程序 - ？
历金健脾： 最好的办法是把你想要的一段程序粘到一个记事本里去,再把记事本的名字改成可以用pascal打开的(字母+数字.pas)注意:必须把txt改为pas,在文件名中不能出现汉字,不然用fp打不开.最后,就是用fp打开这个刚改完的程序,再打开你想要粘到的那个文件,粘过去就可以了