Читайте также:
|
i – номер позиції, j- довжина фрагменту. Значення виразу i+j-1 – перевищує реальну довжину, то відбуватиметься виділення лише наявної частини рядка. Фрагмент буде коротшим ніж j символів.
Наприклад
Перевірити чи введений рядок є паліндромом.
Var
S1,S2: string;
I: byte;
Begin
writeln(‘’);
Readln(S1);
S2:=”;
For i:=length(S1) downto 1 do
S2:=S2+copy(S1,I,1);
If S1=S2 then writeln (‘’) else writeln (‘’);
End.
в) Функціязнаходженняномерапозиції
Ця функція знаходить номер позиції, з якої починається перше входження деякого слова в рядок. Якщо це слово в рядку не знайдено, то буде надруковано число 0.
POS (<шукане слово>,<ідентифікатор рядка>);
Наприклад
Const R=’Севастополь’;
WORD=’сто’;
Var P: byte;
Begin
P:=pos(WORD,R); {P=5}
Writeln(P);
End.
г) Процедуравставленняслова
Ця процедура вставляє деяке слово в рядок, починаючи з вказаної позиції.
INSERT(<слово, яке треба вставити>,<ідентифікатор рядка>,<позиція>);
Наприклад
Var
Poz: integer;
R,WORD: string;
Begin
Poz:=20; {Мова програмування Turbo Pascal}
R:=’Мова програмування Pascal’;
WORD:= ‘Turbo’;
Insert(WORD,R,Poz);
Writeln(R);
End.
д) Процедуравидалення
Процедура видалення знищує слово, яке починається з вказаної позиції і має задану довжину в рядку.
Наприклад
Var
R: string;
N,Poz: integer;
Begin
R:= ‘Мова програмування Turbo Pascal’;
Poz:= 1;
N:=19; {Turbo Pascal}
Delete(R,Poz,N);
Writeln(R);
End.
е) Функціяобєднаннярядків
обєднання рядків може проводитися не лише при доповню вального знака операції +, а і функцією concat. Ця функція може містити довільну кількість аргументів типу string.
CONCAT (<рядок1>,<рядок2>,…);
Якщо сумарна довжина результуючого рядка перевищує 255, то надлишок ігнорується.
Наприклад
В рядку символів замінити всі ланцюги ABC на xy.
Var
S1, S2: string;
I: byte;
Begin
writeln(‘’);
Readln(S1);
S2:=S1;
For i:=1 to length(S2) do
If copy(S1,i,3)=’abc’ then
Begin
Delete(S2,i,3);
Insert(‘xy’, S2,i);
End;
Writeln(S1);
Writeln(S2);
End.
З рядка символів вилучити всі повторення підряд однакових символів крім першого.
Var
S1, S2: string;
I: byte;
begin {}
S2:=S1;
For i:=1 to length(S2) do
If copy(S2,i,1)=copy(S2, i+1,1) then
Begin
Delete(S2,i+1,1);
i:=i-1;
End;
Writeln(S1);
Writeln(S2);
End.
3. Операціїнадмножинами
Над множинами можуть виконуватися наступні дії:
а) Обєднання (додавання)
Виконується над множинами одного базового типу.
Наприклад
A:=[1,2,3] B:=[3,4,8] C:=A+B { C=[1,2,3,4,8] }
Виконання операції додавання фактично є побітовою операцією диз’юнкції.
б) Перетин (множеннямножин)
Результатом є спільна частина двох множин.
Наприклад
[1,2,3]*[3,4,8] =[3]
[1,2,3]*[ ]= [ ]
Виконання операції множення фактично є побітовою кон’юнкцією.
в) Віднімання множин
Результат віднімання деякої множини В від множини А будуть всі елементи А, яких немає в множині В.
Наприклад
[1,2,3]-[3,4,8]=[3]
В памяті операція віднімання фактично є
Це побітова операція виключення або одиничними бітами у зменшуваному.
Крім операцій додавання, множення, віднімання над множинами виконуються логічні операції порівняння та належності.
Множини можуть порівнюватися на рівність та нерівність.
г) Операція належності
Дає істиний результат, якщо деякий елемент належить множині. Операція хибна в іншому випадку.
Наприклад
[1] in [3,4,8] = false
[1] in [1,2,3]=true
Формування множини безпосередньо з клавіатури і вивід їх на екран неможливо, оскільки стандартні процедури вводу-виводу не допускають параметрів множини так як і перелічувального. Але ці дії легко реалізувати за рахунок операції обєднання та перевірки належності in для виводу.
Дата добавления: 2015-09-11; просмотров: 30 | Поможем написать вашу работу | Нарушение авторских прав |