洛穀1059 明明的隨機數 解題報告

標籤：

洛穀1059 明明的隨機數

本題地址： http://www.luogu.org/problem/show?pid=1059

題目描述

明明想在學校中請一些同學一起做一項問卷調查，為了實驗的客觀性，他先用電腦產生了N個1到1000之間的隨機整數（N≤100），對於其中重複的數字，只保留一個，把其餘相同的數去掉，不同的數對應著不同的學生的學號。然後再把這些數從小到大排序，按照排好的順序去找同學做調查。請你協助明明完成“去重”與“排序”的工作。

輸入輸出格式

輸入格式：

輸入有2行，第1行為1個正整數，表示所產生的隨機數的個數：
N
第2行有N個用空格隔開的正整數，為所產生的隨機數。

輸出格式：

輸出也是2行，第1行為1個正整數M，表示不相同的隨機數的個數。第2行為M個用空格隔開的正整數，為從小到大排好序的不相同的隨機數。

輸入輸出範例

輸入範例#1：

  10  20 40 32 67 40 20 89 300 400 15

輸出範例#1：

  8  15 20 32 40 67 89 300 400

說明

NOIP 2006 普及組 第一題

題解

排序

很明顯的一道排序題。所不同的是，本題在排序的基礎上多加了一步去重操作。

我們不要著急去重，先通過排序將序列變為有序，把相同元素排在一起，再進行去重操作，這樣更利於我們解題。

序列有序後，枚舉序列中的每一個元素，與它後面的元素進行比較，如果相同就將當前元素賦值為-1（相當於標記為重複），注意不能賦後面的值，因為後面的值還要和更後面的值進行比較。

最後再掃一遍序列，將值不為-1的元素輸出。

下面附上代碼。

代碼

1. var  
2.   n,c,i:longint;  
3.   a:array[1..100] of longint;  
4. procedure qsort(head,tail:longint);  
5.   var  
6.     i,j,x,t:longint;  
7.   begin  
8.     i:=head;  
9.     j:=tail;  
10.     x:=a[random(tail-head+1)+head];  
11.     while i<j do  
12.       begin  
13.         while a[i]<x do inc(i);  
14.         while x<a[j] do dec(j);  
15.         if i<=j then  
16.           begin  
17.             t:=a[i];  
18.             a[i]:=a[j];  
19.             a[j]:=t;  
20.             inc(i);  
21.             dec(j);  
22.           end;  
23.       end;  
24.     if head<j then qsort(head,j);  
25.     if i<tail then qsort(i,tail);  
26.   end;  
27. begin  
28.   readln(n);  
29.   randomize;  
30.   c:=n;  
31.   for i:=1 to n do  
32.     read(a[i]);  
33.   qsort(1,n);  
34.   for i:=1 to n-1 do  
35.     begin  
36.       if a[i]=a[i+1] then  
37.         begin  
38.           a[i]:=-1;  
39.           dec(c);  
40.         end;  
41.     end;  
42.   writeln(c);  
43.   for i:=1 to n do  
44.     if a[i]<>-1 then write(a[i],‘ ‘);  
45. end.  

（本文系筆者原創，未經允許不得轉載）

洛穀1059 明明的隨機數 解題報告