Программирование с использованием строковых переменных

Константы

Строковая константа – последовательность символов, заключенная в апострофы, например, '+9АВ', '4+6',

Константы

'а' <> 'A' ,
так как большие и малые буквы имеют

Константы

#65 = 'A'
#100 = 'd'
#96#100 = 'bd'

Константы

Максимальная длина строковой константы – 255 символов

Переменные

Символьные переменные (стандартные скалярные) – CHAR – могут принимать значения из

Переменные

Для операций сравнения переменные CHAR упорядочены в соответствии с алфавитом (таблицей

Переменные

Символьные константы совместимы с переменными типа CHAR

Массивы

Символьные массивы констант можно задавать как посимвольно, так и построчно (структурированные

Массивы

CONST
Dig: Array[0..9] of Char = ('0', '1', '2', '3', '4',

Множества типизированных констант

Type
Up = SET OF 'A' .. 'Z'

Тип «строка» - STRING

Стандартный тип, подобный типу массивов символов

Строковые выражения

Состоят из строковых констант, переменных, функций и операций

Строковые выражения

Сравнение строк производится слева направо до первого несовпадающего символа. Та

Строковые выражения

Сравнение:
'A' < 'B' < 'C' < 'D' < …
'0' <

Строковые выражения

'стол'<= 'столик'
'ABC'< 'ABDA'
'12' < '2'

Встроенные функции для работы со строками

Встроенные функции для работы со строками

Встроенные функции для работы со строками

Встроенные функции для работы со строками

Встроенные процедуры для работы со строками

Встроенные процедуры для работы со строками

Встроенные процедуры для работы со строками

Встроенные процедуры для работы со строками

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
а) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
а) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
б) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
б) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
в) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
в) Т=

Задания. Определите результат работы следующих команд:

S:=Copy (T, N, K);
если
г) Т=

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
a) Stroca= 'Hi'

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
a) Stroca= 'Hi'

Ответ: D=2

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
б) Stroca= ''

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
б) Stroca= ''

Ответ: D=0

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
в) Stroca= 'computer software'

Задания. Определите результат работы следующих команд:

D:=Length (Stroca);
если
в) Stroca= 'computer software'

Ответ:

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
a)

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
a)

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
б)

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
б)

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
в)

Задания. Определите результат работы следующих команд:

Sim := Pos (S, S1);
если
в)

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
a) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
a) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
б) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
б) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
в) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
в) Text='computer',

Задания. Определите результат работы следующих команд:

Delete (Text, N, K);
если
г) Text='computer',

Задания. Определите результат работы следующих команд:

Insert (E, T, K);
если
а) E='56',

Задания. Определите результат работы следующих команд:

Insert (E, T, K);
если
а) E='56',

Задания. Определите результат работы следующих команд:

Insert (E, T, K);
если
б) E='123456',

Задания. Определите результат работы следующих команд:

Insert (E, T, K);
если
б) E='123456',

Задания. Определите результат работы следующих команд:

Insert (E, T, K);
если
в) E=

Операции

«склеивание» (конкатенация)
+

'12'+ '345'='12345'
'345'+ '12'='34512'

Операции

«склеивание» (конкатенация)
+

'12'+ '345'='12345'
'345'+ '12'='34512'

А + В <> В + А

Операции

«вырезка» (выделение символа)
Т[i]

T='54321‘
T[2]='4'
T[5]='1'

Описание

VAR X: CHAR;

X='4'
X='A'
X=' '

Описание

VAR Y: STRING;

Y=''
Y='4'
Y='jhgsdfuyevw skudfhus khas4'

0 <= LENGTH(Y) < =255

Описание

VAR Z: STRING [11];

0 <= LENGTH(Z) < =11

Задача № 1

Задано некоторое математическое выражение. Подсчитать общее количество содержащихся

Задача № 1

Дано: (a+b)*c-x*y/2

Ответ : 5

Задача № 1

Program Prim1;
VAR S : String;
N, K

Задача № 1

Program Prim1;
VAR S : String;
N, K

Задача № 2

Проверить, является ли заданный текст перевертышем.

Дано: казак
Ответ: да

Задача № 2

1 способ.
Пусть S – заданный текст. Сформируем

Задача № 2

Program Prim2_1;
VAR S, T : String;
I

Задача № 2

2 способ.
Пусть S – заданный текст.

Задача № 2

Program Prim2_2;
VAR S : String;
i, d

Задача № 3

В заданном тексте слова разделяются запятыми и пробелами.

Задача № 3

Program Prim3;
VAR S : String;
i :

Задача № 3

i:=Pos (',', S);
if i>0 then Writeln (Copy(S,i+1,Length(S)-i))

Задача № 4

В заданном тексте слова разделяются только пробелами. Подсчитать

Задача № 4

Program Prim4;
VAR T : String;
i, Ka,

Задача № 4

V:=Copy (T,i,2);
if (V= ' a') or (V=

Задача № 5

Зашифровать заданный текст с помощью «тарабарской грамоты», где

Задача № 5

Дано:
ЖДИТЕ ПЕТЮ В ГОСТИ К ВАМ ПО

Задача № 5

Program Prim5;
Const SO='БВГДЖЗКЛМНПРСТФХЦЧШЩ';
Var T, S

Задача № 5

b:=T[i];
j:=Pos (b, SO);
if j<>0 then S:=S+Copy

Задача № 6

Найти сумму цифр заданного натурального числа

Дано: 123456789101112
Ответ: 51

Задача № 6

Program Prim6;
Var a : String;
c, cod,

Begin
Writeln ('Ошибка'); Exit
End
Else
Begin
S:=S+c; inc

Задача № 7

В заданном тексте заменить словосочетание “abba” на “hi”,

Program Prim7;
Var T : String;
{ ----- процедура замены Х

{ -------- основная программа -------- }
Begin
Repeat {ввод}
Writeln ('Cтрока:');
Readln

Задача № 8

Определить, сколько раз в заданном тексте встречается словосочетание

Задача № 8

Определить, сколько раз в заданном тексте встречается словосочетание

Program Prim8;
Var Text : String;
K, N : Byte;

Program Prim8;
Var Text : String;
K, N : Byte;

Задача № 9

Записать данное натуральное число римскими цифрами.

Дано: 2948
Ответ: MMCMXLVIII

Для записи римских цифр используется латиница: I – 1, V –

Program Prim9;
Const K=13;
Sym: Array [1..K] of String [2]=

While Decimal>0 do
if Decimal>=C[j] then
Begin Decimal:=Decimal - C[j];

Задача № 10

Проверить, совпадает ли заданный текст с каким-либо отрезком

Program Prim10;
Const R='12345';
Var T: String;
Begin
Readln (T)