- •Общие сведения об эвм
- •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. Рекомендации по оформлению текста программ
- •Библиографический список
- •Оглавление
20.3.1. Примеры программ с использованием множеств
При разработке алгоритмов и программ с множествами необходимо учесть, что Паскаль не обеспечивает ввод или вывод множеств непосредственно с помощью операторов Read или Write. Формирование множества, элементы которого вводятся с клавиатуры, можно выполнить, используя операцию присоединения, следующим образом.
Один из алгоритмов ввода множества
1. Множество :=[ ].
2. Повторять
2.1. Ввести элемент;
2.2. Множество:= Множество + [элемент].
Пока не надоест.
Вывод содержимого множества осуществляется путем тестирования. При этом в цикле перечисляются все возможные значения его элементов и те из них, которые входят в множество, выводятся на экран.
Один из алгоритмов вывода множества
1. Для Элемента от Первого_значения до Последнего_значения выполнить
Если Элемент принадлежит (In) Множеству, то
Вывести Элемент.
Рассмотрим примеры алгоритмов и программ, использующих множества.
Пример 1. Сформировать и вывести на экран множество из n символов латинского алфавита (n<20). Если вводимая буква уже есть в множестве, выдать соответствующее сообщение.
Program Mnog_Sim;
Const
N=20;
Var
S : Set Of Char;
B : Char;
I : Integer;
Begin
S := [];
For I:=1 To N Do
Begin
Writeln (’Введите букву’);
Readln(B);
If B In S Then
Writeln(’Буква ’,B,’ уже есть’)
Else
S:=S+[B];
End;
Writeln(’Буквы, входящие в множество’);
For B:=’A’ To ’z’ Do
If B In S Then
Write(B:2);
End.
Обратите внимание, что вводимые буквы могут быть и прописными, и строчными, поэтому при выводе в цикле For параметр цикла принимает все значения для букв латинского алфавита от A до z.
Пример 2. Используя множество гласных букв, подсчитать количество гласных в предложении. Предложение и множество гласных ввести с клавиатуры.
Program Glasn;
Var
P : String; {предложение}
Gl : Set Of Char; {множество гласных}
B : Char;
K,I,N : Integer;
Begin
Gl := [];
B := ’#’;
While B <> ’!’ do
Begin
Writeln (’Введите гласную, конец ввода – !’);
Readln(B);
If B <> ’!’ then
Gl := Gl+[B];
End;
Writeln (’Введите предложение’);
Readln(P);
K := 0;
N := Length(P);
For I := 1 To N Do
If P[I] In Gl Then
K := K+1;
Writeln (’Количество гласных в предложении - ’,K);
WriteLn(’Нажмите клавишу ENTER...’);
ReadLn;
End.
Пример 3. Составить программу продажи билетов на пароход. Пусть места на пароходе нумеруются (для простоты) от 1 до n (n < 250). Покупатель заказывает номера мест. Если они свободны, то ему выдаются билеты, и номера мест исключаются из числа свободных. В противном случае предлагаются номера свободных мест. Если все билеты проданы, то начинается путешествие.
Алгоритм
1. Задать множество свободных мест: от 1 до n.
2. Повторять
2.1. Вывести список свободных мест;
2.2. Запросить заказ на билеты;
2.3. Если места свободны, то
продать билеты (занять места, заказ принят),
иначе
сообщить, что некоторые места уже проданы (заказ не принят).
Пока не будут заняты все места.
3. Вывести сообщение, что все билеты проданы.
Уточняем условие. В задаче будем использовать 2 множества:
1) Свободные места (Sm);
2) Заказ (Zak).
Запишем уточненный Алгоритм.
1. Задать множество Свободных мест: от 1 до n.
2. Повторять
2.1. Вывести свободные места
2.2. Запросить заказ на билеты:
2.2.1. Заказ = [ ] – пустое множество.
2.2.2. Ввести номер_места
2.2.3. Пока номер ≠0 выполнить:
а) объединить номер_места с заказом;
б) ввести номер места.
2.3. Если заказ входит в Свободные места, то
2.3.1. Выдать сообщение: "заказ принят"
2.3.2. Исключить проданные места
(Свободные_места := Свободные_места – заказ)
Иначе
Выдать сообщение "заказ не принят".
Пока не будут заняты все места.
3. Вывести сообщение, что все билеты проданы.
Программа, реализующая этот алгоритм, приведена ниже.
Program Teploxod;
Const
N=250; { На время отладки назначьте небольшое N! }
Type
Mesta = Set Of 1..N;
Var
Sm,Zak : Mesta;{Свободные места и заказ}
I,Nom : Integer;
Begin
Sm := [1..N];{п. 1, свободные места}
Repeat {п. 2}
WriteLn;
Writeln(’ Cвободные места: ’); {п. 2.1.}
For I:=1 To N Do
If I In Sm Then
Write (I:4);
WriteLn;
Zak := []; {п. 2.2.1.}
{Формирование Заказа}
Writeln(’Введите номера мест, которые Вы покупаете. ’,
’Конец заказа - ноль’);
ReadLn(Nom); {п. 2.2.2.}
While Nom <> 0 Do {п. 2.2.3.}
Begin
Zak := Zak + [Nom];
ReadLn(Nom);
End;
If Zak <= Sm Then {п. 2.3.}
Begin
Writeln(’Заказ принят’); {п. 2.3.1.}
Sm := Sm - Zak; {п. 2.3.2.}
End
Else
WriteLn(’Заказ не принят. ’,
’Некоторые из заказываемых мест уже проданы.’);
Until Sm=[];
Writeln (’Все билеты проданы, нажмите Enter’);
Readln;
End.