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

@sani9989 · Регистрация: 01.01.2013

помогите пожалуйста решить задачи в делфи очень надо
1.Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот.

@Puporev · 01.01.2013, 16:09

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var f,g:textfile;
    c:char;
begin
assignfile(g,'output.txt');
rewrite(g);
if fileexists('input.txt') then//файл в папке с программой
 begin
  assignfile(f,'input.txt');
  reset(f);
  while not eof(f) do
   begin
    read(f,c);
    if c='0' then write(g,'1')
    else if c='1' then write(g,'0')
    else write(g,c);
   end;
   closefile(f);
   closefile(g);
   showmessage('Файл переписан');
  end
else
 begin
  showmessage('Файл не найден');
  exit
 end;   
 
end;

@sani9989 0 / 0 / 0 Регистрация: 01.01.2013 Сообщений: 23
		1
	Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот 01.01.2013, 14:10. Показов 1442. Ответов 1 Метки нет (Все метки) помогите пожалуйста решить задачи в делфи очень надо 1.Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот. 0

Опции темы