Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.

@Лирика · Регистрация: 22.12.2008

Добрый вечер.
Есть такая вот задачка.
Помогите пожалуйста...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.

@barmalei_slv · 30.05.2009, 20:34

Pascal

begin
 assign(t1,'adres');
 assign(t2,'adres');
 reset(t1);
 rewrite(t2);
while not(eof(f)) do 
 begin
  read(t1,komp);
   if komp=0 then komp:=1;
    write(t2,komp);
 end;
close(t1);
close(t2);
readkey;
end.

Добавлено через 1 минуту 34 секунды
вам нужно описать переменные и указать адрес до файлов и нажать кнопочку спасибо ))

Добавлено через 8 минут 10 секунд
еще введёте условие замены 1 на 0, аналогично моему, наверное лучше в отдельном цикле

Добавлено через 2 минуты 26 секунд
хотя лучше в этом же

@Лирика · 31.05.2009, 00:35 **[ТС]**

Не особо поняла, но всё равно спасибо!
Щас попробую, может и получится))

@Лирика 0 / 0 / 0 Регистрация: 22.12.2008 Сообщений: 8
		1
	Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот. 30.05.2009, 19:37. Показов 2480. Ответов 2 Метки нет (Все метки) Добрый вечер. Есть такая вот задачка. Помогите пожалуйста... Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот. 0

@Лирика 0 / 0 / 0 Регистрация: 22.12.2008 Сообщений: 8
	31.05.2009, 00:35 [ТС]	3
	Не особо поняла, но всё равно спасибо! Щас попробую, может и получится)) 0

Опции темы

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.

Решение