Главная страница Случайная лекция
Мы поможем в написании ваших работ!
Порталы:
БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика
Мы поможем в написании ваших работ!
Строковая переменная как массив
Рассматривая понятие «массив» мы выяснили, что массивом называют пронумерованный список, элементы которого однотипны по структуре и способу использования. Рассмотрим некоторую строку:
Мама мыла раму
Данная строка состоит из 14 символов (включая символы пробел), Каждый символ в этой строке стоит на определенном, фиксированном месте. Каждая буква в строке и символы пробела имеют тип символ, то есть они однотипны по структуре. Все они используются для написания строки, это значит, что они однотипны и по способу использования. Таким образом, строка представляет собой особую форму одномерного массива, элементами которого являются символы.
PROGRAM st;
var
i,n,x :integer;
s,s1,s2 :string;
procedure init;
begin
readln (s);
readln (s1);
end;
procedure work;
begin
n:=pos(s1,s);
End;
procedure exi;
begin
writeln(n);
end;
begin
init;
work;
exi;
end.
Program n1;
Var n,x :integer;
s :string;
procedure init;
begin
readln (s);
readln (n);
end;
procedure work;
begin
x:=length(s);
end;
procedure exi;
begin
if n>x then
writeln ('no symbols') else
writeln (s[n]);
writeln;
end;
begin
init;
work;
exi;
end.
| program done; {программа нахождение числа вхождений подстроки в строку} var s,s1 :string; m,n,i,b :integer; procedure init; begin readln (s); readln (s1); end; procedure work; begin b:=0; repeat n:=pos(s1,s); if n<>0 then begin inc(b); m:=length(s); s:=copy(s,n+1,m-n); end; until n=0; end; procedure exi; begin write ('there- ' ); writeln (b); end; begin init; work; exi; end. | Program done; {программа нахождение числа вхождений подстроки в строку} var s,s1 :string; m,n,i,b :integer; procedure init; begin readln (s); readln (s1); end; procedure work; begin b:=0; n:=length(s); m:=length(s1); for i:=1 to n-m do if s1=copy(s,i,m) then inc(b); end; procedure exi; begin write ('there- ' ); writeln (b); end; begin init; work; exi; end. |
program done; {программа нахождение вида и числа вхождений символа в строке
var s :string;
n,i,maxk,j :integer;
b :array[1..30] of char;
k :array[1..40] of integer;
flag: boolean;
procedure init;
begin
readln (s);
end;
procedure work;
begin
n:=length(s);
maxk:=1;
b[1]:=s[1];
k[1]:=1;
for i:=2 to n do
begin
flag:=false;
for j:=1 to maxk do
if s[i]=b[j] then
begin
flag:=true;
inc(k[j]);
end;
if flag=false then
begin
inc(maxk);
b[maxk]:=s[i];
k[maxk]:=1;
end;
end;
end;
procedure exi;
begin
for i:=1 to maxk do
writeln(b[i],'-',k[i]);
end;
| <== предыдущая страница | | | следующая страница ==> |
| ОПИСАНИЕ массива | | | Работа с файлами |
Дата добавления: 2014-11-24; просмотров: 278; Нарушение авторских прав
Мы поможем в написании ваших работ!