Презентация к уроку по теме Символьные переменные. Удаление и вставка фрагментов текста

Удаление и вставка фрагментов текста Продолжите фразу:Сегодня на уроке я узнаю…Я научусь…Я сегодня буду развивать… Пример 1.Распечатать заданное слово в одной строке с разрядкой (пробел после каждой буквы).Program prim1;Var s, x ,i: string;BeginWriteln(‘введите слово’);Readln(s);x:=’’;For i:=1 to lemgth(s) beginx;=x+copy(s,i,1)+’ ‘End;Writeln(‘получилось слово ‘, x);Readln;End.Program prim1;Var s, x: string;i: integer;BeginWriteln(‘введите слово’);Readln(s);x:=’’;For i:=1 to length(s) do beginx:=x+copy(s,i,1)+’ ‘;End;Writeln(‘получилось слово ‘, x);Readln;End.
Пример 2.Составить программу подсчета количества вхождений буквы “а” в заданном тексте.Program Прим 2;Var: s, i, k: integer;BeginWriteln(‘введите текст’);Readln(s);k:=0;for i=1 to length(s) do beginif copy(s, 1)=’a’ then k=k+1end;Writln(‘количество букв “а” в тексте равно ’ k);Writeln;End.Program prim2;Var s: string; i, k: integer;BeginWriteln(‘введите текст’);Readln(s);k:=0;for i:=1 to length(s) do beginif copy(s, i, 1)=’a’ then k:=k+1;end;Writeln(‘количество букв “а” в тексте равно ’ , k);Writeln;End.
Пример 3. Составить программу, которая определяет сколько раз в тексте встречается буквосочетание «трио».program trio;var t:string; i,n,s:integer;begin writeln(‘введите текст’);readln(t);n:=lengtn(a);for i=1 to n do begina:=copy(t,i,2);if a:=’трио’ then s:=s+1;end;writeln(‘в , t,’буквосочетание трио встречается’, s раз );end.program trio;var t,a:string; i,n,s:integer;begin writeln(‘введите текст’);readln(t);n:=length(t);for i:=1 to n do begina:=copy(t,i,4);if a=’трио’ then s:=s+1;end;writeln(' в' , t,’буквосочетание трио встречается’, s, ‘раз’ );end.
{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}№ п/пНазваниеФорматНазначение LENGTHC:=LENGTH(str);Переменной С будет присвоено целое значение, показывающее количество символов в строковой переменной str2. COPYS1:=COPY(str, I, J);Sl-символьная подстрока, выделенная из строки str с позиции I, длиной J символов.3. STRSTR (V, S1);Числовое значение переменной V преобразуется в строку символов и записывается в строку S1.4. VALVAL (S1, V, C);Строковое выражение S1 преобразуется в величину целочислен­ного или вещественного типа и записывается в переменной V5. CHRCHR(x)Возвращает символ, соответствующий ASCII-коду числа x6. ORDORD(S)Определение кода по символу {5C22544A-7EE6-4342-B048-85BDC9FD1C3A}СОNCAТstr:=CONCAT(st1,st2,...,stN);Сцепление строк в порядке их перечисления (str-переменная типа STRING, состоящая из строк st1,...,stN).{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}POSP:=POS (st1, st2);Р-целое число, показывающее номер позиции, с которой начина­ется строка st1 в строкe st2.{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}DELETEDELETE(Str, I, J); Из строки str удаляется J символов, начиная с I позиции.{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}INSERTINSERT(Str1,Str2,I);Строка Str1 вставляется с I позиции в строку Str2.

Процедура Delete(str, n, m) вырезает из строки str m символов, начиная с n-го. Таким образом, сама строка изменяется.Пример.Дан фрагмент программы:s:='123456'; delete(s, 3, 2);writeln(s);После выполнения этих операторов из строки будут удалены два символа, начиная с третьего, то есть строка будет такой: s = '1256'. Замена (Вставка)Процедура Insert(s1,s2,n) – вставка строки s1 в строку s2, начиная с n-го символа, при этом первая строка остается такой же, как и была, а вторая получает новое значение.Пример.s1;='34':s2:='1256'; insert (s1, s2, 3);В результате выполнения данной процедуры строка будет такой s2='123456'. ЗАДАЧА: В данной строке символов все слова «мир» замените на слово «дом»program mir;var t,a,p,m:string; i:integer;begin writeln(‘введите текст’);readln(t);p:=‘мир’; a:=‘дом’;for i:=1 to lengtn(t) do beginm:=copy(t,i,3);if m=p then begin delete(t,i,3); insert(a,t,i);end; end;writeln(‘новое слово ’, t);end.
Сегодня я узнал(а)… Было интересно… Было трудно… Я выполнял(а) задания… Я понял(а), что… Теперь я могу… Я научился(лась)… Урок дал мне для жизни…Подведем итоги Спасибо за работу! Еще чуть-чуть… и  постучится в дом — 2016 год…Пусть он будет…добрым и  счастливым!И запах мандаринов, и свет свечей…И елка вся –гирляндами сверкает…И мудрость поздравительных   речей…И сказка, в каждом доме  —  ожидает!Под бой курантов – Счастье на порог…И исполненье  – тайных грез, желаний…И пусть  пребудет в каждом сердце – Бог… Не будет нежеланных расставаний…Давайте – загадаем … и исполнится! Свершиться Чуду –В Новый год… не сложно …Пусть счастьем и любовью дом наполниться…Ведь если верить  очень,  все – возможно!