Developing.ru

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

Можно считать данные из исходного файла в массив, затем отсортировать этот массив (сортировка есть в разделе "Алгоритмы", да и в этом неоднократно делали), затем записать массив в другой файл. Есть, конечно, алгоритмы сортировки файлов без использования массива, но они довольно сложные.

я ничего непонимаю этого, даж непонимаю о чём речь идёт

Что-то последнее время никто ничего здесь не понимает...
Программа может вышлядеть так:
[syntax='Delphi']
program New_Project;

const
MaxN=50;

var
A:Array[1..MaxN] of integer;
N:integer;
I,J,k:integer;
F:Text;

procedure Sort;
begin
for i:=N downto 1 do
for j:=2 to i do
begin
k:=A[j-1];
if K>A[j] then
begin
A[j-1]:=A[j];
A[j]:=k;
end;
end;
end;

begin
Assign(F,'E:\Temp\$Data\F1.TXT');
Reset(F);
while not EoLn(F) do
begin
Inc(N);
Read(F,A[N]);
end;
Close(F);
Sort;
Assign(F,'E:\Temp\$data\F2.TXT');
Rewrite(F);
For I:=1 to N do
write(F,A,' ');
Close(F);
end.

end.
[/syntax]

MOTOCoder писал(а):Что-то последнее время никто ничего здесь не понимает...

Дык... сессия подбирается, вот у них сезонное обострение.

&quot писал(а):Что-то последнее время никто ничего здесь не понимает...

главное чтоб иы понимали !!!!

Спасибо вам, да скоро сессия, но я действительно ничего не понимаю, вы уж меня извини!!! Впринципе у меня ещё есть одна задачка, но мне уже неудобно вас просить!!!

Normal, а как вы будете здавать сесию если вы не чего не знаете ?

а нам надо просто эти задачки сдать и всё...

А потом самолеты падают...