Символьный тип данных: Char
Функции:
Строковый тип данных: string
Операции над строками:
Функции:
Процедуры:
Пример:
Пример:
159.50K
Категория: ПрограммированиеПрограммирование

Символьный и строковый типы данных

1.

Символьный и
строковый типы
данных

2. Символьный тип данных: Char

Описание:
Var
x: char;
Операции:
<=, >=, <, >, <>
Из двух символов большим считается
тот, код которого больше: ‘A’<‘B’

3. Функции:

Ord(s) – возвращает код символа s.
Chr(n) – возвращает символ с кодом n.
UpCase
– преобразует строчные
буквы
латинского
алфавита
в
прописные, но не изменяет другие
символы.

4. Строковый тип данных: string

Строка – это упорядоченная
последовательность символов.
Количество символов с строке – её длина
(от 0 до 255).
Строковая константа - последовательность
символов в апострофах. Н-р: ‘мама’, ‘245’,
‘ ’-пустая строка.
Элементы строки – S[5] или N[i]
Строковая переменная описывается в
разделе описания переменных:
var S1,S2:string;

5. Операции над строками:

Операция сцепления (конкатенации)
– соединение нескольких строк в одну.
‘мама’+’мыла’+’раму’=‘мама мыла раму’
Операции отношения:
=, <, >, <=, >=, <>

6. Функции:

Copy(S,Poz,N) - выделяет из строки S
подстроку длиной N символов с позиции
Poz.
Concat(S1,S2,…,Sn)-сцепляет строк.
Length(S)- определяет длину строки S.
Pos(S1,S2)- обнаруживает первое
появление подстроки S1 в строке S2.

7. Процедуры:

Delete(S,Poz,N)-удаление N
символов из строки S, начиная с
позиции Poz.
Insert(S1,S2,Poz)-вставка строки
S1 в строку S2, начиная с позиции
Poz.

8. Пример:

Подсчитать количество символов в заданной строке. Получить
новую строку, путем удаления из текущей трех последних
символов.
Program Stroka;
Var S1:string;k:integer;
Begin
Write(‘введите исходную строку’);
Read(S1);
K:=length(S1);
delete(S1,k-2,3);
Writeln(‘количество символов=’,k);
Writeln(S1);
End.

9. Пример:

Из данной строки выбрать все цифры и сформировать другую строку из
этих цифр, сохранив их последовательность.
Program Stroki;
Var S1,S2:string;
Begin
Write(‘введите исходную строку);
Read(S1);
S2:=‘ ’;
For i:=1 to length(S1) do
If (S1[i]>=‘0’) and (S1[i]<=‘9’) then S2:=S2+S1[i];
Writeln(‘результат:’,S2);
End.
English     Русский Правила