Строковые и символьные данные (урок 2)

• 1 слайд

  Процедуры и функции обработки строковых данных в Паскаль
  (урок 2)
  Жевтило Ирина Аскольдовна
  учитель информатики высшей категории
  

• 2 слайд

  Задачи
  Строковые и символьные данные
  

• 3 слайд

  Задача 1
  Вывести таблицу ASCII для:
  Цифр (48);
  Букв прописных латинских (65)
  Букв строчных латинских (97)
  Букв прописных русских (192)
  Букв строчных русских (224)
  
  
  

• 4 слайд

  Program simb;
  var s: char; i: integer;
  begin
  for i:=48 to 57 do begin
  s:=chr(i);
  writeln (i:5,s:5);
  end
  end.
  0
  1
  2
  …
  579
  

• 5 слайд

  Задача 2
  Удвоить каждый символ (повторить каждый символ два раза) в введенной строке
  

• 6 слайд

  Program D5;
  Var S,a:string;
  i:integer;
  Begin
  Writeln('Введите текст ');
  Readln(a);
  s:='';
  For i:=1 to length(a) do
  S:=s+a[i]+a[i];
  Writeln(a);
  Writeln(s);
  End.
  

• 7 слайд

  Задача 3
  Составить новые слова из слова информатика
  

• 8 слайд

  Program D3;
  Var S,a:string;
  Begin
  a:='информатика';
  S:=copy (a,3,5);
  Writeln(a);
  Writeln(s);
  S:=copy (a,8,3);
  Writeln(s);
  S:=copy (a,3,6);
  Writeln(s);
  End.
  форма
  тик
  формат
  

• 9 слайд

  Задача 4
  Является ли слово перевертышем (палиндромом)?
  

• 10 слайд

  Program perevert;
  Var S : String;
  D, i : Integer;
  Flag : Boolean;
  BEGIN
  Write('Введите слово : '); ReadLn(S);
  D:= Length(S);
  {Сравниваются пары букв: первая буква с последней, }
  {вторая буква с предпоследней и т.д. }
  i:=1; Flag := TRUE;
  While (i <= D/2) and Flag do {цикл до первой несовпавшей пары букв }
  begin
  Flag := (S[i]=S[D-i+1]);
  i := i+1
  end;
  WriteLn; Write( 'О т в е т : слово ', S);
  If Flag then WriteLn(' - перевертыш. ')
  else WriteLn (' - не перевертыш');
  END.