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

• 1 слайд

  Удаление и вставка
  фрагментов текста
  

• 2 слайд

  Продолжите фразу:
  
  Сегодня на уроке я узнаю…
  Я научусь…
  Я сегодня буду развивать…
  

• 3 слайд

  Пример 1.
  Распечатать заданное слово в одной строке с разрядкой (пробел после каждой буквы).
  Program prim1;
  Var s, x ,i: string;
  Begin
  Writeln(‘введите слово’);
  Readln(s);
  x:=’’;
  For i:=1 to lemgth(s)
  begin
  x;=x+copy(s,i,1)+’ ‘
  End;
  Writeln(‘получилось слово ‘, x);
  Readln;
  End.
  Program prim1;
  Var s, x: string;
  i: integer;
  Begin
  Writeln(‘введите слово’);
  Readln(s);
  x:=’’;
  For i:=1 to length(s) do begin
  x:=x+copy(s,i,1)+’ ‘;
  End;
  Writeln(‘получилось слово ‘, x);
  Readln;
  End.
  

• 4 слайд

  Пример 2.
  Составить программу подсчета количества вхождений буквы “а” в заданном тексте.
  Program Прим 2;
  Var: s, i, k: integer;
  Begin
  Writeln(‘введите текст’);
  Readln(s);
  k:=0;
  for i=1 to length(s) do begin
  if copy(s, 1)=’a’ then k=k+1
  end;
  Writln(‘количество букв “а” в тексте равно ’ k);
  Writeln;
  End.
  Program prim2;
  Var s: string; i, k: integer;
  Begin
  Writeln(‘введите текст’);
  Readln(s);
  k:=0;
  for i:=1 to length(s) do begin
  if copy(s, i, 1)=’a’ then k:=k+1;
  end;
  Writeln(‘количество букв “а” в тексте равно ’ , k);
  Writeln;
  End.
  

• 5 слайд

  Пример 3.
  Составить программу, которая определяет сколько раз в тексте встречается буквосочетание «трио».
  program trio;
  var t:string; i,n,s:integer;
  begin
  writeln(‘введите текст’);
  readln(t);
  n:=lengtn(a);
  for i=1 to n do begin
  a:=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 begin
  a:=copy(t,i,4);
  if a=’трио’ then s:=s+1;
  end;
  writeln(' в' , t,’буквосочетание трио встречается’, s, ‘раз’ );
  end.
  

• 6 слайд

• 7 слайд

• 8 слайд

  Процедура Delete(str, n, m) вырезает из строки str m символов, начиная с n-го. Таким образом, сама строка изменяется.
  Пример.
  Дан фрагмент программы:
  s:='123456'; 
  delete(s, 3, 2);
  writeln(s);
  После выполнения этих операторов из строки будут удалены два символа, начиная с третьего, то есть строка будет такой: s = '1256'.
  
  

• 9 слайд

  Замена (Вставка)
  Процедура Insert(s1,s2,n) – вставка строки s1 в строку s2, начиная с n-го символа, при этом первая строка остается такой же, как и была, а вторая получает новое значение.
  Пример.
  s1;='34':
  s2:='1256'; 
  insert (s1, s2, 3);
  В результате выполнения данной процедуры строка будет такой s2='123456'.
  

• 10 слайд

  ЗАДАЧА: В данной строке символов все слова «мир» замените на слово «дом»
  program mir;
  var t,a,p,m:string; i:integer;
  begin
  writeln(‘введите текст’);
  readln(t);
  p:=‘мир’; a:=‘дом’;
  for i:=1 to lengtn(t) do begin
  m:=copy(t,i,3);
  if m=p then begin delete(t,i,3); insert(a,t,i);
  end; end;
  writeln(‘новое слово ’, t);
  end.
  

• 11 слайд

  Сегодня я узнал(а)…
  Было интересно…
  Было трудно…
  Я выполнял(а) задания…
  Я понял(а), что…
  Теперь я могу…
  Я научился(лась)…
  Урок дал мне для жизни…
  
  Подведем итоги
  

• 12 слайд

  Спасибо за работу!
  

• 13 слайд

  Еще чуть-чуть… и  постучится в дом — 2016 год…
  Пусть он будет…добрым и  счастливым!
  И запах мандаринов, и свет свечей…
  И елка вся –гирляндами сверкает…
  И мудрость поздравительных   речей…
  И сказка, в каждом доме  —  ожидает!
  Под бой курантов – Счастье на порог…
  И исполненье  – тайных грез, желаний…
  И пусть  пребудет в каждом сердце – Бог…
  Не будет нежеланных расставаний…
  Давайте – загадаем … и исполнится!
  Свершиться Чуду –
  В Новый год… не сложно …
  Пусть счастьем и любовью дом наполниться…
  Ведь если верить  очень,  все – возможно!