Лабы+курсовик(1) / Посохов / Lab003

{ ‚ Їа®Ја ¬¬Ґ ўў®¤Ёвбп бва®Є . ’ॡгҐвбп г¤ «Ёвм Ё§ нв®© бва®ЄЁ ўбҐ
б«®ў  б®ўЇ ¤ ойЁҐ б § ¤ ­­л¬Ё.}
Program Stroka;
Uses Crt;
Var Satz,Wort:String;
I,J,Kolvo:Byte;
{****************************************************************************}
Function Search(Anfang,Ende:Byte):Boolean;
Var K,W:Byte;
BEGIN
Search:=False;
K:=1;
For W:=Anfang to Ende do Begin
If Wort[K] <> Satz[W] Then Exit;
K:=K+1;
End;
If Length(Wort)=K-1 Then Search:=True;
END;
{****************************************************************************}
Procedure Delete(Anfang,Ende:Byte);
Var W,K:Byte;
BEGIN
W:=Ende+1;
For K:=Anfang to Length(Satz)-Length(Wort)-1 do Begin
Satz[K]:=Satz[W];
Satz[W]:=' ';
W:=W+1;
End;
END;
{****************************************************************************}
BEGIN
ClrScr;
WriteLn('‚ўҐ¤ЁвҐ ЇаҐ¤«®¦Ґ­ЁҐ (­Ґ Ў®«ҐҐ 255 бЁ¬ў®«®ў):');
ReadLn(Satz);
WriteLn('‚ўҐ¤ЁвҐ г¤ «пҐ¬®Ґ б«®ў®: ');
ReadLn(Wort);
Satz:=Satz+' ';
Kolvo:=0;
J:=1;
For I:=1 to Length(Satz) do If Satz[I]=' ' Then Begin
If Search(J,I-1) Then Begin
Delete(J,I);
Kolvo:=Kolvo+1;
I:=J-1;
End;
J:=I+1;
End;
WriteLn('Љ®«-ў® б«®ў ў ЇаҐ¤«®¦Ґ­ЁЁ - ',Kolvo);
WriteLn(Satz);
Write('Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг...');
ReadKey;
END.