Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот

@Anakein · Регистрация: 03.04.2011

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

9. Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот.

@Ev[G]eN · 06.03.2012, 18:53

Pascal

const
  DirectionA = 'C:\FileA.txt';
  DirectionB = 'C:\FileB.txt';
var
  FileA, FileB: text;
  Str: string;
  i: byte;
begin
  assign(FileA, DirectionA);
  reset(FileA);
  assign(FileB, DirectionB);
  rewrite(FileB);
  while not EOF(FileA) do
  begin
    readln(FileA, Str);
    for i:=1 to length(Str) do
      if Str[i] = '0' then Str[i]:='1'
        else if Str[i] = '1' then Str[i]:='0';
    write(FileB, Str);
  end;
  close(FileB);
  close(FileA);
end.

@Anakein 1 / 1 / 0 Регистрация: 03.04.2011 Сообщений: 32
		1
	Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот 06.03.2012, 08:41. Показов 3681. Ответов 1 Метки нет (Все метки) 9. Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот. 0

	06.03.2012, 18:53

Опции темы

Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот

Решение