Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования.

@Bozon · Регистрация: 28.03.2013

Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования. Решение нужно как можно быстрее..=(((

@Taftis · 22.05.2013, 22:24

сам сделай это не серезно
+ на форуме куча таких задач

@Антон8777 · 09.11.2013, 12:09

Тоже требуется задачка, подмогите плиз)
своего мозгу не хватает

@Puporev · 09.11.2013, 13:04

Файлы какого типа, текстовые, типизированные?

Добавлено через 9 минут
Наверное типизированные

Pascal

uses crt;
var f:file of byte;
    i,a:byte;
begin
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to 20 do
 begin
  a:=random(5);
  write(f,a)
 end;
writeln('Содержание исходного файла');
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  write(a:3);
  if a in [0..1] then a:=1-a;
  seek(f,i);
  write(f,a);
 end;
writeln('');
writeln('Содержание измененного файла');
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:3);
 end;
close(f);
end.

@Bozon 0 / 0 / 0 Регистрация: 28.03.2013 Сообщений: 18
		1
	Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования. 22.05.2013, 20:09. Показов 1443. Ответов 3 Метки нет (Все метки) Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования. Решение нужно как можно быстрее..=((( __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	22.05.2013, 22:24	2
	сам сделай это не серезно + на форуме куча таких задач 0

@Антон8777 5 / 2 / 0 Регистрация: 28.06.2013 Сообщений: 35
	09.11.2013, 12:09	3
	Тоже требуется задачка, подмогите плиз) своего мозгу не хватает 0

Опции темы