программа на файлы(Delphi)

[N@stya]

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

[IT-man]

У меня не получается

Показывайте попытки)

[N@stya]

да, конечно. Но я сделала очень мало

type tfile=file of integer;
procedure VvodFile(var f:tfile);
var k:integer;
begin
rewrite(f);
while random(30)<>20 do
begin
k:=random(100)-50;
write(f,k);
end;
closefile(f);
end;

procedure VivodFile(var f:tfile);
var k:integer;
begin
reset(f);
while not eof(f) do
begin
read(f,k);
write(k,' ');
end;
closefile(f);
writeln;
end;

var f1,f2,f3:tfile;
k,k1,p,max,min:integer;
begin

randomize;
assign(f1,'1.dat');
assign(f2,'2.dat');
assign(f3,'3.dat');
VvodFile(f1);
writeln('1 file');
VivodFile(f1);
reset(f1);
rewrite(f2);
rewrite(f3);


while not eof(f1) do
begin
p:=0;
max:=-100;

while (p<3) and not eof(f1) do begin
read(f1,k);
if k>max then max:=k;

p:=p+1;
end;

Вот в этом куске программы среди каждых трех компонент я нашла все максимумы. Вот на этом я остановилась... Дальше я собиралась во второй файл запсать все кроме максимумов, перевернуть во втором каждые две компоненты и записать это в третий файл.Это и будет ответ. Помогите пожалуйста с продолжением программы

[FaTaL]

Что такое компонент файла? Ни разу не слышал. Но если Вы про значение строки, то лучше всего использовать TStringList и в цикле for to do уже делать, то что Вам надо.

[N@stya]

Компонента-это элемент файла. Например в файле f1 записано: 123462823. В итоге должно получиться 232432.

[IT-man]

считывай в массив в каждой тройке ищи максимум и удаляй а 2 других меняй местами а потом записывай в тот же файл
что то вроде:

i:=1;
k:=n;
while i<=round(2/3*n) do begin
 max:=a[i];
 im:=i;
for j:=i to i+2 do
if a[j]>max then begin max:=a[j];im:=j;end;
for x:=im to k do
a[x]:=a[x+1];
k:=k-1;
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
i:=i+2;
end;

прикрутите использование файлов для ввода вывода массива и усе)))

[Asira]

Объясните что это такое

while i<=round(2/3*n) do begin

[IT-man]

это цикл с предусловием)))
а серьезно: если из массива удалить 1/3 элементов то сколько их останется,если их было n===> правильно 2/3*n

[Asira]

Спасибо !! но ещё тупой вопросик А куда мы тогда максимум то откинули???
у меня просто задачка наподобии...

[IT-man]

А куда мы тогда максимум то откинули

в небытие))) мы его из массива выкинули