СТРОКИ
const n=10;
type TArString=array[1..n] of string;
TIndex=1..n;
{ввод}
procedure InStr(var S:Tarstring);
var i:integer;
begin
writeln('vvedite ',n,' strok');
for i:=1 to n do readln(s[i]);
end;
{вывод }
procedure print(var s:TArString);
var i:integer;
begin
writeln('massiv');
writeln;
for i:=1 to n do writeln(s[i]);
end;

{число входжений сроки в массив}
function Num(const str:TArString; var Zstr:string):integer;
var i,k:integer;
begin
writeln('vvedite viraj dlya podscheta ego vhojdenii');
readln(Zstr);
k:=0;
for i:=1 to length(str) do
if str[i]=Zstr then k:=k+1;
Num:=k;
end;

procedure sort(var s:string);
{сортировка}
var
i,j:TIndex;
z:char;
begin
for i:=2 to length(s) do
for j:=length(s) downto i do
if s[j-1]>s[j] then
begin
z:=s[j-1];
s[j-1]:=s[j];
s[j]:=z;
end;
end;
{true=нет повторов в строке}
procedure log(var Mas:TArString );
var
i,k,n:integer;
str:string;
s:char;
flag:boolean;
begin
write('Vvedite nomer stroki dlya proverki povtorov: ');
readln(n);
str:=Mas[n]; flag:=true;
for s:='A' to 'z' do
begin
for i:=1 to length(str) do
if str[i]=s then flag:=false; break;
end;
writeln(flag);
end;


{замена подстроки на строку}
procedure zamena(var Mas:TArString; kol:TIndex);
var
n:TIndex;
str,SubSt,StZ:string;
i,dl,j,k:integer;
begin
write('Vvedite nomer stroki v kotoroy budet zamena: ');
readln(n);
write('Vvedite TO CHTO hotite zamenit: ');
readln(SubSt);
write('vvedite TO NA chto hotite zamenit: ');
readln(StZ);

str:=Mas[n];
dl:=length(SubSt);
i:=1;
k:=0;
while i<>length(str)+1 do
begin
if str[i]=SubSt[1] then
begin
j:=1;
while j<>length(SubSt) do
begin
if str[i+j]<>SubSt[j+1] then break;
j:=j+1;
end;
if j=length(SubSt) then
begin
k:=k+i;
delete(str,1,i+dl-1);
delete(Mas[n],k,dl);
insert(StZ,Mas[n],k);
k:=k+length(StZ)-1;
i:=0;
end;
end;
i:=i+1;
end;
end;


var
M:TArString; Zstr:string; kol:TIndex; flag:boolean;
begin
InStr(M);
writeln('***************');
Print(M);
writeln;
writeln(Num(M,Zstr));
writeln;
writeln('***************');
writeln; readln;
writeln('otsortirovana 3 stroka');
Sort(M[3]); readln;
Print(M); readln;
writeln;
zamena(M,kol); Print(M);
readln;
log(M);
readln;
readln;
end.





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