考试题目[不难，不过我有的还没接触呢]，大家帮忙看看，能做一道就做一道

主题：考试题目[不难，不过我有的还没接触呢]，大家帮忙看看，能做一道就做一道

guaga [专家分：0] 发布于 2007-09-17 16:08:00

7. 利用循环语句编写程序输出下列数据表:
1
2 1
3 2 1
4 3 2 1
5 4 3 2 1
6 5 4 3 2 1
7 6 5 4 3 2 1
8 7 6 5 4 3 2 1
9 8 7 6 5 4 3 2 1

8. 输入十个正整数，把这十个正整数按
由小到大的顺序排序（冒泡排序）

9. 将一个数插入一个有序的数列中，插入后数列仍然有序。

10. 输入10个整型数，按从大到小的顺序排列输出。

11. 输入5行6列的矩阵,找出在行上最大,在列上最小的那个元素,如果没有,打印相应信息。

我相信对各位大侠来说绝对是不费脑子得题，帮小弟写下，小弟看到了一定给你们+分，+分，呵呵[最好些完整点，我好参考，要有说明更好]

本帖地址： http://bbs.pfan.cn/post/250753.html

回复列表（共4个回复）

沙发

guaga [专家分：0] 发布于 2007-09-18 10:07:00

大家帮帮忙啊，谢谢了

板凳

编程小菜菜 [专家分：90] 发布于 2007-09-21 19:20:00

谁让我乐于助人(只是没机会)..
你这题目确实太菜!
7.着...不想说...
8. m:=1;
    repeat
      f:=true;
      for i:=10-m downto 1 do
        if b[i]<b[i-1] then begin
          n:=b[i];b[i]:=b[i-1];b[i-1]:=n;{交换}
          f:=false;{交换了就令F为假}
        end;
        inc(m);
    until f{如果没有一次交换证明已排好序};
......其他的..QQ上说吧,,,

3 楼

无所不能 [专家分：270] 发布于 2007-10-01 11:10:00

第９题
procedure lx;
var
i,j:integer;
begin
for i:=2 to n do
begin
j:=i;
a[0]:=a[i];
while a[j-1]>a[0] do
begin
a[j]:=a[j-1];
ja;=j-1;
end;
a[j]:=a[0];
end;
end;

4 楼

abcwuhang [专家分：1840] 发布于 2007-10-01 20:44:00

8:链表就可以...

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：考试题目[不难，不过我有的还没接触呢]，大家帮忙看看，能做一道就做一道

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：考试题目[不难，不过我有的还没接触呢]，大家帮忙看看，能做一道就做一道

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）