Язык программирования Pascal
Символьный и строковый типы данных
Символьный тип данных: Char
Var
x: char;
=, ,
Из двух символов большим считаеся тот, код которого больше: ‘A’
Функции:
- Ord(s) – возвращает код символа s.
- Chr(n) – возвращает символ с кодом n .
- UpCase – преобразует строчные буквы латинского алфавита в прописные, но не изменяет другие символы.
Строковый тип данных: string
- Строка – это упорядоченная последовательность символов.
- Количество символов с строке – её длина
(от 0 до 255).
- Строковая константа - последовательность символов в апострофах. Н-р: ‘мама’, ‘245’,
‘’ -пустая строка.
- Элементы строки – S[5] или N[i]
- Строковая переменная описывается в разделе описания переменных: var S1,S2:string;
Операции над строками:
- Операция сцепления (конкатенации) – соединение нескольких строк в одну.
‘ мама’+’мыла’+’раму’=‘мама мыла раму’
=, , =,
Функции:
- Copy(S,Poz,N) - выделяет из строки S подстроку длиной N символов с позиции Poz.
- Concat(S1,S2,…,Sn) -сцепляет строк.
- Length(S) - определяет длину строки S.
- Pos(S1,S2) - обнаруживает первое появление подстроки S1 в строке S2.
Процедуры:
- Delete(S,Poz,N)- удаление N символов из строки S, начиная с позиции Poz.
- Insert(S1,S2,Poz)- вставка строки S1 в строку S2, начиная с позиции Poz.
Пример:
- Подсчитать количество символов в заданной строке. Получить новую строку, путем удаления из текущей трех последних символов.
Program Stroka;
Var S1:string;k:integer;
Begin
Write(‘введите исходную строку’);
Read(S1);
K:=length(S1);
delete(S1,k-2,3);
Writeln(‘количество символов=’,k);
Writeln(S1);
End .
=‘0’) and (S1[i]then S2:=S2+S1[i]; Writeln(‘результат:’,S2); End . " width="640"
Пример:
Из данной строки выбрать все цифры и сформировать другую строку из этих цифр, сохранив их последовательность.
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]then S2:=S2+S1[i];
Writeln(‘результат:’,S2);
End .