Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами

@WildDog · Регистрация: 24.04.2017

Author24 — интернет-сервис помощи студентам

Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами.
Составить функцию , удаляющую из строки слово с номером М ( М вводить в диалоге и включить в список параметров функции).Новую строку записать в файл F1 после исходной.

@ZX Spectrum-128 · 27.04.2017, 18:51

Удалить 3 слово строки

@no swear · 30.04.2017, 13:22

Pascal

var
   i, m, index_begin, index_end, tmp: integer;
   s: string;
   f, f1: boolean;
 
begin
   reset(input, 'c:\\input.txt');
   rewrite(output, 'c:\\output.txt');
   readln(s);
   read(m);
   s := s + ' ';
   
   tmp := 0;f := true;f1 := false;
   for i := 1 to length(s) do
   begin
      
      if(s[i] = ' ') then
      begin
         if(f1 = true) then 
         begin
         index_end := i - 1;
         break;
         end;
         f := true;
      end;
      
      if(s[i] <> ' ') then
      begin
         if(f) then 
         begin
            tmp := tmp + 1;
            f := false;
         end;
      end;
      
      if(tmp = m) then
      begin
         if(f1 = false) then index_begin := i;
         f1 := true;
      end;
      
   end;
   
   delete(s, index_begin, index_end);
   write(s);
end.

@WildDog · 11.05.2017, 15:32 **[ТС]**

Добавлено через 3 часа 21 минуту
no swear, Program1.pas(10) : Ошибка времени выполнения: Входная строка имела неверный формат.

Как исправить?

@no swear · 12.05.2017, 20:16

Не понимаю в чём может быть причина у меня всё работает

@WildDog · 12.05.2017, 21:16 **[ТС]**

no swear, В чём вообще может быть ошибка? Я просто не знаю как её исправить, уже много разной информации перечитал.

Добавлено через 19 минут
no swear, После того как я добавил цифры в текстовый файл, то ошибка пропала, но после запуска программы, в новом файле остаётся только первая строчка, а остальные удаляются. Также в диалоге не могу прописать m. Программа сразу завершена.

@no swear · 12.05.2017, 23:36

Я функцией delete неправильно пользовался. Моя вина

Вот исправленный код:

Pascal

var
   i, m, index_begin, index_end, tmp: integer;
   s: string;
   f, f1: boolean;
 
begin
   reset(input, 'c:\\input.txt');
   rewrite(output, 'c:\\output.txt');
   readln(s);
   read(m);
   s := s + ' ';
   
   tmp := 0;f := true;f1 := false;
   index_end := 0;
   for i := 1 to length(s) do
   begin
      
      if(s[i] = ' ') then
      begin
         if(f1) then break;
         f := true;
      end;
      
      if(s[i] <> ' ') then
      begin
         if(f) then 
         begin
            tmp := tmp + 1;
            f := false;
         end;
         
         if(tmp = m) then
         begin
            if(f1 = false) then index_begin := i;
            f1 := true;
            inc(index_end);
         end;
      end;
      
   end;
   
   delete(s, index_begin, index_end + 1);
   write(s);
end.

Сделаю замечание по поводу моего кода: Мой код читает только первую строку как string а на второй задаётся m. Я не могу сделать так чтобы читались несколько строк подряд, это уже вопрос к экспертам по Паскалю.

@WildDog · 13.05.2017, 19:32 **[ТС]**

no swear, Спасибо большое, достаточно долгое время не мог понять, как делать эту задачку

@WildDog 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 4
		1
	Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами 24.04.2017, 19:26. Показов 2529. Ответов 7 Метки нет (Все метки) Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами. Составить функцию , удаляющую из строки слово с номером М ( М вводить в диалоге и включить в список параметров функции).Новую строку записать в файл F1 после исходной. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	27.04.2017, 18:51	2
	Удалить 3 слово строки 0

@WildDog 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 4
	11.05.2017, 15:32 [ТС]	4
	Добавлено через 3 часа 21 минуту no swear, Program1.pas(10) : Ошибка времени выполнения: Входная строка имела неверный формат. Как исправить? 0

@no swear 192 / 166 / 82 Регистрация: 01.07.2016 Сообщений: 943
	12.05.2017, 20:16	5
	Не понимаю в чём может быть причина у меня всё работает 1

@WildDog 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 4
	12.05.2017, 21:16 [ТС]	6
	no swear, В чём вообще может быть ошибка? Я просто не знаю как её исправить, уже много разной информации перечитал. Добавлено через 19 минут no swear, После того как я добавил цифры в текстовый файл, то ошибка пропала, но после запуска программы, в новом файле остаётся только первая строчка, а остальные удаляются. Также в диалоге не могу прописать m. Программа сразу завершена. 0

@WildDog 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 4
	13.05.2017, 19:32 [ТС]	8
	no swear, Спасибо большое, достаточно долгое время не мог понять, как делать эту задачку 0