Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > помогите решить задачу

Автор: Новенькая 9.12.2005, 17:42

помогите решить задачу.
Пусть дан текстовый файл. Заменить последовательность р1 подряд идущей последовательностью р2. послед-ть р1 и р2 задаются пользователем. smile

Автор: Snowy 9.12.2005, 17:53

"Помогите решить" и "Решите мне задачу" это разные вещи.
Модератор: Перемещено из паскаля в Центр помощи

Автор: mvdr 9.12.2005, 18:05

Код


program 1;
uses crt;
var s1,s2:string; 
      i:integer;
begin clrscr;
AssignFile('C:\proba.txt', p);
wrtite('введите последовательность номер 1: '); readln(s1);
wrtite('введите последовательность номер 2: '); readln(s2);
for i:=1 to length(p) do
 begin
  if copy(p, i, length(s1))=s1 then
   begin
    delete(p, i, length(s1));
    paste(p, i, s2);
   end;
 end;
wtite('измененный текст', p);
readln;
end.

Автор: Pakshin A. S. 9.12.2005, 18:27

Владимир Сергеевич,
1) В коде есть ошибки и необъявленная переменная
2) В каком компиляторе проверялся код на синтаксис и на работоспособность?

Автор: mvdr 9.12.2005, 18:39

он не проверялся, а писался на скорую руку.

Автор: Pakshin A. S. 9.12.2005, 18:46

Я тут усомнился в правильности решения... Сунул его во все имеющиеся компиляторы.. Ответ один и тот же...

Тут смешана работа с файлом и работа со строкой, как мне видится...

Что такое "p"? У меня один возможный вариант ответа - файловая переменная, ну а с ней никак не могут работать функции Length... О чем говорят компиляторы...

Если все-таки этот код верен, то я бы хотел почитать теорию по такой работе с текстовам файлом... smile

Автор: Albinos_x 9.12.2005, 23:11

наверно Владимир Сергеевич, что-то вроде этого хотел изобразить(чуть подредактировал), если я правильно понял вопрос:

Код


program 1;    
uses crt;    
var s1,s2,s:string;                //
      i, n,w:integer;                   // добавил переменные
     p,pp:file of text;               //
begin 
clrscr;    
wrtite('введите последовательность номер 1: ');
 readln(s1);
wrtite('введите последовательность номер 2: ');
 readln(s2);                                                      //
AssignFile('C:\proba.txt', p);                               // связываем файл из которого будем считать с переменной
AssignFile('C:\proba.txt_', p);                      // связываем файл в который будем записывать результат
Reset(p);                                                         // первый файл открываем для чтения
Rewrite(pp);                                                    // второй для записи
wtiteln('измененный текст');                      // будем выводить результат ещё на экран
while not eof(p) do                                          // открываем цикл до конца файла
   begin                    
   readln(p, s);                                                 // читаем строку
   w:=length(s1);                                           
   n:=length(s)-length(s1);                               //
   for i:=1 to  do                                                 // ищем подстроку в строке, 
    begin                                                          // ещё как вариант, вместо цикла поставить следующий код
    if copy(s, i, w)=s1 then                               // n:=pos(s1,s);
      begin                                                          // if n>0 then
      delete(s, i,w);                                        //    begin
      insert(s2,s , i);                                        //    delete(s,n,w);
      end;                                                           //    insert(s2,s ,n);
    end;                                                             //    end; 
    writeln(pp,s);                                        // записываем результат в файл
    wtiteln(s);                                          // отображаем на экране
    end;    
close(pp);                                                 // закрываем файлы, если первый не нужен, добавляем следующий код:
close(p);                                                   // Erase(p);   Rename(pp,'proba.txt');
readln;    
end.

могут быть ошибки не проверял, но думаю идея понятна smile