15.12.2013, 14:49 | #1 (permalink) |
Member
Регистрация: 15.12.2013
Сообщений: 31
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 114
|
Файлы input.txt и output.txt
program Main2; var str:string; a:char; function NewStr(str:string;a:char):string; var s:string; begin s:=str; while Pos(a + a,s) > 0 do delete(s, Pos(a + a,s), 1); NewStr:=s; end; begin readln(str); a:=chr(33); writeln(NewStr(str, a)); readln; end. |
15.12.2013, 14:49 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди уже создавали что то подобное, так что можете почитать Файлы Файлы в Си Asus 1201 video HDMI output problem Файлы |
15.12.2013, 15:09 | #2 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,308
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Ни тебе "здрасте", ни "просю помощи"...
А что, собственно, требуется? Дописать в имеющуюся прогу недостающие строки по работе с файлами? |
15.12.2013, 18:13 | #4 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,308
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Стесняюсь спросить...
Приведенный код - это всё, чему Вы научились за семестр по языку Pascal? С такими знаниями Вам сессию никак не сдать. Пока не поздно, наймите репетитора. |
15.12.2013, 18:56 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
program Main2; var S:string; A:char; f1,f2:Text; function NewStr(NS:string;NA:char):string; var T:string; begin T:=NS; while Pos(NA,T) > 0 do delete(T, Pos(NA,T), 1); NewStr:=T; end; begin Assign(f1,'Input.txt'); ReSet(f1); Assign(f2,'Output.txt'); ReWrite(f2); A:='!'; Repeat Readln(f1,S); Writeln(f2,NewStr(S,A)); Until EoF(f1); Close(f1); Close(f2); end. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.12.2013, 19:54 | #6 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,308
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Владимир, Вам, конечно, видней, но открыть/закрыть поток, причитать/записать в него - этому учат на первых лекциях и практических занятиях. А тут до конца семестра осталось 2 недели!
|
15.12.2013, 20:07 | #8 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,308
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Удивляюсь я Вашему оптимизму!
А как же остальной "непройденный" материал? |
15.12.2013, 20:47 | #9 (permalink) |
Member
Регистрация: 15.12.2013
Сообщений: 31
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 114
|
Николай, спасибо за совет, но сессию мне, к счастью, сдавать не нужно.
Владимир, большое спасибо. В аргументах функции Pos "галиматья", потому что мне нужно удалить не все восклицательные знаки, а только повторяющиеся(т.е. в количестве больше одного). При запуске программы возникает ошибка "RunError(2)", хотя текстовые файлы находятся в той же папке, что и программа. Не могли бы Вы подсказать в чем ошибка, пожалуйста? |
15.12.2013, 20:55 | #10 (permalink) |
Member
Регистрация: 15.12.2013
Сообщений: 31
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 114
|
Не могли бы Вы подсказать в чем ошибка, пожалуйста?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|