Перейдемо до розгляду основних операцій, призначених для роботи з літерними величинами.
Для роботи з літерними величинами у мові Паскаль передбачено наступні операції, процедури та функції:
Length(st) – визначає довжину літерної величини st. Іншими слова, просто підраховує кількість символів в літерній величині. Цю ж інформацію можна отримати, зчитавши значення st[0], але будьте уважні, необхідно на друк виводити значення не st[0], a ord(st[0])!
Copy(st, m, n ) – виділяє з літерної величини stn символів, починаючи з символу під номером m. Дана функція використовується для копіювання.
Concat(st1, st2) – об’єднує дві літерні величини. Дана функція виконує ту ж саму дію, що й операція ‘+’, введена вона для сумісності з більш ранніми версіями мови Паскаль.
Val(st, m, kod) – перетворює літерну величину st в число m. Якщо kod<> 0, то введена літерна величина не є числом.
Для кращого розуміння приведемо простеньку програму:
program demo_val_str;
var st: string;
k, kod: integer;
begin
write('Введiть слово: ');readln(st);
val(st, k, kod);
if kod <> 0 then writeln(' Введене слово не є числом ')
|
|
else writeln('Слово є числом ', k);
readln
end.
Str(m, st) – перетворює число в літерну величину, тобто дана процедура є оберненою до val.
Delete(st, m, n) – видалення деякої групи символів довжиною n починаючи з позиції m в літерній величині st.
Insert(st2, st1, n) – вставити в літерну величину st1 літерну величину st2 починаючи з позиції n.
Крім того, до літерних величин можна застосовувати операції порівняння, так само, як і до числових величин. З останнім розберемося дещо детальніше на прикладі конкретної задачі.
Задача 188. 188. Знайти, яке з двох введених слів більше.
Розв’язання: Всі розглянуті раніше операції порівняння двох величин, які ми застосовували до числових змінних, можна застосовувати і до літерних величин. Тобто можна говорити, що одна величина дорівнює іншій, або величина А більша (менша) за величину В. Тут необхідно зробити відповідні роз’яснення.
По–перше, зрозуміло, що «мама» = «мама», але тільки у тому випадку, коли всі літери в обох словах написані одними й тими ж символами, тобто літерами одного і того ж алфавіту. Якщо ж ми у першому слові літери «а» напишемо літерами англійського алфавіту, а у другому – на перший погляд ті ж самі літери «а» напишемо у російському (українському) алфавіті, то ці слова вже не будуть однаковими. Це пов’язано з тим, що, як ми вже вказували, тип string описано як масив типу char, а останній тип є впорядкованим і однакові на вигляд літери різних алфавітів не є однаковими, оскільки їм відповідають різні порядкові номери відповідних символів.
По–друге, як бути у випадках, коли слова мають різну кількість літер («мама» – «мам»), або ж відрізняються одним символом («мама» – «Мама»)? У даному випадку (як і всіх інших) ПЕОМ діє наступним чином: порівнюються попарно відповідні літери двох слів і як тільки виявляється, що два чергові символи в слові відмінні, то більшим вважається те слово, у якого код даного символу більший.
|
|
Все вищесказане демонструє наступна програма:
program poriwn_stroki;
var st1, st2: string;
i,s: integer;
begin
write('Введiть переше слово: ');readln(st1);
write('Введiть друге слово: ');readln(st2);
s:= 0;
for i:= 1 to length(st1) do
begin
write(ord(st1[i]):3,' ');
s:= s + ord(st1[i]);
end;
writeln('s = ',s);
s:= 0;
for i:= 1 to length(st2) do
begin
write(ord(st2[i]):3,' ');
s:= s + ord(st2[i]);
end;
writeln('s = ',s);
if st1 = st2 then writeln('Слова однаковi')
else if st1 > st2 then writeln('Переше слово бiльше')
else writeln('Друге слово бiльше');
readln;
end.