Меню сайта

Задача №25

Найти втексте подстроку «авс».

uses crt-

var m:string[79]-

— — -k:string[79]-

— — — i:integer-

— — — position:byte-

procedure Search-

begin

— Position:=pos(k,m)-

IFposition&lt-&gt-0 then sound(100)-delay(10)-nosound-

end-

begin-

textbackground(0)-

clrscr-

writeln(‘Введите предложение’)-

readln(m)-

writeln(‘Какие символы следует найти’)-

readln(k)-

clrscr-

search-

writeln(m)-

textbackground(9)-gotoxy(pos(k,m),1)-writeln(k)-

textbackground(0)-

writeln(‘Фрагмент»‘,k,'»был найден начинвя с позиции’,position:3)

end.

Категория: Строки | Дата: 14.01.13

Меню раздела
Блок