Записать в файл все четные числа, а затем - все нечетные

@ПроФАн564 · Регистрация: 08.12.2015

1.Дано файл целых чисел f. Переписать компоненты файла f в файл g так, чтобы сначала были записаны все четные числа, а затем - все нечетные.
2.Дан текстовый файл f. Записать в файл g компоненты файла f в обратном порядке.

@capricornus CF · 19.03.2016, 13:42

1)

Pascal

type
  iFile = file of integer;
 
var
  f, g: iFile;
  s, count: integer;
 
procedure printFile(ff: iFile);
var
  v: integer;
begin
  reset(ff);
  while not EoF(ff) do
  begin
    read(ff, v);
    write(v:3);
  end;
  writeln;
  reset(ff);
end;
 
begin
  count := 0;
  assign(f, 'f.in'); assign(g, 'g.out'); 
  writeln('Входной файл: ');printFile(f);
  rewrite(g);  
  repeat
    inc(count);
    while not EoF(f) do 
    begin
      read(f, s);
      case count of
        1: if s mod 2 = 0 then write(g, s);
        2: if s mod 2 <> 0 then write(g, s);
      end;      
    end;
    reset(f);   
  until count = 2;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.

@ПроФАн564 · 19.03.2016, 14:06 **[ТС]**

Не работает,15 строка чтение после конца потока(

@capricornus CF · 19.03.2016, 14:09

Вы файл входной

Pascal

1	file of integer;

создали?

@ПроФАн564 · 19.03.2016, 14:14 **[ТС]**

Если честно,то я мало что в этом понимаю,как исправить ошибку? Файл создал если вы про f.in

@capricornus CF · 19.03.2016, 14:22

как вы его создали? Надеюсь не в блокноте а вот так:

Pascal

var
f:file of integer;
i:integer;
begin
  assign(f,'f.in');
  rewrite(f);
  for i:=1 to 20 do
  write(f,10-random(20));
  close(f);
end.

Добавлено через 2 минуты
И в каком паскале работаем?

@ПроФАн564 · 19.03.2016, 14:24 **[ТС]**

Большое спасибо,просто некорректно скопировало,извините) В-ABC

@capricornus CF · 19.03.2016, 14:40

2)

Pascal

 type iFile = file of char;
 
var
  f, g: iFile;
  i, s, count, lengthF: integer;
  ch: char;
 
procedure printFile(ff: iFile);
var
  v: char;
begin
  reset(ff);
  while not EoF(ff) do
  begin
    read(ff, v);
    write(v);
  end;
  reset(ff);writeln;
end;
 
begin
  lengthF := 0;
  assign(f, 'f.txt'); assign(g, 'g.txt'); 
  writeln('Входной файл: ');printFile(f);
  writeln;
  rewrite(g);
  while not EoF(f) do
  begin
    read(f, ch);
    lengthF := lengthF + 1;
  end;
  count := lengthF;
  reset(f);
  while count >0 do
  begin
    for i := 1 to count do
    begin    
    read(f, ch);
    {if ch<>#13} then write(g, ch);  //убрать скобки для улучшенного вывода, если нужно
    dec(count);
    reset(f);   
  end;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.

Здесь оговорка. В текстовом файле в конце строки ставится CR LF (возврат каретки и перевод строки), поэтому при компонентном копировании и перевороте, на выводе файла выглядит с добавленными пустыми строками. Чтобы исправить в нормальный вид (если это нужно) раскомментируйте в строке условный оператор.

@ПроФАн564 · 19.03.2016, 16:35 **[ТС]**

Ввел qwerty,на выходе почему-то qqqqq

@capricornus CF · 19.03.2016, 16:46

чуть поправил

Pascal

 type iFile = file of char;
 
var
  f, g: iFile;
  i, s, count, lengthF: integer;
  ch: char;
 
procedure printFile(ff: iFile);
var
  v: char;
begin
  reset(ff);
  while not EoF(ff) do
  begin
    read(ff, v);
    write(v);
  end;
  reset(ff);writeln;
end;
 
begin
  lengthF := 0;
  assign(f, 'f.txt'); assign(g, 'g.txt'); 
  writeln('Входной файл: ');printFile(f);
  writeln;
  rewrite(g);
  while not EoF(f) do
  begin
    read(f, ch);
    lengthF := lengthF + 1;
  end;
  count := lengthF;
  reset(f);
  while count >0 do
  begin
    for i := 1 to count do
    read(f, ch);
    {if ch<>#13then} write(g, ch);  //убрать скобки для улучшенного вывода, если нужно
    dec(count);
    reset(f);   
  end;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.

у меня работает

@ПроФАн564 · 19.03.2016, 17:28 **[ТС]**

Спасибо теперь всё ок,не знаю что и делал бы без вас)

@ПроФАн564 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 59
	19.03.2016, 17:28 [ТС]	11
	Спасибо теперь всё ок,не знаю что и делал бы без вас) 0

@ПроФАн564 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 59
	19.03.2016, 14:06 [ТС]	3
	Не работает,15 строка чтение после конца потока( 0

@ПроФАн564 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 59
	19.03.2016, 14:14 [ТС]	5
	Если честно,то я мало что в этом понимаю,как исправить ошибку? Файл создал если вы про f.in 0

@ПроФАн564 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 59
	19.03.2016, 14:24 [ТС]	7
	Большое спасибо,просто некорректно скопировало,извините) В-ABC 0

@ПроФАн564 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 59
	19.03.2016, 16:35 [ТС]	9
	Ввел qwerty,на выходе почему-то qqqqq 0

Опции темы

Записать в файл все четные числа, а затем - все нечетные

Решение