Дан файл целых чисел. Удалить из него все отрицательные числа

@ronn · Регистрация: 07.06.2016

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

Pascal

program File34;
var
 S:String;
 F_in,F_out: File of Integer;
 El,i,len:integer;
 
 
begin
  Write('File1: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
 
  Assign(F_out,'~'+S);
  ReWrite(F_out);
 
  i:=1;
  while not eof(F_in) do
   begin
    Read(F_in,El);
    if i>=0 then Write(F_out,El);
    inc(i);
   end;
 
  Close(F_in);
  Close(F_out);
  Erase(F_in);
  Rename(F_out,S);
end.

@Joy · 09.06.2016, 05:42

Сообщение от ronn

if i>=0 then Write(F_out,El);

причем тут i, вам же элементы надо положительные оставить, т.е.

Pascal

1	if El>=0 then Write(F_out,El);

Добавлено через 1 минуту
да и файл прикрепите.

Добавлено через 10 минут
вот код:

Pascal

program File34;
var
  S:String;
  F_in,F_out: File of Integer;
  El:integer;
procedure printfile(s,t:string);
var
  f:file of integer;
  i:integer;
begin
  writeln(t);
  Assign(f,s);
  Reset(f);
  while not eof(f)do begin read(f,i);write(i:4);end;
  close(f);  
  writeln;
end;
begin
  Write('File1: '); 
  Readln(S);
  printfile(s,'Файл '+s);
  Assign(F_in,S);
  Reset(F_in);
  Assign(F_out,'~'+S);
  ReWrite(F_out);
  while not eof(F_in) do
   begin
     Read(F_in,El);
     if El>=0 then Write(F_out,El);
   end;
   Close(F_in);
   Close(F_out);
   Erase(F_in);
   Rename(F_out,S);
   printfile(s,'Файл '+s+' после обработки');
end.

вот тестовый прогон:

Код

File1: test.dat
Файл test.dat
  -2  -3  -7  -8   3  -1   1   8   0  -1  -2   4  -1  -7  -2 -10   6 -10  -5  -7
Файл test.dat после обработки
   3   1   8   0   4   6

вот код создания типизированного файла с целыми числами

Pascal

program File34;
var
  S:String; 
  F: File of Integer;
  El,i:integer;
begin
  Write('File1: ');
  Readln(S);
  Assign(F,S);
  ReWrite(F);
  for i:=1 to 20 do write(F,Random(21)-10);
  Close(F);
  Reset(F);
  while not eof(F)do begin read(F,El);write(El:4);end;
  close(F);
end.

PS: похоже, что вы содержимое типизированного файла в блокноте набрали и поэтому ошибка

@ronn · 09.06.2016, 18:02 **[ТС]**

так мне надо текстовый файл.я в блокноте заполнял.а у вас формат dat какой-то.надо чтоб в блокноте выводило

Добавлено через 21 минуту
так не работает

@Joy · 09.06.2016, 18:28

тогда файл должен быть не типизированный (file of ...) а просто Text

Pascal

program File34;
var
  S:String;
  F_in,F_out: Text;
  El:integer;
procedure printfile(s,t:string);
var
  f:text;
  i:integer;
begin
  writeln(t);
  Assign(f,s);
  Reset(f);
  while not eof(f)do begin read(f,i);write(i:4);end;
  close(f);  
  writeln;
end;
begin
  Write('File1: '); 
  Readln(S);
  printfile(s,'Файл '+s);
  Assign(F_in,S);
  Reset(F_in);
  Assign(F_out,'~'+S);
  ReWrite(F_out);
  while not eof(F_in) do
   begin
     Read(F_in,El);
     if El>=0 then Write(F_out,' ',El);
   end;
   Close(F_in);
   Close(F_out);
   Erase(F_in);
   Rename(F_out,S);
   printfile(s,'Файл '+s+' после обработки');
end.

Pascal

program File34;
var
  S:String;
  F_in,F_out: Text;
  El:integer;
procedure printfile(s,t:string);
var
  f:text;
  i:integer;
begin
  writeln(t);
  Assign(f,s);
  Reset(f);
  while not eof(f)do begin read(f,i);write(i:4);end;
  close(f);  
  writeln;
end;
begin
  Write('File1: '); 
  Readln(S);
  printfile(s,'Файл '+s);
  Assign(F_in,S);
  Reset(F_in);
  Assign(F_out,'~'+S);
  ReWrite(F_out);
  while not eof(F_in) do
   begin
     Read(F_in,El);
     if El>=0 then Write(F_out,' ',El);
   end;
   Close(F_in);
   Close(F_out);
   Erase(F_in);
   Rename(F_out,S);
   printfile(s,'Файл '+s+' после обработки');
end.

Добавлено через 9 минут
или на PABC.NET:

Pascal

begin
  var FileName:=ReadlnString('Имя файла:');
  var s:=System.IO.File.ReadAllText(FileName);
  writeln('Файл:'+newline+s);
  System.IO.File.WriteAllText(FileName,String.Join(' ',s.Split(new string[1](' '),
    System.StringSplitOptions.RemoveEmptyEntries).Where(s->StrToInt(s)>=0).ToArray()));
  writeln('Полученный файл:'+newline+System.IO.File.ReadAllText(FileName));  
end.

@ronn · 09.06.2016, 21:42 **[ТС]**

Вставил ваш код,вместо слово файл я так понял надо вставить путь к текстовому файлу,я вставил.Входной и выходной файл один же.Запускаю ввожу путь к файлу и ошибка,как всегда(

@Joy · 10.06.2016, 13:41

Сообщение от ronn

Вставил ваш код,вместо слово файл я так понял надо вставить путь к текстовому файлу,я вставил.Входной и выходной файл один же.Запускаю ввожу путь к файлу и ошибка,как всегда(

показывайте что, куда и зачем вставили? Там нужно было только запустить программу и ввести путь к файлу с путем(если файл находится отдельно от программы) для версии PABC.Net, для "обычного" варианта ошибка тут:

Сообщение от Joy

Assign(F_out,'~'+S);

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

@ronn · 10.06.2016, 13:51 **[ТС]**

кароче там на abc.net ничего не запускалось кто мне только не помогал,а на обычном паскале всё работает,несколько вариантов кодов даже,спасибо ,что помогали

@Cyber_Monster_ · 11.06.2016, 01:25

Joy, Можно по другому:

Pascal

1
2
3

begin
  System.IO.File.WriteAllLines('Путь к результирующему файлу',(System.IO.File.ReadAllLines('Путь к исходному файлу').Select(y -> y.JoinIntoString(y.ToIntegers.Where(x -> not(x < 0)))).ToArray));
end.

@ronn 0 / 0 / 0 Регистрация: 07.06.2016 Сообщений: 7
	09.06.2016, 18:02 [ТС]	3
	так мне надо текстовый файл.я в блокноте заполнял.а у вас формат dat какой-то.надо чтоб в блокноте выводило Добавлено через 21 минуту так не работает 0

@ronn 0 / 0 / 0 Регистрация: 07.06.2016 Сообщений: 7
	09.06.2016, 21:42 [ТС]	5
	Вставил ваш код,вместо слово файл я так понял надо вставить путь к текстовому файлу,я вставил.Входной и выходной файл один же.Запускаю ввожу путь к файлу и ошибка,как всегда( 0

@Joy 2383 / 1295 / 1491 Регистрация: 29.08.2014 Сообщений: 4,651
	10.06.2016, 13:41	6
	Сообщение от ronn Вставил ваш код,вместо слово файл я так понял надо вставить путь к текстовому файлу,я вставил.Входной и выходной файл один же.Запускаю ввожу путь к файлу и ошибка,как всегда( показывайте что, куда и зачем вставили? Там нужно было только запустить программу и ввести путь к файлу с путем(если файл находится отдельно от программы) для версии PABC.Net, для "обычного" варианта ошибка тут: Сообщение от Joy Assign(F_out,'~'+S); тильда будет вставляться перед путем к файлу и вылезет ошибка. 1

@ronn 0 / 0 / 0 Регистрация: 07.06.2016 Сообщений: 7
	10.06.2016, 13:51 [ТС]	7
	кароче там на abc.net ничего не запускалось кто мне только не помогал,а на обычном паскале всё работает,несколько вариантов кодов даже,спасибо ,что помогали 0

Опции темы