谁会做PASCAL啊???

来源：百度知道 编辑：UC知道 时间：2024/05/27 08:27:31
帮忙做道题目...对了后会再追加分数的...

1.输入10个同学的学号和某门课的成绩,学号是2位数的,成绩是1到100之间的实数,成绩和学号连一起从小到大排序,用选择法和冒跑法各做一边.

2.N只猴子围成一圈选大王。选举方式如下：1、2、3报数，数到3的猴子退出圈外。直到剩下一只猴子为止，这只猴子就是大王。键盘输入n，输出猴王的编号。
分析:
循环的问题: x:=n;
repeat
until 猴子数=1;
I=1、2、3…n、1、2、3…n
I:=I+1; if I>n then I:=I-n;
报数计数器 t
if a[I]<>0 then t:=t+1
猴子出圈
if t=3 then [a[I]:=0;t:=0;x:=x-1]

对了才会追加分数哦~

Var
Number:Array[1..10] of Integer;
Grade:Array[1..10] of Real;
i,Empty1:Integer;
Empty2:Real;

第一道：
冒泡：
Program David;

Var
Number:Array[1..10] of Integer;
Grade:Array[1..10] of Real;
i,Empty1:Integer;
Empty2:Real;

BEGIN
For i:=1 to 10 do begin
readln(Num[i]);
readln(Grade[i])
end;
For i:= 1 to 9 do
For j:=i+1 to 10 do
If Grade[i]>Grade[j] Then begin
Empty1:=Num[i]; Empty2:=Grade[i];
Num[i]:=Num[j]; Grade[i]:=Grade[j];
Num[j]:=Empty1; Grade[j]:=Empty2;
end;
For i:=1 to 10 do writeln(Num[i],' ',Grade[i]);
END.

哎呀哎呀要上学啦!!! 先打这个.. 另外的程序你找我我打给你:QQ号416179394

学习PASCAL学的就是算法 编程思想
你这么学不是竞赛的风格了

建议你买一本《全国青少年信息学奥林匹克联赛培训教材（中学）》
里面有很多基础的东西哦（包括此题，我就不一一打了）。