Организация работы со строками - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Организация работы со строками, слайд №1

Организация работы со строками, слайд №2

Организация работы со строками, слайд №3

Организация работы со строками, слайд №4

Организация работы со строками, слайд №5

Организация работы со строками, слайд №6

Организация работы со строками, слайд №7

Организация работы со строками, слайд №8

Организация работы со строками, слайд №9

Организация работы со строками, слайд №10

Организация работы со строками, слайд №11

Организация работы со строками, слайд №12

Организация работы со строками, слайд №13

Организация работы со строками, слайд №14

Организация работы со строками, слайд №15

Организация работы со строками, слайд №16

Организация работы со строками, слайд №17

Организация работы со строками, слайд №18

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Организация работы со строками. Доклад-сообщение содержит 18 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Строки, как частный случай массивов

Слайд 2

Описание слайда:

Тип String

Слайд 3

Описание слайда:

Типы строк ShortString

Слайд 4

Описание слайда:

Пример работы с 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, Strings определены методы для обработки строк Функциональное назначение методов: Создание и удаление строк. Копирование и объединение. Длина и позиционирование. Представление строки. Преобразования строки в иной тип. Преобразования иного типа в строку. Сравнение строк.

Слайд 6

Описание слайда:

Средства модуля System

Слайд 7

Описание слайда:

Средства модуля SysUtils

Слайд 8

Описание слайда:

Строка , как частный случай массива 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

Описание слайда:

Определить, является ли строка палиндромом. Палиндром – это число, слово или фраза, одинаково читающиеся в обоих направления. 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

Описание слайда:

Найти в строке определенную последовательность символов и заменить ее другой. 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

Описание слайда:

Выделить из строки целые числа и поместить их в массив. 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 = '0') and (a

Слайд 12

Описание слайда:

Оставить в строке только один экземпляр каждого встречающегося символа. 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

Описание слайда:

Необходимо сформировать из встречающихся в предложении слов их массив. При этом повторяющиеся слова не должны входить в массив дважды. 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 = 'a') and (lowercase(u[i])

Слайд 14

Описание слайда:

Удалить в строке все лишние пробелы. Лишними считаются пробелы, следующие непосредственно за пробелами. Т.е. между словами всегда должен находиться один пробел

Слайд 15

Описание слайда:

Средства модуля String

Слайд 16

Описание слайда:

Слайд 17

Описание слайда:

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 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;