Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 05.06.2014, 13:51   #1 (permalink)
natali_lavr
Новичок
 
Регистрация: 05.06.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal

Написать библиотеку так чтобы внутри была функция замены слова другим в txt
natali_lavr вне форума   Ответить с цитированием

Старый 05.06.2014, 13:51
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Найдены схожие с вашей темы, можете их посмотреть

Pascal ABC
Pascal
Pascal
Pascal
Pascal
Pascal

Старый 05.06.2014, 14:02   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Что Вы понимаете под "библиотекой"? Процедуру? Модуль? Где заменять слово - в строке? В файле? В общем, для начала изложите задание внятно и подробно. Отмазки "а мне так дали!" НЕ ПРИНИМАЮТСЯ.
Vladimir_S вне форума   Ответить с цитированием
Старый 05.06.2014, 14:12   #3 (permalink)
natali_lavr
Новичок
 
Регистрация: 05.06.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

задание слово в слово, как препод дал так и написали. лично я под библиотекой понимаю-процедура-подпрограмма что одно и тоже. слово надо заменить в файле TXT.
natali_lavr вне форума   Ответить с цитированием
Старый 05.06.2014, 14:46   #4 (permalink)
natali_lavr
Новичок
 
Регистрация: 05.06.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

модуль, заменять в файле
natali_lavr вне форума   Ответить с цитированием
Старый 05.06.2014, 15:17   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от natali_lavr Посмотреть сообщение
модуль, заменять в файле
Ну, как-то так. Модуль сохранить, как файл с именем My_Unit.pas.

Модуль:

Код:
Unit My_Unit;

Interface

Procedure Replace_Word(Nm,S1,S2:String);

Implementation

Procedure Replace_Word(Nm,S1,S2:String);
Var
 f1,f2:Text;
 S:String;
 C:Char;
 i:Byte;
Begin
 C:=' ';
 S:='';
 Assign(f1,Nm);
 Reset(f1);
 Assign(f2,'xxx');
 Rewrite(f2);
 Repeat
  While (C<>S1[1]) and not EoF(f1) do
   begin
    Read(f1,C);
    if C<>S1[1] then Write(f2,C);
   end;
  If not EoF(f1) then
   begin
    S:=S+S1[1];
    for i:=2 to Length(S1) do
     begin
      read(f1,C);
      S:=S+C;
     end;
    if S=S1 then
     for i:=1 to Length(S2) do Write(f2,S2[i])
    else
     for i:=1 to Length(S1) do Write(f2,S1[i]);
   end;
  S:='';
 Until EoF(f1);
 Close(f1);
 Close(f2);
 Rewrite(f1);
 Reset(f2);
 Repeat
  Read(f2,C);
  Write(f1,C);
 Until EoF(f2);
 Close(f1);
 Close(f2);
 Erase(f2);
end;

end.


Программа:


Код:
Uses My_Unit;

Var
 Name,Sbef,Saft:String;

Begin
 Write('Enter file name: ');
 Readln(Name);
 Write('Word to find: ');
 Readln(Sbef);
 Write('Replace with: ');
 Readln(Saft);
 Replace_Word(Name,Sbef,Saft);
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 05.06.2014, 22:04   #6 (permalink)
natali_lavr
Новичок
 
Регистрация: 05.06.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

СПАСИБО БОЛЬШОЕ)))) ОЧЕНЬ БЛАГОДАРНА!!!!)))
natali_lavr вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.