- •Общие сведения об эвм
- •1. Общая функциональная схема эвм
- •2. Языки программирования
- •3. Этапы решения задач на эвм
- •4. Понятие алгоритма и его свойства
- •5. Графическое описание алгоритмов. Схемы алгоритмов
- •Блоки для изображения схем алгоритмов и программ
- •6. Типы алгоритмов
- •7. Ос эвм. Понятие о файловой системе
- •Имя.Расширение
- •8. Команды ms dos
- •Программирование на языке Паскаль
- •1. Структура программы на языке паскаль
- •2. Описание данных
- •2.1. Константы
- •2.2. Переменные
- •3. Комментарии
- •4. Операторы языка паскаль
- •5. Операторы обработки данных
- •5.1. Операторы ввода
- •5.2. Операторы вывода
- •5.3. Вычисление по формулам. Оператор присваивания
- •6. Линейные программы
- •7. Управляющие операторы
- •7.1. Разветвляющиеся алгоритмы. Оператор if (если)
- •7.2. Пример разветвляющейся программы
- •7.3. Оператор case
- •8. Циклические алгоритмы и программы
- •8.1. Общая схема цикла
- •8.2. Циклы со счетчиком
- •8.3. Итерационные циклы
- •8.3.1. Оператор цикла с пост-условием
- •8.3.2. Оператор цикла с пред-условием
- •Описание данных
- •9. Типы данных, используемых в паскале
- •9.1. Представление данных в эвм
- •9.2. Стандартные функции Паскаля и Турбо Паскаля
- •9.3. Булевские переменные и выражения
- •9.4. Функции для работы с символами
- •Функции языка Паскаль
- •9.5. Массивы
- •10. Примеры программ обработки массивов
- •11. Особенности алгоритмов и программ с накапливанием
- •12. Алгоритм нахождения минимума и максимума
- •13. Задача сортировки
- •14. Обработка многомерных массивов
- •15. Программы обработки строк символов (текстов)
- •15.1. Простейшие алгоритмы и программы обработки строк
- •15.2. Анализ символов в строке
- •16. Типовые программы обработки строк
- •16.1. Выделение слов из текста (слова разделены одним пробелом)
- •16.2. Выделение слов из текста (слова разделены несколькими пробелами)
- •16.3. Некоторые типовые алгоритмы и программы обработки массивов строк (слов из текстов)
- •17. Алгоритмы поиска
- •17.1. Алгоритм линейного поиска
- •17.2. Алгоритм дихотомического поиска
- •Процедуры, функции и модули в паскале
- •18.1. Процедуры
- •18.1.1. Пример программы с процедурой
- •18.1.2. Расположение процедур в программе
- •18.2. Функции
- •18.2.1. Пример программы с функцией
- •18.3. Внешние процедуры и функции
- •18.3.1. Модули пользователей
- •19. Итерационные циклы
- •19.1. Приближенное вычисление функций
- •19.2. Решение уравнений приближенными методами
- •19.2.1. Метод деления отрезка пополам
- •19.2.2. Метод Ньютона
- •19.2.3. Метод прохождения отрезка с переменным шагом
- •19.3. Вычисление определенных интегралов
- •19.3.1. Метод прямоугольников
- •19.3.2. Метод трапеций
- •20. Дополнительные сведения о ТипАх данных, применяемЫх в Паскале
- •20.1. Перечисляемый тип
- •20.2. Интервальный тип
- •20.3. Множества
- •20.3.1. Примеры программ с использованием множеств
- •Алгоритм
- •20.4. Записи
- •20.4.1. Примеры программ обработки записей
- •Алгоритм
- •Оператор_1;
- •21. Файлы и наборы данных
- •Assign(имя_файла, имя_нд);
- •21.1. Текстовые файлы
- •21.1.1. Создание текстового файла
- •21.1.2. Работа с существующим текстовым файлом
- •21.2. Типизированные файлы
- •21.2.1. Последовательная обработка типизированных файлов
- •21.2.2. Использование прямого доступа к записям типизированного файла
- •21.2.3. Упорядочение записей в файле
- •Алгоритм
- •21.2.4. Удаление записей из файла
- •21.2.5. Вставка записей в файл
- •22. Динамическое распределение памяти. Указатели и списки
- •22.1. Использование указателей. Списки
- •22.2. Очереди
- •22.2.1. Очередь типа lifo
- •22.2.2. Очередь fifo
- •23. Стандартные модули Турбо Паскаля
- •23.1. Модуль Crt
- •23.1.1. Работа с клавиатурой и звуком
- •23.1.2. Управление цветом
- •23.1.3. Создание окон и позиционирование курсора
- •23.1.4. Построение графика в текстовом режиме
- •23.1.5. Алгоритм и программа представления меню средствами Турбо Паскаля
- •23.2. Модуль dos
- •23.3. Модуль Graph
- •23.3.1. Инициирование графического режима
- •1) Процедура InitGraph(Var grDr,grMd:integer;path:string);
- •23.3.2. Вывод точек на экран
- •23.3.3. Вывод текста (надписей) в графическом режиме
- •1) SetTextStyle(Шрифт, Направление:Word; Размер:1..10);
- •23.3.4. Построение графических изображений
- •1) SetLineStyle(Тип_линии, Образец, Толщина : Word);
- •23.3.5. Запоминание и вывод изображений
- •24. Рекомендации по оформлению текста программ
- •Библиографический список
- •Оглавление
16. Типовые программы обработки строк
В Турбо Паскале, как отмечалось выше, используются данные строкового типа – string. Операции, процедуры и функции, применяемые для этих типов, уже рассмотрены.
Пример 1. Ввести в ЭВМ массив из n (n<=50) слов на английском языке. Расположить их по алфавиту.
Латинские буквы любой ЭВМ, как известно, представляются кодами, которые упорядочены по алфавиту (от "a" до "z"). Слово – это строка, которую можно считать длинным двоичным кодом. Для упорядочения таких кодов можно использовать методы упорядочения чисел, например, метод "пузырька", который был изучен ранее.
Программа будет иметь вид
Program SortW;
Const
Nmax = 20; {Количество слов}
m = 10; {Максимальная длина слова}
Var
W: Array[1..Nmax] of string[m];{Массив для хранения слов}
Wr: String[m]; {Промежуточная переменная для перестановок}
n, i, k : integer;
Begin
WriteLn('Введите количество слов');
Readln(n);
WriteLn('Введите слова');
for i := 1 to n do
ReadLn(w[i]);
for k := 1 to n-1 do
for i := 1 to n-k do
if w[i] > w[i+1] then
begin
Wr := w[i];
w[i] := w[i+1];
w[i+1] := Wr;
end;
WriteLn(Слова, упорядоченные по алфавиту:');
for i:= 1 to n do
WriteLn(w[i]);
End.
В таблицах кодировки символов, содержащих буквы кириллицы, коды букв кириллицы также упорядочены по алфавиту. Студентам предоставляется возможность проверить самостоятельно работу алгоритма на русских словах.
Наиболее типичными задачами обработки текстов являются задачи синтаксического анализа, которые сводятся к выделению слов из предложений и анализу этих слов. В частности, такие задачи решаются при трансляции и компиляции программ с языков высокого уровня.
Основными особенностями структур данных при этом являются следующие.
1. Строка текста или одно слово – одномерный массив символов, а несколько слов – это массив строк (двумерный массив символов).
2. Длина слов в тексте, как правило, неодинакова. Обычно для их разделения используются пробелы. Найти пробел в предложении можно, просматривая последовательно каждый его символ (так как пробел – это тоже символ). Если очередной пробел найден, то предыдущее слово закончилось.
Формирование отдельных слов может быть осуществлено посимвольно, путем объединения слова (строки) с очередным символом, отличным от пробела. Ясно, что вначале формируемое слово должно быть пустым.
Второй метод – запоминание положения первой и последней букв очередного слова в предложении и использование функции Copy для его выделения.
Возможны 2 способа представления текстов:
1) слова разделены всегда одним пробелом;
2) слова разделены одним или несколькими пробелами (общий случай).
Методы выделения слов при этом несколько отличаются.
16.1. Выделение слов из текста (слова разделены одним пробелом)
Условие. Ввести в ЭВМ предложение, в котором слова разделены одним пробелом. Выделить слова, переписать их в массив слов и вывести на экран.
В самом общем виде алгоритм решения задачи может быть таким.
1. Ввести предложение
2. Выделить слова
3. Вывести слова
4. Закончить.
Уточняем пункты алгоритма.
1.1. Ввести предложение
1.2. n = Длина (предложения)
2.1. k = 1; {Номер слова}
2.2. Слово[k] = ''; { пустое слово }
2.3. Для номера буквы в предложении (i) от 1 до n выполнить
2.3.1. Если предл[i] <> ' ', то {очередной символ – не пробел}
Слово[k] = Слово[k] + предл[i]
Иначе {т.е. предл[i]= пробелу; значит, конец предыдущего слова}
а) k = k+1
б) Слово[k] ='' { пустое слово }
3.1. Для номера слова (i) от 1 до k выполнить
3.1.1. Вывести слово[i]
4. Закончить.
Приводимая ниже программа реализует рассмотренный алгоритм.
Program GetSl1;
CONST
m = 50; {Максимальное количество слов в предложении}
VAR
Predl : string; {Предложение}
Slovo : array[1..m] of string; {Массив для слов}
n, k, i: integer; {Вспомогательные переменные}
BEGIN
WriteLn('Вводите предложение:');
ReadLn(Predl);
n := Length(Predl); {п. 1.2.}
k := 1;
Slovo[k] := ''; {Пустое слово – 2 апострофа подряд}
{п. 2.3.}
For i := 1 to n do
If predl[i] <> ' ' then
Slovo[k] := Slovo[k] + Predl[i]
Else
begin
k := k + 1;
Slovo[k] := '';
end;
{п. 3.1.}
WriteLn('Слова из предложения: ');
For i := 1 to k do
WriteLn(Slovo[i]);
END.