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

@ольгару · Регистрация: 18.01.2011

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

@Maror · 25.01.2011, 18:29

Pascal

uses crt;
 
var f, g: text;
    i, next: integer;
    c: char;
 
const fpath = 'D:\ffile.txt'; gpath = 'D:\gfile.txt';
 
begin
randomize; clrscr;
assign (f, fpath);
assign (g, gpath);
rewrite (f);
rewrite (g);
  for i := 1 to 50 do begin
  next := random (4);
    case next of
    0: write (f, '0');
    1: write (f, '1');
    2: write (f, '2');
    3: write (f, '3');
    end;
  end;
writeln ('File F:');
reset (f);
  while not eof (f) do begin
  read (f, c);
  write (c);
  if (c = '1') then write (g, '0')
  else if (c = '0') then write (g, '1')
  else write (g, c);
  end;
writeln;
writeln ('File G:');
reset (g);
  while not eof (g) do begin
  read (g, c);
  write (c);
  end;
readln;
end.

@ольгару 3 / 3 / 0 Регистрация: 18.01.2011 Сообщений: 74
		1
	Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот 25.01.2011, 15:50. Показов 1275. Ответов 1 Метки нет (Все метки) Помогите решить! Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот. напишите пожалуйста как она будет выглядеть на паскале. 0

Опции темы

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

Решение