Катание на коньках., Составить задачу которая сортирует по очкам. Опции

[DarkWishmaster]

Привет. Такая задача:
В соревнование по артистическому катанию на льду играли N игроков. Они набрали очков из интервала [0..100]. Очки это вещественые числа формата: aa.bb. Составить програму которая показывает К финалистов т.е сортировать по убыванию этих N и показать только К из них.

Пример:
IN:
15 9
8.5 9.5 8.5 7.5 7.7 7.5 7.7 8.5 5.5 6.3 7.4 7.5 8.5 9.1 9.8
OUT:
9.80 9.50 9.10 8.50 8.50 8.50 8.50 7.70 7.70

0<=N,K<=30000;
Время выполнения < 1 сек

Так как вектор 1..30000 вещественых чисел слишком большая структура то я сделал так:
Массив 0..100, 0..100 где координата i - целая часть а j - дробная часть числа из файла.

Вот код, для больших чисел работает вроде.

Uses Crt;
type  vector=array[0..10000] of integer;
var N,K:integer;  max:integer;
     a:vector;
 procedure START;
   var i:integer; jcor:integer;
        nr:real;
        F:text;
   begin
    assign(F, 'C:\tpatinaj\patina.in');
    reset(F);
    readln(F, N, K);
    max:=0; 
    for i:=1 to N do
       begin
        read(F, nr); 
        icor:=round(nr*100);
         if icor >max then max:=icor;
        inc(a[icor]);
      end;
    close(F);
  end;
 procedure Print; //Выводим всё в файл
  var  i:integer; r:integer; G:text;
   begin
    assign(G, 'C:\patina.out');
    rewrite(G);
    i:=max;
    r:=0;
     while r<k do
       begin
         nr:=i/100;
        while a[i]>0 do
         begin
           write(G, nr:5:2,' ');
           inc®;
           dec(a[i]);
           if r=k then exit;
         end;
       dec(i);
     end;
   close(G);
end;
Begin ClrScr;
START;
Print;
end.

Проблемы:
1) Для примера показаного выше в файл ничего не пишет, но если написать чтоб выводил на экран то всё выводит.
2) Почему-то когда nr=70.0 то trunc(nr)=69 тоже не пойму.
3) Не уверен что правильно выводит решение.
прикрепил тесты.

Сообщение отредактировано: DarkWishmaster - 28.06.2011 1:29

[Lapp]

Подробно твой код пока не смотрел, но и не уверен, что стОит. Вот эти слова:

Так как вектор 1..30000 вещественых чисел слишком большая структура

- говорят о том, что ты все еще -ходишь-в-лаптях- используешь TP .

то я сделал так:
Массив 0..100, 0..100 где координата i - целая часть а j - дробная часть числа из файла

Идея верная - не потому, что тот массив слишком большой, а потому что так проще для сортировки (сортировка подсчетом). Но мне неясно, зачем массив двумерный. Не проще ли завести массив из 10000 целых, а индекс находить так:

i:= Round(x*100);

- без всяких там целых/дробных частей?

[DarkWishmaster]

Подробно твой код пока не смотрел, но и не уверен, что стОит. Вот эти слова:
- говорят о том, что ты все еще -ходишь-в-лаптях- используешь TP .

Идея верная - не потому, что тот массив слишком большой, а потому что так проще для сортировки (сортировка подсчетом). Но мне неясно, зачем массив двумерный. Не проще ли завести массиы из 10000 целых, а индекс находить так:

i:= Round(x*100);

- без всяких там целых/дробных частей?

Проще! щя редактирую, спасибо =))