Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Константы простых типов и типа STRING⇐ ПредыдущаяСтр 18 из 18 Например: type colors =(white, red, black); const CurrCol: colors =red; name: string = ’Вася’; year: word= 1998; x: real = 0100036; min: integer = 0; max: integer = 10; days: 1…31 = 1; answer: char = ’Y’; Нельзя использовать такие записи: Mass: array [min.. max] of real; Поскольку нельзя использовать типизированные константы в качестве границ диапазона. a, b, c: byte =0; - недопустимо использовать список идентификаторов. var Name F: string [22]= 'prog.pas'- нельзя объявлять типизированную константу в разделе переменных. Константы-массивы В качестве начального значения типизированной константы-массива используется список констант, отделяемых друг от друга запятыми; список заключается в круглые скобки, например: type colors =(white, red, black); const ColSTR: array [colors] of string [5] = ('white', 'red', 'black'); Vector: array [1…5] of byte =(0,0,0,0,0); При объявлении массива символов можно использовать то обстоятельство, что все символьные массивы и строки в Турбо Паскаль хранятся в упакованном формате, поэтому в качестве значения массива – константы типа CHAR допускается задание символьной строки соответствующей длины. Два следующих объявления идентичны: const digit,: array [0.. 9]of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9'); digchr: array [0.. 9] of char = ('0123456789'); При объявлении многомерных констант-массивов множество констант, соответствующих каждому измерению, заключается в дополнительные круглые скобки и отделяется от соседнего множества запятыми. В результате образуются вложенные структуры множеств, причем глубина вложения должна соответствовать количеству измерений (размерности) массива. Самые внутренние множества констант связываются с изменением самого правого индекса массива. Следующая программа выведет на экран три строки с монотонно увеличивающимися целыми числами: var i, j, k, l: byte; const matr: array [1.. 3, 1.. 5] of byte= ((0, 1, 2, 3, 4), (5, 6, 7, 8, 9), (10, 11, 12, 13, 14)); cube: array [0.. 1, 0.. 1, 0.. 2] of integer= (((0, 1, 2), (3, 4, 5)), ((6, 7, 8), (9, 10, 11))); mas4: array [0.. 1, 0.. 1, 0.. 1, 0.. 1] of word = ((((0, 1), (2,3)), ((4, 5), (6,7))), (((8, 9), (10, 11)), ((12, 13), (14, 15)))); begin for i:= 1 to 3 do for j:= 1 to 5 do Write(matr[i,j]:3); writeln; for i:= 0 to 1 do for j:= 0 to 1 do for k:= 0 to 2 do Write (cube[i,j,k]:3); writeln; for i:= 0 to 1 do for j:= 0 to 1 do for k:= 0 to 1 do for l:= 0 to 1 do write(mas 4[ i, j, k, l]:3); writeln; end. Количество переменных в списке констант должно строго соответствовать объявленной длине массива по каждому измерению.
КОНСТАНТЫ-ЗАПИСИ Определение константы-записи имеет следующий вид: (<идентификатор>: <тип> = <сп.знач.полей>), где: <идентификатор> – идентификатор константы; <тип> – тип записи; <сп.знач.полей>) – список значений полей. Список значений полей представляет собой список из последовательностей вида: имя поля, двоеточие и константа. Элементы списка отделяются друг от друга запятыми, например: type point= record x,y:real end; vect = array [0.. 1]of point; month = (Jan, Feb, Mar, Apr, May, Jun, Hu, Aug, Sep, Oct, Nov, Dec); date = record d: 1.. 31; m: month; y: 1900.. 1999 end; const origon: point= (x: 0; y:-1); line: vector=((x: -3.1;y: 1.5), (x: 5.9;y: 3.0)); SomeDay: date= (d: 16; m: Mar; y: 1989); … Поля должны указываться в той последовательности, в какой они перечислены в объявлении типа. Если в записи используется хотя бы одно поле файлового типа, такую запись нельзя объявлять типизированной константой. Для записи с вариативными полями указывается только один из возможных вариантов констант. Например: type forma= record caseBoolean of true: (BirthPlace: string[40]); false:(Country: string[20]; EntryPort: string[20]; EntryDate: array[1.. 3] of word; count: word) End; const Percon1: forma= (Country:’Россия’; EntryPort:’Москва’; EntryDate: (16, 3, 98); Count: 12); Percon2:forma= (BirthPlace:’Санкт-Петербург’);
Константы-множества Значение типизированной константы-множества задается в виде правильного конструктора множества, например: type days= set of 1.. 31; digc= set of '0'.. '9'; error=set of 1.. 24; const WorkDays: days[1.. 5, 8.. 12, 15.. 19, 22.. 26, 29.. 30]; EvenDigits: digc=['0', '2', '4', '6', '8']; ErrorFlag: error[];
Литература 1. Абрамов С.А., Зима Е.В. Начала информатики. - М.: Наука, 1989. 2. Алексеев В.Е., Ваулие А.С., Петрова Г.Б. Вычислительная техника и программирование. Практикум по программированию: Практическое пособие / Под ред. А.В. Петрова. М.: Высшая школа, 1991. 3. Вострокнутов И.Е. Турбо Паскаль. Теория, примеры, задания. Часть 1. Ядро. Арзамас. АГПИ 2000. 4. Гуденко Д., Петроченко Д. Сборник задач по программированию. СПб.: Питер, 2003. 5. Жидкова О.А., Кудрявцева Е.К. Алгоритмы и основы программирования. М.: Интеллект-Центр, 1999. 6. Жидкова О.А., Кудрявцева Е.К. Справочные материалы для программирования на языке Паскаль. М.: Интеллект-Центр, 2001 7. Жилин С.А., Жилина Н.Б. Информатика: Теория и практика решения задач. М.: РКНК, 2001. 8. Зеленяк О.П. Практикум программирования на Turbo Pascal: Задачи, алгоритмы и решения. К.: Диа Софт, 2001. 9. Культин Н.Б. Turbo Pascal в задачах и примерах. СПб.: БХВ – Петербург, 2000. 10. Культин Н. С/С++ в задачах и примерах. - СПб.: БХВ - Петербург, 2001. 11. Марченко А.И. Марченко А.А. Программирование в среде Турбо Паскаль 7.0. - М.: Бином Универсал, К.: ЮНИОР, 1997. 12. Милов А.В. Основы программирования в задачах и примерах: Учебный курс. Харьков: Фолио, 2002. 13. Семашко Г.А., Салтыков А.И. Программирование на языке Паскаль. М.: Наука, 1988. 14. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. - М.: Нолидж, 1997. 15. Федоренко А. Алгоритмы и программы на Turbo Pascal: Учебный курс. СПб.: Питер, 2001. СОДЕРЖАНИЕ
|