1) Записать в файл 2n целых чисел. Переписать в другой файл последние n элементов исходного файла.

2)Записать в файл n целых чисел. Найти максимальное четное число файла. Записать в новый файл элементы исходного файла, исключая найденный элемент

3)Перезаписать файл f целыми 3n числами, полученными с помощью генератора случайных чисел. Переписать элементы в этом же файле так, чтобы в каждой тройке подряд идущих элементов первый и второй элемент поменялись местами: первый со вторым, четвертый с пятым, седьмой с восьмым и т.д.

1)

var  F,G:text; n,i,a:integer;
begin
 assign(F, 'File1.TXT');
 rewrite(F);
 assign(G, 'File2.TXT');
 rewrite(G);
 readln(n);
 for i:=1 to 2*n do 
  begin
    readln(a); 
    write(F, a);
    if i>=n then write(G, a);
  end;
 close(F);
 close(G);
end.

2) Вопрос, а если таких 3 элемента? то все 3 исключить?

Сообщение отредактировано: DarkWishmaster - 22.06.2011 21:24

DarkWishmaster, неправда...
делается по-другому... Ты в другой файл записываешь ТЕ ЖЕ элементы, а надо читать из первого и писать во второй.

мы же пишем в один файл элементы, потом из этого файла последнее n элементов, так те же получаются.

  for i:=1 to 2*n do 
  begin
    readln(a); 
    write(F, a,' ');
  end;
reset(F);
assign(g, 'File2.txt');
i:=0; 
while i<=n  do
 begin 
  inc(i); 
  read(F, a);
  if (i>=n) then write(G, a,' ');
 end;

2)

var  F,G:text; n,i,a,max:integer;
begin
 assign(F, 'File1.TXT');
 rewrite(F);
 readln(n);
 for i:=1 to n do
   begin
    readln(a);
    write(F, a,' ')
  end;
reset(F);
  for i:=1 to n do    
   begin
     read(F, a);
     if i=1 then max:=a;
     if not(odd(a)) and (a>max) then max:=a;
   end;
reset(F);
assign(G, 'File2.TXT');
rewrite(G);
 for i:=1 to n do
  begin
    read(F, a);
    if a<>max then
    write(G, a,' ');
  end;
close(G);
close(F);
end.

Сообщение отредактировано: DarkWishmaster - 22.06.2011 21:43

Каждое задание подразумевает, что выполняющий его будет чему-то учиться, правда? В данном задании надо научиться не только записывать информацию в файл, а еще и позиционировать указатель файла. Вот судя по твоему решению, ты этого делать не умеешь, и вхолостую читаешь N первых элементов из файла F... Используй Seek, и избежишь и холостого чтения, и лишнего условия...

Может ты решишь как надо?

Бррр.... Что-то я сразу на подзаголовок "Текстовые файлы" внимания не обратил... Тогда дополнительный вопрос: это все действительно надо проделать именно с текстовыми файлами? Если да - то все, что я написал выше можно не читать, подразумевались файлы типизированные, с тестовыми все сложнее...

Типизированные файлы =))

Щастье, что это значит? что ты ошиблась в заголовке темы? ответь, плз

Да, на самом деле, типизированные файлы.