Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемЗоя Добровольская
1 Символьные переменные
2 Строка (string)- это последовательность литер. Тип данных (string) определяет строки с максимальной длиной 255 символов. Переменная этого типа может принимать значения переменной длины.
3 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) - выполняет сцепление строк в том порядке, в каком указаны в списке параметров.
4 5)Pos (What, Where) - обнаруживает первое появление подстроки What в строке Where. 6)UpCase (Ch) - преобразует строчную букву в прописную. 7)Str (Number, Stroka) - преобразует число в строку. 8) Val (Stroka, Number, Code) - преобразует строку в число и выдает код правильности преобразования.
5 Встроенная функция Length (длина) позволяет определить фактическую длину текстовой строки, хранящейся в указанной переменной.
6 Две символьные переменные можно складывать: program ttt; var a,b,c: srting[40]; begin a:='программирование'; b:=' на Паскале'; c:=a+b; write (c); end.
7 Что получится в результате выполнения данной программы? var a,b:string;s:integer; begin a:='семеро одного не ждут'; b:='в поле война '; delete(a,8,9); Insert (b,a,9); s:=Length(a); writeln (a,s); end.
8 Задание. Дана строка: Карандаш – чтобы писать, а молот – чтобы ковать Определить длину данной строки, поменять местами первую и вторую части предложения.
9 В строке подсчитать количество букв а. 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.
10 В строке заменить букву Д на В. 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.
11 Подсчитать количество слов, начинающихся на букву «В» 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.
12 Сколько чисел в строке. 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]
13 В строке есть буквы А. Сформировать новую строку, состоящую из этих букв. 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.
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.