Строковые переменные в Паскале

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

Символьные переменные

тип Char

объявление символьных переменных:

Значением переменной символьного типа может быть буква, символ, специальные символы

var a,b,c: char ;

Стандартные функции переменных типа CHAR

ORD(S) – выдаёт номер символа S в кодовой таблице ASCII

С HR(n) - выдаёт символ по его коду n в кодовой таблице ASCII

Upcase(s) – значением является большая буква S ( действует только для английских букв)

символ

10-й код

P

80

2-й код

Q

81

01010000

R

символ

h

82

10-й код

01010001

S

T

83

01010010

i

104

2-й код

j

01101000

84

105

U

01010011

85

01010100

01101001

106

k

V

01101010

l

86

107

W

01010101

87

01010110

X

01101011

m

108

88

n

01101100

109

01010111

Y

Z

89

01011000

01101101

o

110

p

01101110

90

[

111

01011001

01101111

112

\

q

91

01011010

01110000

92

r

]

01011011

113

01011100

93

s

114

01110001

^

01110010

t

115

94

01011101

_

01110011

u

95

116

`

01011110

01110100

96

01011111

v

117

w

01110101

118

01100000

01110110

119

x

01110111

120

01111000

объявление символьного массива:

Var a: array[1..20] of char;

( строка из 20 символов)

Var a: array[1.. 10 ,1..15] of char;

( 10 строк по 15 символов)

объявления символьных переменных:

Строковые переменные

тип String

объявления строковых переменных:

var a,b,c: String; ( a , b , c - строки произвольной длины)

n,m: String[10]; ( n , m - строки ровно из 10 символов)

s: String[25]; ( s - строка ровно из 25 символов)

Length

Length(c т po к a) длина строки

S1:=‘ мир ’;S2:=‘1 декабря .'; S3:=";

n 1 :=Length(S1); Writeln(n1);

n 1 :=Length(S2); Writeln(n1);

n1:=Length(S3); Writeln(n1);

S 1, S 2, S 3 -различные строки

Длина строки S 1 будет равна 3

Длина строки S 2 будет равна 10

Длина строки S3 будет равна 0

Основные операции над строками:

Сцепление строк (объединение)

S 1:= ‘ П AP’ ;

S2:='B 0З ';

S3:=S 1 +'0'+S2;

WriteLn(S3);

S4:=S2+'0'+Sl;

WriteLn(S4);

Строке S1 присвоить значение 'ПАР'

Строке S 2 присвоить значение 'ВОЗ'

Строка S3 - это сумма трех строк

Получим ответ 'ПАРОВОЗ'

S 4 - это сумма строк в другом порядке

Получим ответ 'ВОЗОПАР'

Сору

Сору(строка, позиция, число символов) выделение фрагмента из строки

S:= 'ИНФОРМАТИКА';

S1 := Copy ( S ,3,5); WriteLn ( Sl );

S2:=Copy(S,8,3); WriteLn(S2);

S3:-Copy(S,2,1); WriteLn(S3);

S - это 'ИНФОРМАТИКА'

S 1 - это часть S , начиная с третьего символа и число символов равно 5

( 'ФОРМА‘)

S 2 - это часть S , начиная с 8 - го символа и число символов равно 3

( ' ТИК‘ )

S 3 - это часть S , начиная с 2го символа и число символов равно 1 ( 'Н' )

Ро s

Ро s (подстрока, строка) находит местонахождения подстроки в строке

S :=' KAPA Б AC БАРАБАС ’ ;

n1 := Pos (‘Б AP ', S ); Writeln ( n1 );

n 2:= Pos ( ‘PA Б', S ); Writeln ( n 2);

n 3:= Pos (' PO Б', S ); WriteLn ( n 2);

Получим 9 ('БАР' стоит на 9й позиции)

Получим 3 ('РАБ' стоит на Зй позиции)

Получим 0 ('РОБ' не встречается )

Delete

Delete ( c т po к a , позиция, число символов)

удаление части строки

S :=' KAPT И HA ';

Delete(S,5,2);

WriteLn(S);

S1:='MAP И HA';

Delete(S1,2,2);

WriteLn(S 1 );

Удаляем 2 буквы начиная с пятой получим 'КАРТА'

Удаляем 2 буквы начиная со второй Получим 'МИНА'

Insert

Insert (подст p ок a , строка, позиция)

вставка подстроки в строку

S:='KOPA';

Insert('OB',S,4);

Writeln(S);

S 1 : = ' РОЗА ';

Insert( Г ',S 1 , 1 );

Writeln(S1);

Получим 'КОРОВА‘

Получим 'ГРОЗА'

Str

Str (число: формат, строка)

преобразование числа в строку

х :=12.7843;

Str(x:8:2,s);

Writeln(s);

у :=567.7;

Str(y:8:4,s1);

Writeln(sl);

S ‘_ _ _ 12.78'

S1 '567.7000'

0 , то преобразование было прервано на символе с номером равным коду) S:='12.78'; Val(S, х , cod); Writeln(x, cod); S:=' 12.78 рублей '; Val(S, x, cod); Writeln(x, cod); S:='C вас 12.78 рублей '; Val(S, x, cod); Writeln(x, cod); Даст: x= 12.78 и cod =0 Даст: x = 12.78 и cod =6 Даст: x =0 и cod = 1 " width="640"

Val

Val (строка, число, код завершения)

преобразует строку в число (если после завершения операции

код=0, то преобразована вся строка, если код0 , то преобразование было прервано на символе с номером равным коду)

S:='12.78';

Val(S, х , cod);

Writeln(x, cod);

S:=' 12.78 рублей ';

Val(S, x, cod);

Writeln(x, cod);

S:='C вас 12.78 рублей ';

Val(S, x, cod);

Writeln(x, cod);

Даст: x= 12.78 и cod =0

Даст: x = 12.78 и cod =6

Даст: x =0 и cod = 1