HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
7 декабря. В 1990 году (34 года назад) - Тед Тернер и Джейн Фонда объявляют о своей свадьбе.
 
 

Turbo Pascal Examples

Графика:
Построение графика функции
Прыгающий по экрану мячик.
Качание маятника.
Вложенные цветные круги.
Броуновское движение. Использование объектов.
Матрицы и массивы:
Сортировка элементов массива.
Удаление одинаковых элементов.
Простой пример на поворот матрицы.
Сортировка методом Шелла. +функции измерения временных интервалов.
Проверка выпуклости многоугольника.
Перемоножение матриц
Вычисление определителя матрицы. Рекурсия.
Нахождение обратной матрицы.
Задача об автостоянке.
Рекурсия. Подземелье сокровищ.
Численные методы:
Задачка на определение угла между стрелками часов.
Проверка на принадлежность точки многоугольнику.
Нахождение точки пересечения двух отрезков на плоскости.
Сортировка методом Шелла. +функции измерения временных интервалов.
Сортировка методом "пузырька". Пример на динамические структуры данных. Связанные списки.
Нахождение корня функции методом половинного деления.
Вычисление арккосинуса
Нахождение суммы цифр натурального числа.
Работа с фалами:
Рекурсивное сканирование директорий.
Работа со строками:
Работа со словами в предложении с разделителями.
Простейший синтаксический анализатор для распознавания и вычисления многчлена.
Синтаксический анализатор для распознавания и вычисления многчлена.
Работа со строками: смена кодировки, удаление тегов из HTML текста, обработка
Переименование файлов из кириллицы в латиницу.
Выдача контекстной подсказки.
Частотный словарь символов.
Подсчет повторяющихся символов в строке.
Ссылочные переменные:
Моделирование стека.
Пасьянс "Косынка".
Игры:
Пасьянс "Косынка".
Игра "Питон"
Игра "Анацефал". Пример использования объектов.
Игра "Минное поле"
Большие проекты:
Электронная картотека (без исходника)


 Подсчет повторяющихся символов в строке.

Задана строка символов. Назовем "цепочкой символов С" непустую последовательность следующих подряд символов С (то есть это любая последовательность от 1 и более символов). Для символа "е" необходимо найти длину минимальной и максимальной цепочки символов.

var s:string;
    ch:char;
    k,m,mmax,mmin,n:byte;
    L:byte absolute s; { l - length of string s }
{ n - число цепочек символа
  mmin - длина минимальной цепочки
  mmax - длина максимальной цепочки }
begin
s:='There is an example teeeeeext. ee teee freeeee pleeeease';
{readln(s);}
k:=1; n:=0;
ch:='e'; mmax:=0; mmin:=L;
repeat
  while (s[k]<>ch) and (k<=L) do inc(k);
  if (s[k]=ch) then
    begin
    m:=0;
    while (s[k]=ch) and (k<=L) do
      begin
      inc(k);inc(m);
      end;
    if (m>mmax) then mmax:=m;
    if (m     inc(n);
    end;
until (k>=l);
writeln(' Строка: ',s);
writeln(' Поиск символа ',ch);
writeln(' Всего цепочек символа: ',n);
writeln(' Длина минимальной цепочки: ',mmin);
writeln(' Длина максимальной цепочки: ',mmax);
end.

 

 

 

 

 

 

 


HOME