Процедура, которая перезаписывает из файла f1 положительные числа в файл f2

@YuraThacker · Регистрация: 22.12.2013

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

В текстовом файлe f1 записана последовательность целых чисел, которые разделены пропусками. Описать процедуру positive (f1,f2), которая записывает в файл f2 все положительные числа с f1.

@Puporev · 06.01.2014, 18:12

Pascal

const s1='input.txt';
      s2='output.txt';
procedure positive (var f1,f2:text);
var a:integer;
begin
assign(f1,s1);
reset(f1);
assign(f2,s2);
rewrite(f2);
while not eof(f1) do
 begin
  read(f1,a);
  if a>0 then write(f2,' ',a)
 end;
close(f1);
close(f2);
end;
var f1,f2:text;
begin
positive(f1,f2);
readln
end.

@YuraThacker · 06.01.2014, 20:08 **[ТС]**

Идеи не было, а до переменной типа integer не додумался, хех. Спасибо вам огромное! Очень вам благодарен. С Рождеством Христовым вас.

@YuraThacker 0 / 0 / 0 Регистрация: 22.12.2013 Сообщений: 4
		1
	Процедура, которая перезаписывает из файла f1 положительные числа в файл f2 06.01.2014, 17:29. Показов 1145. Ответов 2 Метки нет (Все метки) В текстовом файлe f1 записана последовательность целых чисел, которые разделены пропусками. Описать процедуру positive (f1,f2), которая записывает в файл f2 все положительные числа с f1. 0

@YuraThacker 0 / 0 / 0 Регистрация: 22.12.2013 Сообщений: 4
	06.01.2014, 20:08 [ТС]	3
	Идеи не было, а до переменной типа integer не додумался, хех. Спасибо вам огромное! Очень вам благодарен. С Рождеством Христовым вас. 0

Процедура, которая перезаписывает из файла f1 положительные числа в файл f2

Решение