Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
3 / 3 / 0
Регистрация: 18.01.2011
Сообщений: 74
1

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

25.01.2011, 15:50. Показов 1105. Ответов 1
Метки нет (Все метки)

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

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

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

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

Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F
Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F,...

1
50 / 42 / 28
Регистрация: 28.04.2010
Сообщений: 118
25.01.2011, 18:29 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
29
30
31
32
33
34
35
36
37
38
39
40
41
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.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2011, 18:29

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить
Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк...

Переписать все компоненты файла f в файл g, в обратном порядке
Задача стоит так..нужно создать символьный файл f переписать все компоненты файла f в файл g,в...

Переписать в файл G в обратном порядке все нечетные компоненты файла F
Создать файл F, содержащий целые числа. Переписать в файл G в обратном порядке все нечетные...

Переписать в файл G все компоненты файла F, меняя местами соседние элементы
Здравствуйте, помогите пожалуйста решить данную задачу. Дан файл F, компонентами которого...


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

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

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