Download
1 / 13
130 likes | 355 Views
Символьные переменные. Строка ( string )- это последовательность литер. Тип данных ( string ) определяет строки с максимальной длиной 255 символов. Переменная этого типа может принимать значения переменной длины.
E N D
Строка(string)- это последовательность литер. Тип данных (string) определяет строки с максимальной длиной 255 символов. Переменная этого типа может принимать значения переменной длины.
1) Delete (Str, Poz, N) - удаление N символов строки Str, начиная с позиции Poz. • Insert (What, Where, Poz) - вставка строки What в строку Where, начиная с позиции Poz. • 3) Copy (Str, Poz, Nstr) - выделяет подстроку длиной Nstr, начиная с позиции Poz, из строки Str. • 4) Concat (Str1, Str2, ..., StrN) - выполняет сцепление строк в том порядке, в каком указаны в списке параметров.
Pos (What, Where) - обнаруживает первое появление подстроки What в строке Where. • UpCase (Ch) - преобразует строчную букву в прописную. • Str (Number, Stroka) - преобразует число в строку. • 8) Val (Stroka, Number, Code) - преобразует строку в число и выдает код правильности преобразования.
Встроенная функция Length (длина) позволяет определить фактическую длину текстовой строки, хранящейся в указанной переменной.
Две символьные переменные можно складывать:program ttt;vara,b,c: srting[40];begina:='программирование';b:=' на Паскале';c:=a+b;write (c);end.
Что получится в результате выполнения данной программы? vara,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]=‘Д' thena[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]<=‘9‘) 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 в:=в+а[i]; end; writeln (в); end.
