• admin
  • Комментариев: 0
  • Просмотров: 238
  • 17-06-2015, 14:52

Условие: Опишите процедуру замены подслова p на слово r в слове q. Сложить программу которая делает поиск и замену подслова p на слово r в слове q до тех пор, пока это возможно.

Умова: Опишіть процедуру заміни підслова p на слово r в слові q. Скласти програму, яка робить пошук і заміну підслова p на слово r в слові q до тих пір, поки це можливо.

Решение: 

program poisk_podslova;
var p, r, q: string;
Procedure podmen (S2, S3: string; var S1: string);
begin
if pos(S2,S1)>0 then
Insert(S3, S1, pos(S2,S1));
Delete(S1, pos(S2,S1), length(S2));
end;
begin
writeln('Слово q:');
readln (q);
writeln('Подсловo p:');
readln (p);
writeln('Подсловo r:');
readln (r);
while pos(p,q)>0 do
podmen(p,r,q);
writeln(q);
end.

 

Пояснение констант, значений, операций и операторов:

 var S1, S2, S3, dops1, dops2: string - вводим данные, типа string (тип строка)

i, x: integer - данные типа integer (целые числа)

begin - тело программы, скобки выполнения операций

writeln ('Основная строка ') - вывод текста с задержкой окна, в нашем случае на экране увидим текст: Основная строка

readln (S1) - считывание информации с задержкой окна, в данном случае строки S

for i:=1 to length(S) do - если i входит в промежуток от единицы до длины строки, то

if pos(S2,S1)>0 then - пока строка S2 входит в строку S1, то

end - конец программы