- •Общие сведения об эвм
- •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.2. Выделение слов из текста (слова разделены несколькими пробелами)
Условие. Ввести в ЭВМ предложение, в котором слова могут быть разделены одним или несколькими пробелами. Выделить слова и вывести их на экран.
В этом случае задача осложняется тем, что номер слова необходимо менять только при встрече с первым пробелом, а все последующие пробелы – просто пропускать. Алгоритм будет отличаться от предыдущего в основном в части, связанной с обработкой пробелов.
Алгоритм для этой задачи
1.1. Ввести предложение.
1.2. n := Длина (предложения).
2.1. Номер слова (k) := 1.
2.2. Слово[k] := ''.
2.3. Номер символа (i) := 1.
2.4. Пока i <= n повторять
2.4.1. Если предл[i] <> ' ', ТО
а) Слово[k] := Слово[k] + предл[i];
б) i := i + 1
Иначе
а) k := k + 1;
б) Слово[k] := ''
в) Пока (предл[i]=' ') И (i<=n) выполнить
i = i + 1;
3.1. Для i от 1 до k выполнить
вывести слово[i];
4. Закончить.
Приводимая ниже программа реализует рассмотренный алгоритм.
Program GetSl2;
const
m = 50;
Var
Predl : string;
Slovo : array [1..m] of string;
n,k,i : integer;
Begin
n := Length(Predl);
k := 1;
Slovo[k] := '';
i := 1;
While i<=n do
If predl[i] <> ' ' then {символ – не пробел}
begin
Slovo[k] := slovo[k] + predl[i];
i := i + 1;
end
Еlse {символ – пробел}
begin
k := k + 1;
slovo[k] := '';
While (predl[i]=' ') and (i <= n) do
i := i + 1;
end;
WriteLn('Слова из предложения:');
For i := 1 to k do
WriteLn(slovo[i]);
END.
16.3. Некоторые типовые алгоритмы и программы обработки массивов строк (слов из текстов)
Рассмотрим примеры некоторых наиболее часто встречающихся задач обработки слов из текстов. В таких задачах вначале выделяются слова из текста с использованием алгоритмов, описанных выше. Затем полученные массивы слов (строк) обрабатываются в соответствии с условиями задачи.
Задачи типа 1 связаны с определением длины слов.
Пример 1.1. Ввести в ЭВМ предложение, в котором слова могут быть разделены несколькими пробелами. Выделить слова и вывести их на экран. Затем подсчитать количество слов с четным числом букв и вывести эти слова и их количество.
Для решения задачи можно предложить следующий алгоритм.
1. Ввести предложение
2. Выделить слова
3. Вывести слова
4. Подсчитать и вывести количество слов с четным числом букв
5. Закончить.
Уточняем пункты алгоритма.
1.1. Ввести предложение
1.2. n := Длина (предложения)
2.1. Номер слова (k) := 1
2.2. Слово[k] := ''
2.3. Номер символа (i) := 1
2.4. Пока i <= n повторять
2.4.1. Если предл[i] <> ' ', то
а) Слово[k] := Слово[k] + предл[i];
б) i := i + 1
Иначе
а) k := k + 1;
б) Слово[k] := ''
в) Пока (предл[i]=' ') И (i<=n) выполнить
i = i + 1;
3.1. Для i от 1 до k выполнить
вывести слово[i]
4.1.Количество_слов = 0.
4.2. Для i от 1 до k выполнять
Если Длина(слово[i]) mod 2 = 0 то
а) вывести слово[i];
б) Количество_слов = Количество_слов +1.
4.3. Вывести Количество_слов.
5. Закончить.
Приводимая ниже программа реализует рассмотренный алгоритм.
Program Not_Odd_Sl;
const
m = 50;
Var
Predl : string;
Slovo : array [1..m] of string;
n,k,i,kol : integer;
BEGIN
{ Выделение слов из предложения – п.п. 1 -3 }
n := Length(Predl);
k := 1;
Slovo[k] := '';
i := 1;
While i<=n do
If predl[i] <> ' ' then {символ – не пробел}
begin
Slovo[k] := slovo[k] + predl[i];
i := i + 1;
end
Еlse {символ – пробел}
begin
k := k + 1;
slovo[k] := '';
While (predl[i]=' ') and (i <= n) do
i := i + 1;
end;
WriteLn('Слова из предложения');
For i := 1 to k do
WriteLn(slovo[i]);
Kol:=0;
WriteLn('Слова с четным количеством букв');
For i := 1 to k do
If Length(slovo[i]) mod 2 =0 then
Begin
WriteLn(slovo[i]);
Kol:= kol+1;
End;
WriteLn('Количество слов с четным числом букв=', kol);
Writeln('Работа окончена. Нажмите клавишу ENTER');
Readln;
END.
Пример 1.2. Ввести в ЭВМ предложение. Упорядочить его слова по возрастанию длины и вывести их в столбик.
Для решения этой задачи воспользуемся методом сортировки «пузырьком», который применим к длинам слов.
Алгоритм будет следующий.
1. Ввести предложение.
2. Выделить слова.
3. Вывести слова.
4. Упорядочить слова по возрастанию длины.
5. Вывести упорядоченные слова.
6. Закончить.
Уточним пункты 4 и 5 и получим алгоритм.
4. Для j от 1 до k-1 выполнить
4.1. Для i от 1 до k-j выполнять
Если слово[i] > слово[i+1] то
Поменять их местами.
5. Для i от 1 до k выполнять
вывести слово[i].
Приведем фрагмент программы, реализующий эти пункты.
{Упорядочение слов}
For j := 1 to k-1 do
For i := 1 to k-j do
If Length(slovo[i])> Length(slovo[i+1]) then
Begin
RSl:= slovo[i];
slovo[i]:= slovo[i+1];
slovo[i+1]:=Rsl;
End;
WriteLn('Упорядоченные слова из предложения');
For i := 1 to k do
WriteLn(slovo[i]);
Задачи типа 2 связаны с определением окончаний слов.
Пример 2.1. Ввести в ЭВМ строку, содержащую названия единиц физических величин. Вывести названия единиц длины и подсчитать их количество. При разработке алгоритма учтем, что искомые названия имеют окончание «метр»: сантимерт, километр, дециметр и т.д.
Алгоритм может быть следующий.
1. Ввести строку.
2. Выделить из нее слова. Общее количество слов = k.
3.1. Количество_длин = 0.
3.2. Для i от 1 до k выполнить
3.2.1. n = Длина(слово[i]).
3.2.2. Если Подстрока(из слово[i] от номера n –3 длиной 4) = «метр» то
а) вывести слово[i];
б) Количество_длин = Количество_длин +1.
3.3. Вывести Количество_длин.
4. Закончить.
Приведем фрагмент программы, реализующий пункт 3.
kol:=0;
WriteLn('Названия единиц длины');
For i := 1 to k do
Begin
n:=Length(slovo[i]);
If Copy(Slovo[i], n-3,4) = ‘метр’ then
Begin
WriteLn(slovo[i]);
Kol:= kol+1;
End;
End;
WriteLn('Количество названий единиц длины=', kol);
Задачи типа 3 связаны с анализом первых букв слов.
Пример 3.1. Ввести в ЭВМ строку, содержащую слова и числа в символьном виде. Вывести входящие в нее числа и их количество. При разработке алгоритма будем считать, что слово из строки, начинающееся с цифры, является числом. Кроме того, воспользуемся тем, что коды цифровых символов упорядочены от ‘0’ до ‘9’.
Алгоритм для решения этой задачи может быть следующий.
1. Ввести строку
2. Выделить из нее слова. Общее количество слов = k
3.1. Количество_чисел = 0.
3.2. Для i от 1 до k выполнять
Если (слово[i,1] >=’0’) И (слово[i,1] <=’9’) то
а) вывести слово[i];
б) Количество_чисел = Количество_ чисел +1.
3.3. Вывести Количество_чисел.
4. Закончить.
Приведем фрагмент программы, реализующий пункт 3.
{Нахождение чисел}
kol:=0;
WriteLn('Числа из строки');
For i := 1 to k do
If (Slovo[i,1]>=’0’) And (Slovo[i,1]<=’9’) then
Begin
WriteLn(slovo[i]);
Kol:= kol+1;
End;
WriteLn('Количество чисел=', kol);