VPF::помогите решить задачу - Форум программистов

Новенькая

Дата 9.12.2005, 17:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Snowy

Дата 9.12.2005, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484

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

mvdr

Дата 9.12.2005, 18:05 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61

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

mvdr

Дата 9.12.2005, 18:39 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Pakshin A. S.

Дата 9.12.2005, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61

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

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

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

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

Albinos_x

Дата 9.12.2005, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

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

Код


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

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »