Символьный и строковый тип данных презентация

Содержание

ТИП ДАННЫХ 1. Целый: Integer (-32 768…32 768), LongInt (-2 147 483 648… 2 147 48648),

Слайд 1Символьный и строковый тип данных

Слайд 2ТИП ДАННЫХ
1. Целый: Integer (-32 768…32 768),

LongInt (-2 147 483 648… 2 147 48648),
Word (0…65535)

2. Логический: Boolean ( False (ложь) или
True (истина) )

3. Вещественный ( Real (2.9E-39…1.7E38),
Comp (-9.2E18…9.2E18) )

Слайд 34. Символьный (Char)
Значения Char - символы
Каждому символу соответствует свой код

Функция

Ord(w) дает порядковый номер символа w
Функция Chr(i) определяет символ с порядковым номером i
Ord(Chr(i)) = i
Chr(Ord(w) = w
Функция Upcase(ch) преобразует значение переменной ch символьного типа , если оно соответствует строчной латинской букве в код прописной буквы, иначе значение ch остается неизменным



Слайд 4Задание 1.
Составить программу, которая определяет код одного введенного символа
Program kod;
Uses Crt;
Var

d:Char;
x:Integer;
Begin
ClrScr;
WriteLn('введи символ');
ReadLn(d);
x:=ord(d);
WriteLn('код символа ',d,' равен ',x);
ReadLn;
End.

Слайд 5Задание 2.
Составить програму, которая определяет код любого количества введенных символов, пока

небудет введен символ ‘.’ (точка)


Услоовие d = '.'

Слайд 6Program kod;
Uses Crt;
Var d:Char;
x:Integer;
Begin
ClrScr;
Repeat

WriteLn('введи символ и нажми Enter');
ReadLn(d);
x:=ord(d);
WriteLn('код символа ',d,' равен ',x);
ReadLn;
Until d='.';
End.

Слайд 7Задание 2.
Составить програму, которая преобразует введенную строчную латинскую букву в прописную

Задание

3.
Составить програму, которая преобразует введенную строчную латинскую или русскую букву в прописную


Слайд 8Задание 2.
Составить програму, которая преобразует любое количество введенных строчных латинских букв

в прописные


Слайд 94. Стороковый (String)

Значения переменной типа String – последовательность символов определенной

длины
Значения строковой константы - последовательность символов , заключенных в апострофы (‘школа №6’)

Форма записи String [k] ,k – длина строки (мах размер)
Если [k] отсутствует, то длина строки =255 символов

Слайд 10Операция сравнения над строками

Сравнение строк происходит посимвольно слева направо: сравниваются коды

соответствующих символов до тех пор, пока не нарушится равенство, при этом делается вывод о знаке неравества

Примеры
‘Balkon’<‘balkon’ (Ord(‘B’)‘balkon’ > ‘balk’ (Длина первой строки больше)
‘кошка ‘ > ’кошка’ (Длина первой строки больше)
‘Кот’ =‘Кот’ (Равны по длине и совпадают посимвольно)


Слайд 11Функции и процедуры над строками

Слайд 121. Функция Concat(s1,s2,…,sm) или s1+s2+…+sm выполняет сцепление строк s1,s2,…,sm в одну

строку значение функции типа String


2. Функция Copy(s,p,n) выделяет из строки s подстроку длиной n символов, начиная с позиции p

Слайд 133. Функция Length(s) определяет длину строки s
Результат – значение целого

типа

4. Функция Pos(s1,s2) обнаруживает в строке s2 первое вхождение строки s1 (номер позиции). Если вхождения нет , то выдается 0

Слайд 145. Функция StrToInt(s) преобразует символьную строку s в числовое значение


k:= StrToInt(s)
Или

процедура Val(s,k,r)

Слайд 155. Процедура Delete(s,p,n) удаляет n символов из строки s, начиная с

позиции p

6. Процедура Insert(s1,s2,p) - вcтавка строки s1 в строку s2, начиная с позиции p.

Слайд 16Задание 1
Составить программу, которая определяет длину введенной строки

Слайд 17Длину этой строки переменной d, ее тип целый т.е.- integer;

Обозначим

вводимую строку переменной s, ее тип строковый т.е.- String
d:integer;

Длину этой строки переменной d, ее тип целый т.е.- integer;

Слайд 18начало

d:=Length(s)

Ввод s
конец
Вывод d
WriteLn('введи строку ');
ReadLn(s);

WriteLn('в строке ',d,' символов ');
ReadLn;

Слайд 19
Program dlina; {длина строки}
Uses Crt;
Var s:String; {вводимая строка}
d:integer;
Begin
ClrScr;
WriteLn('введи

строку и нажми Enter');
ReadLn(s);
d:=Length(s);
WriteLn('во введенной строке ',d,' символов ');
ReadLn;
end.

Слайд 20Задание 2
Составить программу, которая определяет количество слов

Слайд 21Кот и кит
начало
Copy(s,i,1)=‘ ‘
d:=length(s)
Ввести s
нет
да
i=1,d
k:= k+1
Вывести k
конец

Слайд 22Кот и кит
№ шага
i
Copy(s,i,1)=‘ ‘
k:=k+1
1
1
нет
к≠’ ‘
0
2
2
нет
о≠’ ‘
0
3
3
нет


т≠’ ‘

0

4

4

да

‘ ‘=’ ‘

1

5

5

нет

и≠’ ‘

1

6

6

да

‘ ‘=’ ‘

2

9

9

нет

т≠’ ‘

2

Слайд 23Program kod;{длина строки}
Uses Crt;
Var s:String;{вводимая строка}
d,i,k:integer;
Begin
ClrScr;
WriteLn('введи строку и

нажми Enter');
ReadLn(s);
d:=Length(s);
for i:=1 to d do if s[i]=' ' then k:=k+1;
WriteLn('во введенной строке ',k+1,' слов ');
ReadLn;
end.

Слайд 24Задание 3
Составить программу, которая выводит введенное слово назад

(ввод – кот

вывод – ток)

Обозначим
S- вводимое слово
S1 – выводимое слово (слово s назад)


d- длина слова
i - счетчик

Слайд 25начало
d:=length(s)
Ввести s
i=d,1
Вывести s1
конец

s1:= copy(s,i,1)

1

Слайд 26Кот
№ шага
i
s1:=copy(s,i,1)
1
3
т
2
2
о
3
1
к

Слайд 27Program slovo;
Uses Crt;
Var s,s1:String;
d,i,:integer;
Begin
ClrScr;
WriteLn(‘введи слово');
ReadLn(s);
d:=Length(s);
for

i:=d downto 1 do
Begin
s1:=copy(s,i,1);
Write(s1);
ReadLn;
end;
end.


Слайд 28Задание 4
Составить программу, которая определяет одинаково ли количество открывающихся и закрывающихся

скобок во вводимой строке

Обозначим
S- вводимая строка


k1- количество открывающихся скобок
k2- количество закрывающихся скобок
i - счетчик

Слайд 29
Program z_4;
Uses Crt;
Var s:String;
d,i,k1,k2:integer;
Begin
ClrScr;
WriteLn(‘введи строку');
ReadLn(s);
d:=Length(s);
for

i:=1 to d do if copy(s,i,1)=')' then k1:=k1+1;
for i:=1 to d do if copy(s,i,1)='(' then k2:=k2+1;
if k1=k2 then WriteLn(‘количество скобок равно')
else WriteLn(‘количество скобок неравно');
ReadLn;
end.

Слайд 30Дополнительные
процедуры

Слайд 31Процедура str(x,s) преобразует числовое значение x (тип real) в строку s

(тип String)

Процедура var(s,x,err) -превращает строковое значение s (тип String) в числовую переменную x (тип real) , err (тип-integer) возвращает номер позиции, в которой произошла ошибка преобразования, или 0 , если ошибки не было

Похожие презентации

Бертольд Брехт 261
Информационные процессы 269
Памяти писателей и поэтов-москвичей , погибших в годы Великой Отечественной войны. 245
Решение задач на составление и анализ родословных 1400
Классификация систем централизованного теплоснабжения 298
Лекция №2 Кинематическое исследование механизмов построением планов скоростей и ускорений 259

Обратная связь

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.

Для правообладателей

Яндекс.Метрика