|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
05.06.2013, 20:35 | #1 (permalink) |
Member
Регистрация: 09.10.2012
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста решить задачу Паскаль
Задание: Текстовые файлы Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S. Спасибо огромное. |
05.06.2013, 20:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме имеются аналогичные топики, в которых возможно кроется решение вашего вопроса Помогите, пожалуйста, решить задачу по электротехнике Помогите, пожалуйста, решить задачу Помогите, пожалуйста, решить задачу в Паскаль Помогите решить задачу в Паскаль Паскаль, одномерный массив. Помогите решить задачу Помогите, пожалуйста, решить задачу |
05.06.2013, 20:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Пояснения: 1. Имена и адреса файлов можете поставить свои. 2. Входной файл (у меня Txt_1.txt) должен быть подготовлен заранее. Код:
Var S,Sf:String; F1,F2:Text; Begin Writeln('Enter the string:'); Readln(S); Assign(F1,'D:\Txt_1.txt'); ReSet(F1); Assign(F2,'D:\Txt_2.txt'); ReWrite(F2); Repeat Readln(F1,Sf); If Sf<>'' then Writeln(F2,Sf) else Writeln(f2,S); Until EoF(F1); Close(F1); Close(F2); End. |
|
05.06.2013, 21:19 | #3 (permalink) |
Member
Регистрация: 09.10.2012
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо огромное!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|