помогите с типизированным файлом Опции

[shikaka]

Помогите! Пожалуйста с типизированным файлом: Задание:
Создать исходный целочисленный файл. Сформировать новый файл, содержащий номера позиций в исходном файле в порядке возрастания значений чисел, стоящих на соответствующих позициях.

Очень надо - последняя прога, а я не понимаю как её сделать

[Bokul]

Если честно, то я почти не понял задание задачи, какой-то набор слов...
Пришлось самому придумывать...
Попробую представить решения чуть в другой форме:
каждому елементу файла соответствует свой индекс, нам надо отсортировать файл по возростанию, но
потом результат представить не в виде отсортирвого файла, а в види индексов ссылающихся на начальное
положения етих елементов.

Пример:
начальнный файл

Код

4 1 9

отсортирований массив

Код

1 4 9

результат

Код

2 1 3

Правильно?

----------------------------------------------------------------------------------------

Вот решение для моей формулировки:

Код

uses crt;
const n=10;
var f,res: file of integer;
    i,j,buf:integer;
    mas:array[1..n] of integer;
    index:array[1..n] of integer;
begin
clrscr;
assign(f,'с:\1.txt');
rewrite(f);

randomize;
for i:=1 to n do {создаем файл целых чисел, и сразу заполняем массивы}
    begin
         mas[i]:=random(10);
         write(f,mas[i]);
         index[i]:=i;
    end;

for i:=1 to n do
    for j:=n downto i+1 do
        if mas[pred(j)] > mas[j] then
           begin
                buf:=index[pred(j)];
                index[pred(j)]:=index[j];
                index[j]:=buf;
           end;

assign(res,'с:\2.txt');
rewrite(res);
for i:=1 to n do
    write(res,index[i]);


readln;
close(f);
close(res);
end.

И последнее:
Правильно ли я заполнял массивы, или их надо заполнять через файл, тоесть открывать файл F и считовать елементы массива?

Сообщение отредактировано: Bokul - 18.05.2006 4:08