汗，不做了，浪费我２hours的青春

1、已知整型变量a=1,b=1。编写一个程序实现交换a和b的值的功能

这道题只需要有一个中间变量，设这个为t，然后 t:=a;a:=b;b:=t; OVER  {这也拿来问？？}


2、一列队伍进行1到4报数。写一个程序，输入某人的位置，判断他应该报多少？
这道题简单的没想法了， 直接  if n mod 4=0 then writeln(4) else writeln(n mod 4)


3、对于比较难的试卷，老师通常会把卷面分数开根号以后再乘以10做最后成绩。由于卷子很多，按计算器太麻烦，请你写一个程序帮助老师完

成这个工作。

var i:integer;
    total:real;
begin
  total:=0;
  repeat
    readln(m);
    total:=total+sqrt(m)*10;
  until n=''; {这里随便找个结束的方式}
  writeln(total);
end.

4、输入3个数，把他们按照从小到大的顺序输出。

var i:integer;
    a:array[0..3] of integer;
begin
  readln(a,b,c);
  for i:=1 to 3 do
  for j:=i to 3 do
    if a[i]>a[j] then begin a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];end;
  for i:=1 to 3 do write(a[i],' ');
  writeln;
end.


5、编一个能够让计算机和人玩石头剪刀布的游戏。例如：分别用0、2、5表示石头、剪刀、布。人输入0，计算机输出2，那么计算器输了。人输入2，计算机输出0，人输了。你的游戏不但能够输出计算机的选择，而且应该能够自动半段最后的输赢。（和计算机玩这类游戏的时候你显然应该知道，如果计算机会输，那么 一定是它在让你）

var m,n:integer;
begin
  readln(n);
  randomize;
  m:=random(3);
  if m=1 then m:=0;
  if m=3 then m:=5;
  if n=m then writeln('draw');
  if (n=0) and (m=2) then writeln('you win!');
  if (n=0) and (m=5) then writeln('you lose!');
  if (n=2) and (m=5) then writeln('you win!');
  if (n=2) and (m=0) then writeln('you lose!');
  if (n=5) and (m=0) then writeln('you win!');
  if (n=5) and (m=2) then writeln('you lose!');
end.


PS 我还真有耐心俄。。。  

6、请问4325、5120、7834、11296、22178、33050是不是两个完全平方数之和？如果是，写出这两个完全平方数的平方根。

var i:integer;
begin
  readln(i);
  for p:=1 to trunc(sqrt(i)) do
    if sqrt(i-p*p)=trunc(sqrt(i-p*p)) then writeln(sqrt(i-p*p):0:0,',',p) else writeln('Wrong');
end.


7、请把1081、4199、5893、27713、32017分解质因数

这道题目直接用笔算不就好了

8、一个人的走路速度是2米/秒，跑步速度是4米/秒。他先走了2米，然后跑4米，接下来走6米，跑8米，如此下去。在每次走换成跑的时候，如果从上次休息开始计算，他经过的路程超过了100米（包括100米），他就会停下来休息3分钟。请问，他用了多少时间才能走（跑）完1000米的路程？



begin
  writeln(16);
end.

如果要过程的话。。。

var total,i,s,t:integer;
begin
  for i:=1 to 22 do
    t:=i*2;
    if i mod 2=1 then total:=total+i;
    if i mod 2=0 then total:=total+i div 2;
    s:=s+t;
    if s>100 then begin s:=0;total:=total+3;end;
  writeln(total+5);
end.

9、一个数，如果它是偶数就把他除以2，如果它是奇数就把它乘以3再加上1。反复进行这个操作。请问1234在经过了10，000，000，000次操作以后变成了哪个数？

这道题容易发现到最后就是 1 4 2循环 找一下规律就可以了

10、编写一个猜数字的游戏。要求：随机地产生一个数作为答案。每次从键盘读入一个数。如果猜中就结束游戏，否则输出比答案大还是比答案小。如果7次还没有猜中就判输。

{怎么这么多随机的东西俄。。。}

var i,j,s,t,x:integer;
begin
  write('Input: random 1 to ');readln(x);
  randomize;
  s:=random(x);
  writeln('Random over, Guess Please:');
  i:=0;
  repeat
    readln(t);
    if t>s then writeln('Yours Large,Go on Please:');
    if t<s then writeln('Yours Little,Go on Please:');
    if t=s then writeln('Right Answer');
    i:=i+1;
  until (i=7) or (t=s);
  if s<>t then writeln('What a shame,the answer is ',s);
  readln;
end.

就为了这么点分 俄。。。 加油新人！

[1]**********
program ss;
var a,b,c:integer;
begin
a:=1;
b:=1;
c:=a;
a:=b;
b:=c;
writeln(a,b);
end.
**********
帮你做了8道,给分把.

[quote]第9题:1[/quote]
 
这个有问题,是4.