Презентация "Обработка строковых данных на языке программирования Паскаль"

• 1 слайд

  Обработка строковых данных
  Паскаль АВС
  

• 2 слайд

  №1. Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц.
  Входные данные
  В единственной строке записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100.
  Выходные данные
  В единственную строку нужно вывести искомую длину цепочки нулей.
  
  Исполнить для
  00101110000110
  

• 3 слайд

  Программа
  var s:string[100];
  i,k,m:integer;
  begin
  readln(s);k:=0; m:=0;
  for i:=1 to length(s) do
  begin
  if s[i]='0' then
  begin inc(k);
  if k >m then m:=k end
  else k:=0;
  end;
  writeln(m);
  end.
  

• 4 слайд

  Кругляши
  Написать программу, которая определяет, сколько кругляшей в числе.
  Входные данные
  целое число N (0 <= N <= 10100).
  Выходные данные
  выведите одно число – количество кругляшей в числе N.
  
  
  
  

• 5 слайд

  Кругляши
  var i, c: integer;
  S: string;
  begin
  c:=0;
  readln( s);
  for i:=1to length(s)do begin
  if(s[i]='8') then c:=c+2;
  if(s[i]='0') or (s[i]='6') or (s[i]='9') then c:=c+1;
  end;
  write(c);
  end.
  
  

• 6 слайд

  Четырехзначный палиндром
  Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.
  Входные данные
  содержит натуральное число N (1000 ≤ N ≤ 9999).
  Выходные данные
  вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
  
  
  

• 7 слайд

  Решение №1
  Var s: string;
  begin
  readln(s);
  If (s[1]=s[4]) and (s[2]=s[3]) then write('YES')
  else write('NO');
  End.
  

• 8 слайд

  Решение №2
  var x, x1, x2, x3, x4: integer;
  Begin
  readln(x);
  x1 := x div 1000;
  x2 := x div 100 mod 10;
  x3 := x div 10 mod 10;
  x4 := x mod 10;
  If (x1=x4) and (x2=x3) then
  write('YES') else write('NO');
  End.
  

• 9 слайд

  Палиндром
  Требуется написать программу, определяющую, является ли натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.
  Входные данные
  содержит натуральное число N (10 ≤ N ≤ 32000).
  Выходные данные
  вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
  
  
  

• 10 слайд

  Решение
  var S: string; i, k, n: integer;
  Begin
  readln(S);
  n:=length (S);
  For i:=1 to n div 2 do
  if a[i]<>a[n-i+1] then k:=0;
  if k=1 then write('YES') else write('NO');
  End.
  

Краткое описание документа:

Обработка строк на языке программирования Паскаль. В презентации рассмотрены различные типы задач: определение длины самой длинной цепочки одинаковых символов, подсчёт кругляшей в заданном числе, определение является ли число палиндромом (вначале рассматриваем четырехзначное число, затем переходим к произвольному числу.