- •Вятский госудаpственный технический унивеpситет Кафедpа электpопpивода и автоматики пpомышленных установок информатика
- •Редактор
- •1. Общая структура программы на языке турбо-паскаль.
- •1.1. Раздел описания меток.
- •1.2. Раздел определения констант.
- •1.3.Раздел описания типов.
- •1.4.Раздел описания переменных.
- •1.5.Раздел описания процедур и функций.
- •2.Компоненты языка паскаль.
- •3.Данные в языке паскаль.
- •3.1. Пpостые типы данных.
- •3.1.1.Целый тип данных.
- •3.1.2. Вещественный тип.
- •3.1.3. Символьный тип.
- •3.1.4.Логический тип.
- •3.1.5.Перечисляемый тип.
- •3.2.Структурные (структурированные) типы данных.
- •3.2.1.Массивы.
- •3.2.2.Строки.
- •3.2.3.Записи.
- •3.2.4. Множества.
- •4. Файлы.
- •4.1. Текстовые файлы.
- •4.2. Типизированные файлы.
- •4.3. Нетипизированные файлы.
- •5. Работа с памятью.
- •6. Объектно-ориентированное программирование.
- •7. Лабораторные работы.
- •7.1. Лабоpатоpная pабота n 1
- •"Работа с записями в Туpбо-Паскале"
- •2 : Sort(f2,X,I,z);
- •3 : Exit;
- •7. 3. Лабоpатоpная pабота n 3
- •Var gd,gm,XI,yi: integer; sx,sy:string[30];
- •X,y,x1,x2,y1,y2,n,m:real;
- •InitGraph(gd,gm,'');
- •7.4. Лабораторная работа n 4.
- •7.5. Лабораторная работа n 5.
- •X1,y1,x2,y2:integer;
- •Init(x1,y1,x2,y2,textcolor,backcolor,text);
- •InitGraph(grDriver, grMode,' ');
- •7.6. Лабораторная работа n 6.
- •S : String; {надпись}
- •Литература
3.2.4. Множества.
Множество - это набор различных объектов одинакого типа. Объект внутри множества называется элементом множества. Множество целиком определяется своими элементами. Считается что два множества равны, если они содержат одни и те же элементы. Элементы множества не упорядочены, поэтому множество, состоящее из
цифр 3,1,5, одинаковы.
Над множествами существует ряд операций:
+ - объединение, результатом объединения двух множеств
является множество, которое включает элементы обоих
множеств;
* - пересечение, результатом пересечения двух множеств
является множество, содержащее элементы, которые
одновременно входят в оба множества;
>= - содержит, например,А >= В - множество А содержит
множество В, если каждый элемент В является также
элементом А;
<= - содержится в ,например, В <= А - множество В
содержится в множестве А;
IN - принадлежит, проверка присутствия элемента в
Множестве
(..)- пустое множество;
-
- разность ,результатом разности двух множеств
является множество, содержащее те элементы первого
множества, которые не являются элементами второго.
Элементы множества имеют тот же тип, что и базовый простой тип, указанный при описании. Базовый тип не может быть структурированным и типа REAL.
Пример. Описание множеств и присвоение значений.
TYPE
INTSET = SET OF 0..30;
ALFSET = SET OF 'A'..'Z';
VAR
P := (1,11)
P1:= ('A','B','D');
Для множеств существует операция присваивания. Множества можно сравнивать между собой на равно, неравно и на включение друг в друга, результатом этих операций будет TRUE либо FALSE.
Пример.
Описать перечислимый тип - множество, элементы которого могут принимать значения – языки программирования. Определить еще один тип, которым являются фамилии студентов одной группы .Кроме того ,описать переменную ,которая будет содержать сведения о всех студентах, знающих какие либо языки программирования.
TYPE
LANG = (FORTRAN,С++,ASSEMBLER,PASCAL) ;
ZNAN = SET OF LANG;
GRUPPA = (IVANOV,PETROV,SIDOROV);
VAR
T: ARRAY (GRUPPA) OF ZNAN;
Для студента IVANOV присвоить знание языков программирования PASCAL и PL с помощью оператора присваивания:
T(IVANOV) := (PL,PASCAL);
4. Файлы.
В ПАСКАЛЕ под файлом понимается либо именованная область памяти, либо логическое устpойство. Файловый тип можно объявить в следующих ваpиантах:
<имя>= file of <тип> - для типизиpованных файлов,
<имя>= text - для текстовых файлов,
<имя>= file - для нетипизиpованных файлов.
В качестве имени файла может пpименяться название, допустимое в ОС MS DOS, включая путь и pасшиpение.
Файлы и логические устpойства должны быть откpыты, для чего пpоизводится связывание специальной файловой пеpеменной с pеальным файлом с помощью опеpатоpа:
ASSIGN(f,'имя файла.тип'), где f - файловая пеpеменная;
Для чтения файл инициируется командой RESET(f).
Новый файл инициируется командой REWRITE(f).
Добавление информации требует использования команды APPEND(f) для открытия файла.
После работы с файлом его необходимо закрыть командой CLOSE(f).
Стирание файла производится командой ERASE(f).
Проверка конца файла производится функцией EOF(f), а проверка правильности последней операции ввода-вывода функцией IOResult.