Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
18 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
1.20 MB
Просмотров:
54
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![Строки, как частный случай](/documents_6/7c27bef162ae499c3005af8906193f43/img0.jpg)
Содержание слайда: Строки, как частный случай массивов
№2 слайд![Тип String](/documents_6/7c27bef162ae499c3005af8906193f43/img1.jpg)
Содержание слайда: Тип String
№3 слайд![Типы строк ShortString](/documents_6/7c27bef162ae499c3005af8906193f43/img2.jpg)
Содержание слайда: Типы строк
ShortString
№4 слайд![Пример работы с ANSIString](/documents_6/7c27bef162ae499c3005af8906193f43/img3.jpg)
Содержание слайда: Пример работы с ANSIString
var
string1, string2 : AnsiString;
begin
// Присвоение предложения первой строке
string1 := 'Hello World';
// Присвоение второй строке значения путем указания string2 на string1
// Число ссылок на строку 'Hello World' равно 2
string2 := string1;
//Разъединение string1 и string2
string2 := string2 + ', how is everyone?';
//Длина первой строки 5
SetLength(string1, 5);
writeln('String1 = '+string1);
writeln ('String2 = '+string2);
end;
String1 = Hello
String2 = Hello World, how is everyone?
№5 слайд![В модулях System, SysUtils,](/documents_6/7c27bef162ae499c3005af8906193f43/img4.jpg)
Содержание слайда: В модулях System, SysUtils, Strings определены методы для обработки строк
Функциональное назначение методов:
Создание и удаление строк.
Копирование и объединение.
Длина и позиционирование.
Представление строки.
Преобразования строки в иной тип.
Преобразования иного типа в строку.
Сравнение строк.
№6 слайд![Средства модуля System](/documents_6/7c27bef162ae499c3005af8906193f43/img5.jpg)
Содержание слайда: Средства модуля System
№7 слайд![Средства модуля SysUtils](/documents_6/7c27bef162ae499c3005af8906193f43/img6.jpg)
Содержание слайда: Средства модуля SysUtils
№8 слайд![Строка , как частный случай](/documents_6/7c27bef162ae499c3005af8906193f43/img7.jpg)
Содержание слайда: Строка , как частный случай массива
Var s: array [1..10] of char;
Str1: string[10];
Str2:string[5];
Begin
Str1:=‘Это строка’;
Str2:=‘Пример’;
S:=str1; // s[1]=‘Э’, s[2]=‘т’, s[3]=‘о’,… ,s[10]=‘a’
S:=str2;// s[1]=‘П’, s[2]=‘р’, s[3]=‘и’,… ,s[10]=‘#0’
№9 слайд![Определить, является ли](/documents_6/7c27bef162ae499c3005af8906193f43/img8.jpg)
Содержание слайда: Определить, является ли строка палиндромом.
Палиндром – это число, слово или фраза, одинаково читающиеся в обоих направления.
var
s: string;
i: byte; flag: boolean;
begin
write('String: ');
readln(s);
flag := true;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s)-i+1] then begin
writeln('No palindrome');
flag := false;
break;
end;
if flag then
write('Palindrome');
readln
end.
№10 слайд![Найти в строке определенную](/documents_6/7c27bef162ae499c3005af8906193f43/img9.jpg)
Содержание слайда: Найти в строке определенную последовательность символов и заменить ее другой.
var
s,s_old,s_new: string;
i,l_old: byte;
begin
write(‘Исходная строка: '); // я изучаю Turbo Pascal
readln(s);
write(‘Что заменить?'); //Тurbo
readln(s_old);
l_old := length(s_old);
write(‘Чем заменить? '); //Free
readln(s_new);
i := pos(s_old,s);
delete(s,i,l_old);
insert(s_new,s,i);
writeln(s); // я изучаю Free Pascal
end.
№11 слайд![Выделить из строки целые](/documents_6/7c27bef162ae499c3005af8906193f43/img10.jpg)
Содержание слайда: Выделить из строки целые числа и поместить их в массив.
var
arr: array[1..100] of string;
i, j: integer; strinput, str: string;
a: char; n: byte;
begin
i := 1; j := 1; str:=‘’;
readln(strinput); //abc 56 de7 ff15
n := length(strinput); //15
while i <= n do begin
a := strinput[i];
while (a >= '0') and (a <= '9') do
begin
str := str + a; i := i + 1; a := strinput[i]
end;
i := i + 1;
if str <> '' then begin arr[j] := str; j := j + 1; str := '‘; end;
end;
for i := 1 to j - 1 do
write(arr[i]:6); // 56 7 15
end.
№12 слайд![Оставить в строке только один](/documents_6/7c27bef162ae499c3005af8906193f43/img11.jpg)
Содержание слайда: Оставить в строке только один экземпляр каждого встречающегося символа.
var
s1,s2,s3: string;
i: byte;
begin
write('String: '); // adc hghj fgc yugl aa
readln(s1);
s2 := '';
for i:=1 to length(s1) do
begin
s3 := copy(s1,i,1);
if pos(s3,s2) = 0 then
s2 := s2 + s3
end;
writeln('String: ',s2);
readln
end.
№13 слайд![Необходимо сформировать из](/documents_6/7c27bef162ae499c3005af8906193f43/img12.jpg)
Содержание слайда: Необходимо сформировать из встречающихся в предложении слов их массив. При этом повторяющиеся слова не должны входить в массив дважды.
var u,w: string; i, j, q: integer;
ws: array[1..100] of string; : string; len: integer;
begin
writeln('Введите текст: ');
read(u);
len := length(u);
i := 1; q:=0;
while i <= len do
if (lowercase(u[i]) >= 'a') and (lowercase(u[i]) <= 'z') then
begin w := lowercase(u[i]);
i := i + 1;
while (i <= len) and ((lowercase(u[i]) >= 'a') and (lowercase(u[i]) <= 'z')) do
begin w := w + lowercase(u[i]); i := i + 1; end;
j := 1;
while (j <= q) and (w<>ws[j]) do
j := j + 1;
if j > q then
begin q := q + 1; ws[q] := w; end;
end
else i := i + 1;
for i := 1 to q do
writeln(ws[i]); end.
№14 слайд![Удалить в строке все лишние](/documents_6/7c27bef162ae499c3005af8906193f43/img13.jpg)
Содержание слайда: Удалить в строке все лишние пробелы.
Лишними считаются пробелы, следующие непосредственно за пробелами. Т.е. между словами всегда должен находиться один пробел
№15 слайд![Средства модуля String](/documents_6/7c27bef162ae499c3005af8906193f43/img14.jpg)
Содержание слайда: Средства модуля String
№16 слайд![](/documents_6/7c27bef162ae499c3005af8906193f43/img15.jpg)
№17 слайд![uses SysUtils uses SysUtils](/documents_6/7c27bef162ae499c3005af8906193f43/img16.jpg)
Содержание слайда: uses SysUtils;
uses SysUtils;
var
p1,p2,p3,p:pChar; s1,s2:string; MaxLen:word;
begin
p:=StrNew(’1234′); // Создать строку (аргумент не пустой)
StrDispose(p); // Удалить строку
p1:=StrNew(‘AAAAAAAAAAAAAAAA’);
p2:=StrNew(’123456′);
p3:=StrNew(‘abcdef’);
StrCopy(p1,p2); // Копировать p2 в p1
s1:=StrPas(p1); // Преобразовать p1 в s1 для вывода
writeln(s1); // s1 = 123456
StrLCopy(p1,p2,4); // Копировать p2 в p1 с ограничением длины
writeln(StrPas(p1)); // 1234
p1:=StrMove(p1,p3,2); // Копирование из p3 2 элементов в p1 с заменой
writeln(StrPas(p1)); // ab34
p1:=StrLCat(p1,p2,8); // Дописать p3 в p1 с ограничением длины
writeln(StrPas(p1)); // ab34abcd
End;
№18 слайд![var var p ,p ,p pChar x](/documents_6/7c27bef162ae499c3005af8906193f43/img17.jpg)
Содержание слайда: var
var
p1,p2,p4:pChar;
x:integer;
begin
p1:=StrNew(‘ABC123′);
p2:=StrNew(‘abc123’);
p4:=StrNew(’ABC456’);
x:=StrComp(p1,p3);
writeln(x);
x:=StrComp(p1,p2); // p1 < p2
writeln(x); // x = -32
x:=StrComp(p4,p1); // p4 > p1
writeln(x); // x = 3
x:=StrIComp(p2,p1); // p2 = p3
writeln(x); // x = 0
x:=StrLComp(p1,p4,3); // p1 = p4
writeln(x); // x = 0
x:=StrLIComp(p1,p4,4); // Сравнить p1 и p4
writeln(x); // x = -3
End;