Студопедия

Главная страница Случайная лекция


Мы поможем в написании ваших работ!

Порталы:

БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика



Мы поможем в написании ваших работ!




Строковая переменная как массив

Читайте также:
  1. V. АКУСТИЧЕСКИЕ СВОЙСТВА ГОРНЫХ ПОРОД И МАССИВОВ. ОСНОВНЫЕ ФАКТОРЫ, ВЛИЯЮЩИЕ НА АКУСТИЧЕСКИЕ СВОЙСТВА ГОРНЫХ ПОРОД
  2. Борьба с трещинообразованием в массивных бетонных сооружениях.
  3. Воздействия на горные породы и их массивы
  4. Двумерный массив целых чисел («Матрица»)
  5. ДЕ №3 / Оценка устойчивости склонов, откосов и массивных подпорных стенок
  6. Заложение скважин на массивных залежах
  7. Люди – центральная переменная в любой модели управления.
  8. Массив строк («Страница»)
  9. Массив целых чисел («Вектор»)
  10. ОПИСАНИЕ массива

Рассматривая понятие «массив» мы выяснили, что массивом называют пронумерованный список, элементы которого однотипны по структуре и способу использования. Рассмотрим некоторую строку:

Мама мыла раму

 

Данная строка состоит из 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; Нарушение авторских прав




Мы поможем в написании ваших работ!
lektsiopedia.org - Лекциопедия - 2013 год. | Страница сгенерирована за: 0.003 сек.