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

@Рапира · Регистрация: 16.09.2010

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

С помощью текстового редактора создать текстовый файл f1. Переписать строки файла f1 в новый текстовый файл g, заменив в нем символы 0 (нуль) на символ 1 и наоборот.

@SuPeR XaKer · 28.01.2011, 23:54

Pascal

assign(f,'D:\1.txt');
reset(f);
assign(g,'D:\2.txt');
rewrite(g);
while not eof(f) do
begin
 readln(f,s);
 writeln(s);
 for i:=1 to length(s) do
 begin
 if s[i]='0' then
  s[i]:='1'
 else
 if s[i]='1' then
  s[i]:='0'
end;
writeln(g,s);
end;
close(f);
close(g);

@Рапира · 30.01.2011, 13:23 **[ТС]**

А можно полный код?

@SuPeR XaKer · 30.01.2011, 13:25

А можно полный код?

А можно показать как пытались доделать?

@SunEclipse · 31.01.2011, 00:41

Pascal

uses crt;
var f,g:text;
s:string;
i:integer;
begin clrscr;
assign(f,'D:\1.txt');
reset(f);
assign(g,'D:\2.txt');
rewrite(g);
while not eof(f) do
begin
 readln(f,s);
  writeln(s);
   for i:=1 to length(s) do
    begin
     if s[i]='0' then
       s[i]:='1'
        else
         if s[i]='1' then
           s[i]:='0'
           end;
           writeln(g,s);
           end;
           close(f);
           close(g);
           readln;
           end.

На Ира, полный код.

@Рапира · 31.01.2011, 23:23 **[ТС]**

спасибо большое еще раз

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

Решение

Решение

@Рапира 2 / 2 / 0 Регистрация: 16.09.2010 Сообщений: 54
		1
	Переписать строки файла f1 в новый текстовый файл g, заменив в нем символы 0 на символ 1 28.01.2011, 23:46. Показов 1821. Ответов 5 Метки нет (Все метки) С помощью текстового редактора создать текстовый файл f1. Переписать строки файла f1 в новый текстовый файл g, заменив в нем символы 0 (нуль) на символ 1 и наоборот. 0

@Рапира 2 / 2 / 0 Регистрация: 16.09.2010 Сообщений: 54
	30.01.2011, 13:23 [ТС]	3
	А можно полный код? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	30.01.2011, 13:25	4
	А можно полный код? А можно показать как пытались доделать? 0

@Рапира 2 / 2 / 0 Регистрация: 16.09.2010 Сообщений: 54
	31.01.2011, 23:23 [ТС]	6
	спасибо большое еще раз 0