Лабы+Курсовик / Информатика Отчет №3

Алгоритм программы:

1. Задание исходного предложения;

2. Задание слова для удаления;

3. Отцентровка позиции курсора, относительно найденного слова;

4. Удаление слова;

5. Вывод окончательного результата.

Текст программы:

program task3;

uses Crt;

var pred,word,s1:string;

i:integer;

begin

ClrScr;

Write('Vvedite predlozenie:');

Readln(pred);

WriteLn;

Write('Vvedite slovo dlya udaleniya:');

ReadLn(word);

i:=pos(word,pred);

delete(pred,i,length(word));

WriteLn;

Writeln('Poluchilos: ',pred);

Readkey

end.

Пример работы программы:

Vvedite predlozenie: V lesu rodilas elochka

Vvedite slovo dlya udaleniya: rodilas

Poluchilos: V lesu elochka