Удаление подстроки

Задача

Удалить из строки ее часть с заданной позиции и заданной длины.

Решение

 

Описание переменных: 

s – строка;
i – номер символа в строке, начиная с которого будет осуществляться удаление;
len – длина удаляемой последовательности символов.

Алгоритм решения задачи: 

  1. Присвоить переменной s произвольную строку.
  2. Записать в i и len первый символ, с которого будет производиться удаление, и длину удаляемой последовательности.
  3. Применить процедуру delete() к строке s.
  4. Вывести на экран строку s.

Программа на языке Паскаль: 

 

var
    s: string;
    i,len: byte;
begin
    write('Input string: ');
    readln(s);
    write('Place of start to delete: ');
    readln(i);
    write('Length to delete: ');
    readln(len);
    delete(s,i,len);
    writeln(s);
readln
end.

 

Примечания: 

Процедура delete (s, start, len) удаляет из строки s, начиная с позиции start, подстроку длиной len.

 

Тема

Строки

Уровень

Простые задачи

Комментарии

Дана строка символов. Выделить подстроку между первой и последней точкой.

Вот что я хочу сделать: найти позицию первой точки. удалить все до первой точки. найти позицию последней точки. удалить все после последней точки.

Я уже удалил все до первой точки, но не знаю как найти позицию последней точки.

uses crt;
var
  m:string;
  i,n:integer;
Begin
  writeln('введите текст');
  readln(m);
  i:=pos('.',m);
  if i<>0 then
    begin
      delete(m,1,i);

Как найти позицию последней точки?

Добавить комментарий

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.