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

@Юльча) · Регистрация: 22.06.2012

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

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

@Paster Fob · 16.10.2012, 20:28

Pascal

var f1,f2:text;
    ch:char;
 
begin
  assign(f1,'C:\Files for Program Pascal\F.txt');
  reset(f1);
  assign(f2,'C:\Files for Program Pascal\G.txt');
  rewrite(f2);
  while not eof(f1) do begin
    read(f1,ch);
    if ch='0' then ch:='1'
    else if ch='1' then ch:='0';
    write(f2,ch);
  end;
  close(f1);
  close(f2);
end.

@Юльча) 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 13
		1
	Переписать в файл g все компоненты файла f с заменой символа 0 на символ 1 и наоборот 16.10.2012, 19:01. Показов 1804. Ответов 1 Метки нет (Все метки) дан текстовый файл f.переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот. 0

Опции темы

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

Решение