Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 16
1

преобразование АВС.ТХТ в файл 123.ТХТ

12.12.2010, 18:45. Показов 1336. Ответов 7
Метки нет (Все метки)

Написать программу, преобразующую файл АВС.ТХТ в файл 123.ТХТ. Строки изменяются по следующему правилу: все цифры заменяются на Содержимое файлов АВС.ТХТ и 123.ТХТ вывести на экран.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2010, 18:45
Ответы с готовыми решениями:

график по точкам из .тхт файла
Помогите пожалуйста - мне задали написать программу, которая строит график по точкам из .тхт файла....

Как заставить паскаль создать тхт с введённым пользователем именем
program chat; uses crt; var o:Integer; m:text; g,l:String; begin ...

Написать программу, преобразующую файл АВС.ТХТ в файл INV.TXT
Написать программу, преобразующую файл АВС.ТХТ в файл INV.TXT. Причем первой строкой INV.TXT...

Вычисление чисел в тхт файле в другой тхт
Здравствуйте! я начал интересоваться паскалем, так вот один мой программный код, который должен...

7
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.12.2010, 18:52 2
все цифры заменяются на ?????
0
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 16
12.12.2010, 18:57  [ТС] 3
все цифры заменяются на ' ' ( пробел)
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4170 / 1275 / 231
Регистрация: 27.07.2009
Сообщений: 3,947
12.12.2010, 19:17 4
Pascal
1
2
3
4
5
6
7
...
while not EOF(f1) do
 begin
  read(f1,c);
  if c in ['0'..'9'] then write(f2,' ') else write(f2,c);
 end;
...
1
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 16
12.12.2010, 21:42  [ТС] 5
В чем ошибка?
Error 41: Operand types do not match operator.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program n9;
var
st:string;
f1,f2:text;
begin
assign(f1,'abc.txt');
reset(f1);
assign(f2,'123.txt');
reset(f2);
while not EOF (f1) do
 begin
 read(f1,st);
if st in [0..9] then write(f2,' ') else write(f2,st);
 end;
 writeln(f1);
 writeln(f2);
 readln;
end.
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4170 / 1275 / 231
Регистрация: 27.07.2009
Сообщений: 3,947
12.12.2010, 21:48 6
Цитата Сообщение от djoker91 Посмотреть сообщение
В чем ошибка?
ошибки в 3, 9, 13, 15, 16 строках.
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.12.2010, 21:50 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program n9;
var
st:char;
f1,f2:text;
begin
assign(f1,'abc.txt');
reset(f1);
assign(f2,'123.txt');
rewrite(f2);
while not EOF (f1) do
 begin
 read(f1,st);
 if st in [0..9] then write(f2,' ') else write(f2,st);
 end;
 close(f1);
 close(f2);
 write('Файл abc.txt переписан в файл 123.txt');
 readln;
end.
1
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 16
12.12.2010, 21:54  [ТС] 8
всем большое спасибо все работает!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2010, 21:54

Дан файл 4.тхт, содержащий текст. Необходимо удалить из данного текста все пробелы. Сохранить преобразованный текст в файл
Дан файл 4.txt, содержащий текст. Необходимо удалить из данного текста все пробелы. Сохранить...

Дан файл 6.тхт, содержащий текст. Необходимо сформировать два множества из гласных и согласных букв
Дан файл 6.txt, содержащий текст. Необходимо сформировать два множества из гласных и согласных...

Дан файл 5.тхт, содержащий значения для организации и работы массива. Необходимо найти максимальное значение и т.д
Дан файл 5.txt, содержащий значения для организации и работы массива. Необходимо найти максимальное...

не сохраняется тхт в програме
создает файл ABITUR.TXT но не сохраняет туда данные... помогите плиз чем сможеете ((((

Как сделать ТХТ Карты? Игра Лабиринт
Вот моя прога uses CRT,GraphABC; var ax,ay,vx,vy,bx,by: integer; A: array of char; ...

Расширение *.ТХТ вместо *.тхт
С недавнего времени стало так, когда создаешь текстовый документ. Остальные, хранящиеся файлы в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.