Строковые величины

1. Строковые величины

Задачи урока:
повторить знания о символьных
величинах, закрепить навыки
разработки программы и умения
применять функции

2. Строковые величины

В языке Паскаль существует стандартный тип
данных, который называется символьным. К
символьным переменным относятся:
Латинские буквы;
Русские буквы;
Знаки препинания;
Скобки;
Цифры.
В программах их значения всегда заключаются
в апострофы: ‘F’, ‘12345’, ‘Привет’

3. Строковые величины

• Последовательность символов, заключенная в
апострофы, называется строкой и описывается
типом string
• Строки, состоящие из 1 символа, называются
символьными константами.
• У строки может быть указан размер (от 1 до 255):
s1:string;(длина до 255)
s1:string [80];(не более 80 символов)

4. Строковые величины

Какова длина строки?
‘Привет, Вася!’

5.

Функции
Length (st)
Функция типа integer, определяет длину строки st.
Concat (st1,st2)
Функция типа string, объединяет строки st1 и st2.
Copy (st,x,y)
Функция типа string, х – номер символа, с которого
начинается копирование, у – количество копируемых
символов.
Pos (st1,st)
Функция типа integer, определяет позицию, с которой
начинается строка st1 в строке st.
Процедуры
Delete (st,x,y)
Удаление у символов из строки st, начиная с позиции х.
Insert (st,st1,х)
Вставка строки st в строку st1, начиная с позиции х.
Str (n,st)
Преобразовывает число n в строковую переменную st.
Val (st,n,m)
Преобразовывает строку st в число n, m – позиция
символа.

6. Определение длины строки

program dlina;
var st:string;
l:integer;
begin
writeln('Введите строку ');
read(st);
l:=length(st);
write('Длина = ',l);
end.

7. Операция конкатенации (+)

program sceplenie;
var a,b,c:string;
begin
a:=‘бан';
b:=‘ка ';
c:=a+b;
write(c);
end.

8. Операция вырезки

program slovo;
var a,b:string;
begin
a:=‘информатика’;
b:=copy(a,3,5);
write(b)
end.

9. Определить, сколько раз в данном слове встречается буква «а»

program slov o;
v ar s:string;
l,i ,k:i nteger ;
begin
write(‘Введите слово ’);
read(s);
l:=length(s);
for i:=1 to l do
i f copy(s,i ,1)=‘a’ then k:=k+1;
write(k);
end.

10. Написать программу, которая выводит на экране сообщение в «телеграфном» стиле, т.е. буквы сообщения должны появляться по одной,

причем с
некоторой задержкой.
program telegramma;
uses crt;
var c:string;
n:integer;
begin
clrscr;
c:='Телеграмма';
for n:=1 to length(c) do
begin
write(c[n]);
delay(1000);
end; readkey
end.

11. Определить, является ли слово перевертышем

program perev ertish ;
v ar a,b,c:string ;
i:integer;
begin
writeln('Введите слово ');
read(a);
for i:=length(a) downto 1 do begi n
c:=copy(a,i ,1);
b:=b+c;
end;
if a=b then write(' да') else write(' нет')
end.