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

ТИП ДАННЫХ Целый: 1. Целый: Integer ( …32 768), LongInt ( … ), Word (0…65535) Логический: 2. Логический: Boolean ( False (ложь) или True (истина) ) Вещественный 3. Вещественный ( Real (2.9E-39…1.7E38), Comp (-9.2E18…9.2E18) )

4. С СС Символьный (Char) Значения Char - символы Каждому символу соответствует свой код Функция O OO Ord(w) дает порядковый номер символа w Функция C CC Chr(i) определяет символ с порядковым номером i Ord(Chr(i)) = i Chr(Ord(w) = w Функция U UU Upcase(ch) преобразует значение переменной ch символьного типа, если оно соответствует строчной латинской букве в код прописной буквы, иначе значение ch остается неизменным

Задание 1. Составить программу, которая определяет код одного введенного символа Program kod; Uses Crt; Var d:Char; x:Integer; Begin ClrScr; WriteLn('введи символ'); ReadLn(d); x:=ord(d); WriteLn('код символа ',d,' равен ',x); ReadLn; End.

Задание 2. Составить програму, которая определяет код любого количества введенных символов, пока небудет введен символ. (точка) Услоовие d = '.'

Program kod; Uses Crt; Var d:Char; x:Integer; Begin ClrScr; Repeat WriteLn('введи символ и нажми Enter'); ReadLn(d); x:=ord(d); WriteLn('код символа ',d,' равен ',x); ReadLn; Until d='.'; End.

Задание 2. Составить програму, которая преобразует введенную строчную латинскую букву в прописную Задание 3. Составить програму, которая преобразует введенную строчную латинскую или русскую букву в прописную

Задание 2. Составить програму, которая преобразует любое количество введенных строчных латинских букв в прописные

Стороковый 4. Стороковый (String) Значения переменной типа String – последовательность символов определенной длины Значения строковой константы - последовательность символов, заключенных в апострофы (школа 6) String [k] Форма записи String [k],k – длина строки (мах размер) Если [k] отсутствует, то длина строки =255 символов

Операция сравнения над строками Сравнение строк происходит посимвольно слева направо: сравниваются коды соответствующих символов до тех пор, пока не нарушится равенство, при этом делается вывод о знаке неравества Примеры Balkon кошка (Длина первой строки больше) Кот = Кот (Равны по длине и совпадают посимвольно)

Функции и процедуры над строками

Concat(s1,s2,…,sm)s1+s2+…+sm s1,s2,…,sm String 1. Функция Concat(s1,s2,…,sm) или s1+s2+…+sm выполняет сцепление строк s1,s2,…,sm в одну строку значение функции типа String ВыражениеРезультат Concat(контра,бас) контрабасконтрабас Copy(s,p,n) 2. Функция Copy(s,p,n) выделяет из строки s подстроку длиной n символов, начиная с позиции p Значение sвыражениерезультат контрабас у вас и насконтрабас у вас и насCopy(s,7,9) бас у васбас у вас

Length(s) 3. Функция Length(s) определяет длину строки s Результат – значение целого типа Значение sвыражениерезультат контрабас у насконтрабас у насLength(s)15 Pos(s1,s2 ) 4. Функция Pos(s1,s2 ) обнаруживает в строке s2 первое вхождение строки s1 (номер позиции). Если вхождения нет, то выдается 0 Значение s2выражениерезультат контрабас у насконтрабас у нас Pos(ас,s2) 8

StrToInt(s) 5. Функция StrToInt(s) преобразует символьную строку s в числовое значение Значение sвыражениеРезультат (k) StrToInt(s)125 k:= StrToInt(s) Val(s,k,r) Или процедура Val(s,k,r)

Delete(s,p,n) 5. Процедура Delete(s,p,n) удаляет n символов из строки s, начиная с позиции p Значение sоператоррезультат контрабас у насконтрабас у насDelete(s,1,6) бас у насбас у нас Insert(s1,s2,p ) 6. Процедура Insert(s1,s2,p ) - вcтавка строки s1 в строку s2, начиная с позиции p. Значение s2операторрезультат контрабас у насконтрабас у нас Insert(есть,s2,11) контрабас есть у насконтрабас есть у нас

Задание 1 Составить программу, которая определяет длину введенной строки

Обозначим вводимую строку переменной s, ее тип строковый т.е.- String d:integer; Длину этой строки переменной d, ее тип целый т.е.- integer;

начало d:=Length(s) Ввод s конец Вывод d WriteLn('введи строку '); ReadLn(s); WriteLn('в строке ',d,' символов '); ReadLn;

Program dlina; {длина строки} Uses Crt; Var s:String; {вводимая строка} d:integer; Begin ClrScr; WriteLn('введи строку и нажми Enter'); ReadLn(s); d:=Length(s); WriteLn('во введенной строке ',d,' символов '); ReadLn; end.

Задание 2 Составить программу, которая определяет количество слов

Кот и кит начало Copy(s,i,1)= d:=length(s) Ввести s нетда i=1,d k:= k+1 Вывести k конец

Кот и кит шагаiCopy(s,i,1)= k:=k+1 11нетк о т 0 44да = 1 55нет и 1 66да = 2 99 нет т 2

Program kod;{длина строки} Uses Crt; Var s:String;{вводимая строка} d,i,k:integer; Begin ClrScr; WriteLn('введи строку и нажми Enter'); ReadLn(s); d:=Length(s); for i:=1 to d do if s[i]=' ' then k:=k+1; WriteLn('во введенной строке ',k+1,' слов '); ReadLn; end.

Задание 3 Составить программу, которая выводит введенное слово назад (ввод – кот вывод – ток) Обозначим S- вводимое слово S1 – выводимое слово (слово s назад) d- длина слова i - счетчик

начало d:=length(s) Ввести s i=d,1 Вывести s1 конец s1:= copy(s,i,1) 1

Кот шагаis1:=copy(s,i,1) 13 т 2 2о 3 1к

Program slovo; Uses Crt; Var s,s1:String; d,i,:integer; Begin ClrScr; WriteLn(введи слово'); ReadLn(s); d:=Length(s); for i:=d downto 1 do Begin s1:=copy(s,i,1); Write(s1); ReadLn; end; end.

Задание 4 Составить программу, которая определяет одинаково ли количество открывающихся и закрывающихся скобок во вводимой строке Обозначим S- вводимая строка k1- количество открывающихся скобок k2- количество закрывающихся скобок i - счетчик

Program z_4; Uses Crt; Var s:String; d,i,k1,k2:integer; Begin ClrScr; WriteLn(введи строку'); ReadLn(s); d:=Length(s); for i:=1 to d do if copy(s,i,1)=')' then k1:=k1+1; for i:=1 to d do if copy(s,i,1)='(' then k2:=k2+1; if k1=k2 then WriteLn(количество скобок равно') else WriteLn(количество скобок неравно'); ReadLn; end.

Дополнительные процедуры

str(x,s) Процедура str(x,s) преобразует числовое значение x (тип real) в строку s (тип String) var(s,x,err ) Процедура var(s,x,err ) -превращает строковое значение s (тип String) в числовую переменную x (тип real), err (тип-integer) возвращает номер позиции, в которой произошла ошибка преобразования, или 0, если ошибки не было