Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 01.01.2013
Сообщений: 23
1

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

01.01.2013, 14:10. Показов 1083. Ответов 1
Метки нет (Все метки)

помогите пожалуйста решить задачи в делфи очень надо
1.Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.01.2013, 14:10
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
01.01.2013, 16:09 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.01.2013, 16:09

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru