Поместить отрицательные числа из первого файла во второй файл

@генка12 · Регистрация: 25.11.2015

Author24 — интернет-сервис помощи студентам

Дан файл действительных чисел . Сформировать второй файл , в который поместить из первого файла отрицательные числа.

@Joy · 26.11.2015, 15:37

Pascal

var
  fin,fout:file of real;
  r:real;
  i:integer;
begin
  assign(fin,'input.txt');
  assign(fout,'output.txt');
  reset(fin);
  rewrite(fout);
  writeln('Входящий файл:');
  while not eof(fin) do begin
    read(fin,r);
    writeln(r:0:4);
    if r<0 then write(fout,r);
  end;
  close(fin);
  close(fout);
  writeln('Исходящий файл:');  
  reset(fout);
  while not eof(fout) do begin
    read(fout,r);
    writeln(r:0:4);
  end;
  close(fout);
end.

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

Код

Входящий файл:
-13.4179
33.6783
31.5105
-43.7126
-21.0279
48.7499
-18.7984
9.5754
-45.2535
-0.9281
18.3661
27.8595
-49.8932
12.9304
-22.9865
42.4430
26.9898
-27.4862
7.8293
-42.7857
Исходящий файл:
-13.4179
-43.7126
-21.0279
-18.7984
-45.2535
-0.9281
-49.8932
-22.9865
-27.4862
-42.7857

@генка12 1 / 1 / 0 Регистрация: 25.11.2015 Сообщений: 4
		1
	Поместить отрицательные числа из первого файла во второй файл 26.11.2015, 15:01. Показов 1014. Ответов 1 Метки нет (Все метки) Дан файл действительных чисел . Сформировать второй файл , в который поместить из первого файла отрицательные числа. 0

	26.11.2015, 15:37

Поместить отрицательные числа из первого файла во второй файл

Решение