Согласие на обработку персональных данных.

17.06.2018
Новая статья Преобразование десятичного числа в шестнадцатеричное.

12.06.2018
Новые видео и статья Что такое HTML.

08.06.2018
Новые видео и статья Процедура BlockWrite.

03.06.2018
Новый выпуск журнала Автоматизация и программирование.

26.05.2018
Новые видео и статья Как изменить дизайн сайта на Wordpress.



Пользовательские типы данных

Основы программирования Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Наиболее внимательные из вас уже заметили, что программист может создавать свои собственные типы данных. Делается это с помощью ключевого (зарезервированного) слова type. Синтаксис:

type ИмяТипа = НовыйТип;

Здесь ИмяТипа - это идентификатор вашего типа данных. Этот идентификатор не должен совпадать с идентификаторами предопределённых типов и с зарезервированными словами. НовыйТип - это либо предопределённый тип Free Pascal, либо ваш собственный тип данных. Например, перечисление или интервал.

Зачем всё это надо? Разве не хватает стандартных (предопределённых) типов данных? Когда я только начинал изучать программирование, я тоже задавал этот вопрос. Но в последствии, когда мои программы становились всё сложнее, я понял, что разработчики языков программирования вовсе не дураки)))

Вы это тоже поймёте - всему своё время.

А пока ещё раз попробуем создать свои типы данных.

Листинг 13.7. Пользовательские типы данных.
program mytypes;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type TMyInteger = Integer;
type TMyChar = 'a'..'z';
type TMyCars = (VAZ, GAZ, UAZ, MAZ, KAMAZ, BMW, MERSEDES, AUDI);


begin
  Writeln('Integer     : ', Low(Integer), '..', High(Integer));
  Writeln('TMyInteger  : ', Low(TMyInteger), '..', High(TMyInteger));
  Writeln('TMyChar     : ', Low(TMyChar), '..', High(TMyChar));
  Writeln('TMyCars     : ', Low(TMyCars), '..', High(TMyCars));

  Readln;
end.
Домашнее задание:

Создайте свои типы данных (включите воображение). Напишите программу, которая выводит минимальное и максимальное значение диапазона ваших типов данных.


Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика