Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
18 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
358.24 kB
Просмотров:
115
Скачиваний:
2
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![Алгоритмы обработки текстовых](/documents_6/de7806bed935e08e89bd569f8653142f/img0.jpg)
Содержание слайда: Алгоритмы обработки текстовых данных
№2 слайд![Строковый тип данных string](/documents_6/de7806bed935e08e89bd569f8653142f/img1.jpg)
Содержание слайда: Строковый тип данных (string)
Строковый тип данных (string) — это сложный тип данных (в отличие от integer, real, boolean и char).
Значением строковой величины является последовательность символов (т.е. элементов типа char).
№3 слайд![Объявление текстовых данных](/documents_6/de7806bed935e08e89bd569f8653142f/img2.jpg)
Содержание слайда: Объявление текстовых данных
Var Text: String;
№4 слайд![Процедуры Delete Var S String](/documents_6/de7806bed935e08e89bd569f8653142f/img3.jpg)
Содержание слайда: Процедуры
Delete ( Var S : String; N, M : Integer )
{Удаляет M символов из строки S, начиная с позиции N}
Insert ( SubS : String; Var S : String; N : Integer)
{Вставляет подстроку SubS в строку S, начиная с позиции N}
Str ( X : Integer; Var S : String )
{Возвращает представление числа X в его символьной форме S}
Val ( S : String; Var X, Code : Integer )
{Возвращает представление символов строки S в ее числовой форме X. Параметр Code содержит признак ошибки преобразования (если Code = 0, ошибки нет)}
№5 слайд![Пример var stroka,stroka](/documents_6/de7806bed935e08e89bd569f8653142f/img4.jpg)
Содержание слайда: Пример:
var stroka,stroka1,stroka2:string;
x,y,z:integer; begin
x:=1234; y:=5678; z:=x+y;
writeln(z);
str(x,stroka1); str(y,stroka2);
stroka:=stroka1+stroka2;
writeln(stroka);
end.
№6 слайд![Функции Ord X Char LongInt](/documents_6/de7806bed935e08e89bd569f8653142f/img5.jpg)
Содержание слайда: Функции
Ord ( X : Char ) : LongInt {Порядковый номер символа X в таблице кодов символов (из таблицы ASCII)}
Chr ( X : Byte ) : Char {Возвращает символ с заданным порядковым номером X (из таблицы ASCII)}
№7 слайд![Функции Сoncat S , S , ... ,](/documents_6/de7806bed935e08e89bd569f8653142f/img6.jpg)
Содержание слайда: Функции
Сoncat (S1 , S2 , ... , SN): String
{Выполняет сцепку (конкатенацию) последовательности строк}
Copy ( S : String; N , M : Integer ) : String
{Выделяет подстроку из строки S, начиная с позиции N и длиной M символов}
Length ( S : String ) : Byte
{Количество символов в строке S - длина}
Pos ( SubS , S : String ) : Byte
{Номер позиции, начиная с которой в строке S располагается подстрока SubS (если значение функции равно нулю, то S не содержит SubS)}
№8 слайд![Пример var i integer s, t, u](/documents_6/de7806bed935e08e89bd569f8653142f/img7.jpg)
Содержание слайда: Пример:
var i: integer;
s, t, u: string; begin
s := ’индустриализация’;
t := Copy(s, 3, 2);
u := Copy(s, 9, 8);
WriteLn(Concat(t, u));
i := Pos(’ус’, s);
Delete(s, i, 11);
WriteLn(s);
Insert(’онез’, s, 4);
WriteLn(s); end.
№9 слайд![Посчитать количество слов в](/documents_6/de7806bed935e08e89bd569f8653142f/img8.jpg)
Содержание слайда: Посчитать количество слов в предложении
№10 слайд![Program KolSlov Program](/documents_6/de7806bed935e08e89bd569f8653142f/img9.jpg)
Содержание слайда: Program KolSlov;
Program KolSlov;
Var Text : String; i, k : Integer; Flag: Boolean;
BEGIN
WriteLn('Введите текст :'); ReadLn(Text);
k := 0; Flag := TRUE;
For i := 1 to Length(Text) do begin
If (Text[i] <> ' ') and Flag then
k := k+1;
Flag := (Text[i]=' ')
end;
WriteLn('О т в е т : количество слов в тексте равно ', k);
END.
№11 слайд![Заменить слово в предложении](/documents_6/de7806bed935e08e89bd569f8653142f/img10.jpg)
Содержание слайда: Заменить слово в предложении
Программа, использующая стандартную функцию Pos , не требует, чтобы длины заменяемого и вставляемого слов были одинаковыми
№12 слайд![Program Replace Program](/documents_6/de7806bed935e08e89bd569f8653142f/img11.jpg)
Содержание слайда: Program Replace;
Program Replace;
Var Text, Slovo1, Slovo2 : String;
i, DlinaSlova, P : Integer;
BEGIN;
Write('Введите строку : '); ReadLn(Text);
Write('Какое слово заменить ? '); ReadLn(Slovo1);
Write('На какое слово заменить ? '); ReadLn(Slovo2); WriteLn;
DlinaSlova:=Length(Slovo1);
P:=Pos(Slovo1,Text); {номер позиции, с которой в строке Text в первый раз встречается подстрока Slovo1}
While P>0 do {цикл продолжается до тех пор пока подстрока Slovo1 встречается в строке Text}
begin Delete(Text, P, DlinaSlova); {удаление подстроки Slovo1, начинающейся с позиции P, из строки Text }
Insert(Slovo2, Text, P); {вставка подстроки Slovo2 в строку Text с позиции Р}
P:=Pos(Slovo1, Text); {номер позиции, с которой подстрока Slovo1 встречается в строке Text в очередной раз} end;
WriteLn('Новый текст: ', Text); END.
№13 слайд![Определить, является ли](/documents_6/de7806bed935e08e89bd569f8653142f/img12.jpg)
Содержание слайда: Определить, является ли заданное слово "перевёртышем"
(слово называется "перевёртышем", если совпадает с собой после реверса)
№14 слайд![Program Program Var Slovo](/documents_6/de7806bed935e08e89bd569f8653142f/img13.jpg)
Содержание слайда: Program;
Program;
Var Slovo : String;
Dlina, i : Integer;
Flag : Boolean;
BEGIN Write('Введите слово : '); ReadLn(Slovo);
Dlina:= Length(Slovo);
i:=1; Flag := TRUE;
While (i <= Dlina/2) and Flag do begin
Flag := (Slovo[i]=Slovo[Dlina-i+1]);
{Сравниваются пары букв: первая буква с последней, вторая буква с предпоследней и т.д. }
i := i+1
end;
WriteLn; Write( 'О т в е т : слово ', Slovo);
If Flag then WriteLn(' — перевертыш. ')
else WriteLn(' — не перевертыш');
END.
№15 слайд![Заданную последовательность](/documents_6/de7806bed935e08e89bd569f8653142f/img14.jpg)
Содержание слайда: Заданную последовательность слов переупорядочить в алфавитном порядке
№16 слайд![Program Poryadok Program](/documents_6/de7806bed935e08e89bd569f8653142f/img15.jpg)
Содержание слайда: Program Poryadok;
Program Poryadok;
Var Words : Array[1..10] of String; Tmp : String; i, j, k : Integer;
BEGIN
Write('Количество слов в тексте — '); ReadLn(k);
For i := 1 to k do begin
Write(i, '-ое слово : '); ReadLn(Words[i]) end;
For i := 1 to k-1 do
For j := i+1 to k do
If Words[i]>Words[j] then begin
Tmp := Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp;
end;
WriteLn('О т в е т:');
For i := 1 to k do
Write(Words[i], ' ');
END.
№17 слайд![Проверить, имеется ли в](/documents_6/de7806bed935e08e89bd569f8653142f/img16.jpg)
Содержание слайда: Проверить, имеется ли в формуле баланс открывающих и закрывающих скобок
№18 слайд![Program Balance Program](/documents_6/de7806bed935e08e89bd569f8653142f/img17.jpg)
Содержание слайда: Program Balance;
Program Balance;
Var S : String;
k, i : Integer;
BEGIN
Write('Введите формулу :'); ReadLn(S);
i:=1; k:=0;
While i<=Length(S)) do begin
If S[i] = '(' then k:=k + 1;
If S[i] = ')' then k:=k - 1;
i:=i+1;
end;
WriteLn('О т в е т');
If k=0 then Write('Есть баланс ') else Write('Нет баланса ');
WriteLn('открывающих и закрывающих скобок');
END.