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

Строка (string)- это последовательность литер. Тип данных (string) определяет строки с максимальной длиной 255 символов. Переменная этого типа может принимать значения переменной длины.

1) Delete (Str, Poz, N) - удаление N символов строки Str, начиная с позиции Poz. 2)Insert (What, Where, Poz) - вставка строки What в строку Where, начиная с позиции Poz. 3) Copy (Str, Poz, Nstr) - выделяет подстроку длиной Nstr, начиная с позиции Poz, из строки Str. 4) Concat (Str1, Str2,..., StrN) - выполняет сцепление строк в том порядке, в каком указаны в списке параметров.

5)Pos (What, Where) - обнаруживает первое появление подстроки What в строке Where. 6)UpCase (Ch) - преобразует строчную букву в прописную. 7)Str (Number, Stroka) - преобразует число в строку. 8) Val (Stroka, Number, Code) - преобразует строку в число и выдает код правильности преобразования.

Встроенная функция Length (длина) позволяет определить фактическую длину текстовой строки, хранящейся в указанной переменной.

Две символьные переменные можно складывать: program ttt; var a,b,c: srting[40]; begin a:='программирование'; b:=' на Паскале'; c:=a+b; write (c); end.

Что получится в результате выполнения данной программы? var a,b:string;s:integer; begin a:='семеро одного не ждут'; b:='в поле война '; delete(a,8,9); Insert (b,a,9); s:=Length(a); writeln (a,s); end.

Задание. Дана строка: Карандаш – чтобы писать, а молот – чтобы ковать Определить длину данной строки, поменять местами первую и вторую части предложения.

В строке подсчитать количество букв а. Var a:string; i,s: integer; begin writeln (введи строку'); readln (a); for i:=1 to length(a) do begin if a[i]='a' then s:=s+1; end; writeln (количество букв а=',s); end.

В строке заменить букву Д на В. Var a: string; i: integer; begin writeln (введи строку'); readln (a); for i:=1 to length(a) do begin if a[i]=Д' then a[i]:=В' ; end; writeln (а); end.

Подсчитать количество слов, начинающихся на букву «В» Var a:string; i,s: integer; begin writeln (введи строку'); readln (a); for i:=1 to length(a) do begin if (a[i]= ) and (a[i+1]=В) then s:=s+1; end; if a[1]=В then s:=s+1; writeln (количество слов=',s); end.

Сколько чисел в строке. Var a:string; i,s: integer; begin writeln (введи строку'); readln (a); for i:=1 to length(a) do begin if (a[i]>=0) and (a[i]

В строке есть буквы А. Сформировать новую строку, состоящую из этих букв. Var a,в: string; i: integer; begin writeln (введи строку'); readln (a); в:=; for i:=1 to length(a) do begin if a[i]=А then в:=в+а[i]; end; writeln (в); end.