program HelloWorld;
uses crt;

(* Here the main program block starts *)
begin
   writeln('Hello, World!');
   readkey;
end. 

Это даст следующий результат —

Hello, World!

Давайте посмотрим различные части вышеуказанной программы —

• Первая строка программы программы HelloWorld; указывает на название программы.

• Вторая строка программы использует crt; это команда препроцессора, которая говорит компилятору включить модуль crt перед тем, как перейти к фактической компиляции.

• Следующие строки, заключенные в операторы начала и конца, являются основным программным блоком. Каждый блок в Паскале заключен в оператор начала и оператора конца . Однако за оператором завершения, указывающим конец основной программы, следует точка (.) Вместо точки с запятой (;).

• Оператор начала основного блока программы — это место, где начинается выполнение программы.

• Строки внутри (* … *) будут игнорироваться компилятором, и он был добавлен для добавления комментария в программу.

• Заявление writeln («Привет, мир!»); использует функцию writeln, доступную в Pascal, которая вызывает сообщение «Hello, World!» быть отображенным на экране.

• Оператор readkey; позволяет отображать паузу, пока пользователь не нажмет клавишу. Это часть КТО. Блок похож на библиотеку в Паскале.

• Последнее утверждение заканчивается. заканчивает вашу программу

Первая строка программы программы HelloWorld; указывает на название программы.

Вторая строка программы использует crt; это команда препроцессора, которая говорит компилятору включить модуль crt перед тем, как перейти к фактической компиляции.

Следующие строки, заключенные в операторы начала и конца, являются основным программным блоком. Каждый блок в Паскале заключен в оператор начала и оператора конца . Однако за оператором завершения, указывающим конец основной программы, следует точка (.) Вместо точки с запятой (;).

Оператор начала основного блока программы — это место, где начинается выполнение программы.

Строки внутри (* … *) будут игнорироваться компилятором, и он был добавлен для добавления комментария в программу.

Заявление writeln («Привет, мир!»); использует функцию writeln, доступную в Pascal, которая вызывает сообщение «Hello, World!» быть отображенным на экране.

Оператор readkey; позволяет отображать паузу, пока пользователь не нажмет клавишу. Это часть КТО. Блок похож на библиотеку в Паскале.

Последнее утверждение заканчивается. заканчивает вашу программу

Компиляция и выполнение программы Pascal

• Откройте текстовый редактор и добавьте вышеупомянутый код.

• Сохраните файл как hello.pas

• Откройте командную строку и перейдите в каталог, где вы сохранили файл.

• Введите в командной строке fpc hello.pas и нажмите Enter, чтобы скомпилировать код.

• Если в вашем коде нет ошибок, командная строка переместит вас на следующую строку и сгенерирует приветственный исполняемый файл и объектный файл hello.o .

• Теперь введите hello в командной строке, чтобы выполнить вашу программу.

• Вы сможете увидеть «Hello World», напечатанный на экране, и программа будет ждать, пока вы не нажмете любую клавишу.

Откройте текстовый редактор и добавьте вышеупомянутый код.

Сохраните файл как hello.pas

Откройте командную строку и перейдите в каталог, где вы сохранили файл.

Введите в командной строке fpc hello.pas и нажмите Enter, чтобы скомпилировать код.

Если в вашем коде нет ошибок, командная строка переместит вас на следующую строку и сгенерирует приветственный исполняемый файл и объектный файл hello.o .

Теперь введите hello в командной строке, чтобы выполнить вашу программу.

Вы сможете увидеть «Hello World», напечатанный на экране, и программа будет ждать, пока вы не нажмете любую клавишу.

$ fpc hello.pas
Free Pascal Compiler version 2.6.0 [2011/12/23] for x86_64
Copyright (c) 1993-2011 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling hello.pas
Linking hello
8 lines compiled, 0.1 sec

$ ./hello
Hello, World!

Убедитесь, что в вашем пути есть бесплатный компилятор паскаля fpc и вы запускаете его в каталоге, содержащем исходный файл hello.pas.

Паскаль — основной синтаксис

Вы увидели базовую структуру программы на Паскале, поэтому вам будет легко понять другие основные строительные блоки языка программирования на Паскале.

переменные

Определение переменной помещается в блок, начинающийся с ключевого слова var , за которым следуют следующие определения переменных:

var
A_Variable, B_Variable ... : Variable_Type;

Переменные Паскаля объявляются вне тела кода функции, что означает, что они не объявляются в парах начала и конца , но они объявляются после определения процедуры / функции и перед ключевым словом begin . Для глобальных переменных они определяются после заголовка программы.

Функции / Процедуры

В Паскале процедура — это набор инструкций, которые должны быть выполнены без возвращаемого значения, а функция — это процедура с возвращаемым значением. Определение функции / процедур будет следующим:

Function Func_Name(params...) : Return_Value;
Procedure Proc_Name(params...);

Комментарии

Многострочные комментарии заключены в фигурные скобки и звездочки как {* … *}. Паскаль допускает однострочный комментарий, заключенный в фигурные скобки {…}.

{* This is a multi-line comments
   and it will span multiple lines. *}

{ This is a single line comment in pascal }

Чувствительность к регистру

Pascal — это не чувствительный к регистру язык, что означает, что вы можете написать свои переменные, функции и процедуры в любом случае. Как и переменные A_Variable, a_variable и A_VARIABLE имеют одинаковое значение в Паскале.

Заявления Паскаля

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

Например —

readln (a, b, c);
s := (a + b + c)/2.0;
area := sqrt(s * (s - a)*(s-b)*(s-c));
writeln(area);        

Зарезервированные слова на Паскале

Утверждения в Паскале составлены с некоторыми определенными словами Паскаля, которые называются зарезервированными словами. Например, слова, программа, ввод, вывод, var, real, begin, readline, writeline и end являются зарезервированными словами.

Ниже приведен список зарезервированных слов, доступных в Паскале.

Набор символов и идентификаторы в Паскале

Набор символов Паскаль состоит из —

• Все заглавные буквы (А-Я)

• Все строчные буквы (аз)

• Все цифры (0-9)

• Специальные символы — + * /: =,. ;. () [] = {} `пробел

Все заглавные буквы (А-Я)

Все строчные буквы (аз)

Все цифры (0-9)

Специальные символы — + * /: =,. ;. () [] = {} `пробел

Сущности в программе на Паскале, такие как переменные и константы, типы, функции, процедуры и записи и т. Д., Имеют имя или идентификатор. Идентификатор — это последовательность букв и цифр, начинающаяся с буквы. Специальные символы и пробелы не должны использоваться в идентификаторе.

Паскаль — Типы данных

Типы данных объекта указывают значение, ограничения, возможные значения, операции, функции и режим хранения, связанные с ним.

Целочисленные, действительные, логические и символьные типы называются стандартными типами данных. Типы данных могут быть классифицированы как скалярные, указательные и структурированные типы данных. Примерами скалярных типов данных являются целочисленные, вещественные, логические, символьные, поддиапазонные и перечисляемые. Структурированные типы данных состоят из скалярных типов; например, массивы, записи, файлы и наборы. Мы обсудим типы данных указателя позже.

Паскаль Типы данных

Типы данных Pascal можно обобщить, как показано ниже на следующей диаграмме:

Объявления типов

Объявление типа используется для объявления типа данных идентификатора. Синтаксис объявления типа —

 type-identifier-1, type-identfier-2 = type-specifier;

Например, следующее объявление определяет переменные days и age как целочисленный тип, yes и true как логический тип, name и city как строковый тип, сборы и расходы как реальный тип.

type
days, age = integer;
yes, true = boolean;
name, city = string;
fees, expenses = real;

Целочисленные типы

В следующей таблице приведены подробные сведения о стандартных целочисленных типах с их размерами хранения и диапазонами значений, используемыми в Object Pascal.

Константы

Использование констант делает программу более читабельной и помогает хранить специальные количества в одном месте в начале программы. Паскаль допускает числовые, логические, строковые и символьные константы. Константы могут быть объявлены в части объявлений программы, указав объявление const .

Синтаксис объявления константного типа следующий —

const
Identifier = contant_value;

Ниже приведены некоторые примеры постоянных объявлений —

VELOCITY_LIGHT = 3.0E=10;
PIE = 3.141592;
NAME = 'Stuart Little';
CHOICE = yes;
OPERATOR = '+';

Все объявления констант должны быть даны до объявления переменных.

Перечисляемые типы

Перечисляемые типы данных являются пользовательскими типами данных. Они позволяют указывать значения в списке. Только перечисленные операторы и реляционные операторы разрешены для перечисляемых типов данных. Перечисляемые типы данных могут быть объявлены следующим образом:

type
enum-identifier = (item1, item2, item3, ... )

Ниже приведены некоторые примеры перечислимых объявлений типов:

type
SUMMER = (April, May, June, July, September);
COLORS = (Red, Green, Blue, Yellow, Magenta, Cyan, Black, White);
TRANSPORT = (Bus, Train, Airplane, Ship);

Порядок, в котором элементы перечислены в домене перечисляемого типа, определяет порядок элементов. Например, в перечисляемом типе SUMMER апрель наступает до мая, май — до июня и т. Д. Домен перечисляемых идентификаторов типов не может состоять из числовых или символьных констант.

Типы поддиапазонов

Типы поддиапазонов позволяют переменной принимать значения, лежащие в определенном диапазоне. Например, если возраст избирателей должен составлять от 18 до 100 лет, переменная с именем age может быть объявлена ​​как —

var
age: 18 ... 100;

Подробнее об объявлении переменных мы рассмотрим в следующем разделе. Вы также можете определить тип поддиапазона, используя объявление типа. Синтаксис объявления типа поддиапазона следующий:

type
subrange-identifier = lower-limit ... upper-limit;

Ниже приведены некоторые примеры объявлений поддиапазонных типов:

const
P = 18;
Q = 90;
type
Number = 1 ... 100;
Value = P ... Q;

Типы поддиапазонов могут быть созданы из подмножества уже определенного перечислимого типа, например:

type
months = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
Summer = Apr ... Aug;
Winter = Oct ... Dec;

Паскаль — Типы переменных

Переменная — это не что иное, как имя, данное области памяти, которой могут манипулировать наши программы. Каждая переменная в Паскале имеет определенный тип, который определяет размер и расположение памяти переменной; диапазон значений, которые могут быть сохранены в этой памяти; и набор операций, которые могут быть применены к переменной.

Имя переменной может состоять из букв, цифр и символа подчеркивания. Он должен начинаться либо с буквы, либо с подчеркивания. Паскаль не чувствителен к регистру , поэтому заглавные и строчные буквы здесь означают одно и то же. Основываясь на базовых типах, описанных в предыдущей главе, будут следующие базовые типы переменных:

Основные переменные в Паскале

символ

Обычно один октет (один байт). Это целочисленный тип.

целое число

Наиболее натуральный размер целого числа для машины.

реальный

Значение с плавающей запятой одинарной точности.

логический

Указывает истинные или ложные логические значения. Это также целочисленный тип.

Перечислимый

Определяет пользовательский список.

Поддиапа- зон

Представляет переменные, значения которых лежат в диапазоне.

строка

Хранит массив символов.

Язык программирования Pascal также позволяет определять различные другие типы переменных, которые мы рассмотрим в следующих главах, таких как Pointer, Array, Records, Sets, Files и т. Д. В этой главе мы изучим только основные типы переменных.

Объявление переменных в Паскале

Все переменные должны быть объявлены до того, как мы используем их в программе Pascal. Все объявления переменных сопровождаются ключевым словом var . Объявление определяет список переменных, за которыми следует двоеточие (:) и тип. Синтаксис объявления переменной —

var
variable_list : type;

Здесь тип должен быть допустимым типом данных Pascal, включая символьные, целые, действительные, логические или любые другие определяемые пользователем типы данных и т. Д., А variable_list может состоять из одного или нескольких имен идентификаторов, разделенных запятыми. Некоторые действительные объявления переменных показаны здесь —

var
age, weekdays : integer;
taxrate, net_income: real;
choice, isready: boolean;
initials, grade: char;
name, surname : string;

В предыдущем уроке мы обсуждали, что Pascal позволяет объявлять тип. Тип может быть идентифицирован по имени или идентификатору. Этот тип может использоваться для определения переменных этого типа. Например,

type
days, age = integer;
yes, true = boolean;
name, city = string;
fees, expenses = real;

Теперь определенные типы могут использоваться в объявлениях переменных —

var
weekdays, holidays : days;
choice: yes;
student_name, emp_name : name;
capital: city;
cost: expenses;

Обратите внимание на разницу между объявлением типа и объявлением var . Объявление типа указывает категорию или класс типов, таких как целое число, вещественное и т. Д., Тогда как спецификация переменной указывает тип значений, которые может принимать переменная. Вы можете сравнить объявление типа в Pascal с typedef в C. Самое главное, имя переменной относится к области памяти, где будет храниться значение переменной. Это не так с объявлением типа.

Инициализация переменной в Паскале

Переменным присваивается значение с двоеточием и знаком равенства, за которым следует постоянное выражение. Общая форма присвоения значения —

variable_name := value;

По умолчанию переменные в Паскале не инициализируются с нуля. Они могут содержать мусорные значения. Поэтому лучше инициализировать переменные в программе. Переменные могут быть инициализированы (им присвоено начальное значение) в их объявлении. За инициализацией следует ключевое слово var, а синтаксис инициализации следующий:

var
variable_name : type = value;

Вот некоторые примеры:

age: integer = 15;
taxrate: real = 0.5;
grade: char = 'A';
name: string = 'John Smith';

Давайте посмотрим на пример, который использует различные типы переменных, которые обсуждались до сих пор —

Live Demo

program Greetings;
const
message = ' Welcome to the world of Pascal ';

type
name = string;
var
firstname, surname: name;

begin
   writeln('Please enter your first name: ');
   readln(firstname);
   
   writeln('Please enter your surname: ');
   readln(surname);
   
   writeln;
   writeln(message, ' ', firstname, ' ', surname);
end.

Please enter your first name:
John
Please enter your surname:
Smith
Welcome to the world of Pascal John Smith

var
var1, var2, ...  : enum-identifier;

type
months = (January, February, March, April, May, June, July, August, September, October, November, December);
Var
m: months;
...
M := January;

program exEnumeration;
type
beverage = (coffee, tea, milk, water, coke, limejuice);

var
drink:beverage;

begin
   writeln('Which drink do you want?');
   drink := limejuice;
   
   writeln('You can drink ', drink);
end.

Which drink do you want?
You can drink limejuice

var
subrange-name : lowerlim ... uperlim;

var
marks: 1 ... 100;
grade: 'A' ... 'E';
age: 1 ... 25;

program exSubrange;
var
marks: 1 .. 100;
grade: 'A' .. 'E';

begin
   writeln( 'Enter your marks(1 - 100): ');
   readln(marks);
   
   writeln( 'Enter your grade(A - E): ');
   readln(grade);
   
   writeln('Marks: ' , marks, ' Grade: ', grade);
end.

Enter your marks(1 - 100): 
100
Enter your grade(A - E):
A
Marks: 100 Grade: A

const
identifier = constant_value;

program const_circle (input,output);
const
PI = 3.141592654;

var
r, d, c : real;   {variable declaration: radius, dia, circumference}

begin
   writeln('Enter the radius of the circle');
   readln(r);
   
   d := 2 * r;
   c :=  PI * d;
   writeln('The circumference of the circle is ',c:7:2);
end.

Enter the radius of the circle
23
The circumference of the circle is 144.51

function name(argument(s): type1; argument(s): type2; ...): function_type;
local declarations;

begin
   ...
   < statements >
   ...
   name:= expression;
end;

(* function returning the max between two numbers *)
function max(num1, num2: integer): integer;

var
   (* local variable declaration *)
   result: integer;

begin
   if (num1 > num2) then
      result := num1
   
   else
      result := num2;
   max := result;
end;

function name(argument(s): type1; argument(s): type2; ...): function_type;

function max(num1, num2: integer): integer;

program exFunction;
var
   a, b, ret : integer;

(*function definition *)
function max(num1, num2: integer): integer;
var
   (* local variable declaration *)
   result: integer;

begin
   if (num1 > num2) then
      result := num1
   
   else
      result := num2;
   max := result;
end;

begin
   a := 100;
   b := 200;
   (* calling a function to get max value *)
   ret := max(a, b);
   
   writeln( 'Max value is : ', ret );
end.

Max value is : 200 

procedure name(argument(s): type1, argument(s): type 2, ... );
   < local declarations >
begin
   < procedure body >
end;

procedure findMin(x, y, z: integer; var m: integer); 
(* Finds the minimum of the 3 values *)

begin
   if x < y then
      m := x
   else
      m := y;
   
   if z <m then
      m := z;
end; { end of procedure findMin }  

procedure name(argument(s): type1, argument(s): type 2, ... );

procedure findMin(x, y, z: integer; var m: integer);

program exProcedure;
var
   a, b, c,  min: integer;
procedure findMin(x, y, z: integer; var m: integer); 
(* Finds the minimum of the 3 values *)

begin
   if x < y then
      m:= x
   else
      m:= y;
   
   if z < m then
      m:= z;
end; { end of procedure findMin }  

begin
   writeln(' Enter three numbers: ');
   readln( a, b, c);
   findMin(a, b, c, min); (* Procedure call *)
   
   writeln(' Minimum: ', min);
end.

Enter three numbers:
89 45 67
Minimum: 45

n! = n*(n-1)!
   = n*(n-1)*(n-2)!
      ...
   = n*(n-1)*(n-2)*(n-3)... 1

program exRecursion;
var
   num, f: integer;
function fact(x: integer): integer; (* calculates factorial of x - x! *)

begin
   if x=0 then
      fact := 1
   else
      fact := x * fact(x-1); (* recursive call *)
end; { end of function fact}

begin
   writeln(' Enter a number: ');
   readln(num);
   f := fact(num);
   
   writeln(' Factorial ', num, ' is: ' , f);
end.

Enter a number:
5
Factorial 5 is: 120

program recursiveFibonacci;
var
   i: integer;
function fibonacci(n: integer): integer;

begin
   if n=1 then
      fibonacci := 0
   
   else if n=2 then
      fibonacci := 1
   
   else
      fibonacci := fibonacci(n-1) + fibonacci(n-2);
end; 

begin
   for i:= 1 to 10 do
   
   write(fibonacci (i), '  ');
end.

0 1 1 2	3 5 8 13 21 34

program exLocal; 
var
   a, b, c: integer;

begin
   (* actual initialization *)
   a := 10;
   b := 20;
   c := a + b;
   
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
end.

value of a = 10 b = 20 c = 30

program exLocal;
var
   a, b, c: integer;
procedure display;

var
   a, b, c: integer;
begin
   (* local variables *)
   a := 10;
   b := 20;
   c := a + b;
   
   writeln('Winthin the procedure display');
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
end;

begin
   a:= 100;
   b:= 200;
   c:= a + b;
   
   writeln('Winthin the program exlocal');
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
   display();
end.

Within the program exlocal
value of a = 100 b = 200 c = 300
Within the procedure display
value of a = 10 b = 20 c = 30

program exGlobal;
var
   a, b, c: integer;
procedure display;
var
   x, y, z: integer;

begin
   (* local variables *)
   x := 10;
   y := 20;
   z := x + y;
   
   (*global variables *)
   a := 30;
   b:= 40;
   c:= a + b;
   
   writeln('Winthin the procedure display');
   writeln(' Displaying the global variables a, b, and c');
   
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
   writeln('Displaying the local variables x, y, and z');
   
   writeln('value of x = ', x , ' y =  ',  y, ' and z = ', z);
end;

begin
   a:= 100;
   b:= 200;
   c:= 300;
   
   writeln('Winthin the program exlocal');
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
   
   display();
end.

Within the program exlocal
value of a = 100 b = 200 c = 300
Within the procedure display
Displaying the global variables a, b, and c
value of a = 30 b = 40 c = 70
Displaying the local variables x, y, and z
value of x = 10 y = 20 z = 30

program exGlobal;
var
   a, b, c: integer;
procedure display;

var
   a, b, c: integer;

begin
   (* local variables *)
   a := 10;
   b := 20;
   c := a + b;
   
   writeln('Winthin the procedure display');
   writeln(' Displaying the global variables a, b, and c');
   
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
   writeln('Displaying the local variables a, b, and c');
   
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);
end;

begin
   a:= 100;
   b:= 200;
   c:= 300;
   
   writeln('Winthin the program exlocal');
   writeln('value of a = ', a , ' b =  ',  b, ' and c = ', c);   
   
   display();
end.

Within the program exlocal
value of a = 100 b = 200 c = 300
Within the procedure display
Displaying the global variables a, b, and c
value of a = 10 b = 20 c = 30
Displaying the local variables a, b, and c
value of a = 10 b = 20 c = 30

program exString;
var
   greetings: string;
   name: packed array [1..10] of char;
   organisation: string[10];
   message: pchar;

begin
   greetings := 'Hello ';
   message := 'Good Day!';
   
   writeln('Please Enter your Name');
   readln(name);
   
   writeln('Please Enter the name of your Organisation');
   readln(organisation);
   
   writeln(greetings, name, ' from ', organisation);
   writeln(message); 
end.

Please Enter your Name
John Smith
Please Enter the name of your Organisation
Infotech
Hello John Smith from Infotech

program exString;
uses sysutils;
var
   str1, str2, str3 : ansistring;
   str4: string;
   len: integer;

begin
   str1 := 'Hello ';
   str2 := 'There!';
   
   (* copy str1 into str3 *)
   str3 := str1;
   writeln('appendstr( str3, str1) :  ', str3 );
   
   (* concatenates str1 and str2 *)
   appendstr( str1, str2);
   writeln( 'appendstr( str1, str2) ' , str1 );
   str4 := str1 + str2;
   writeln('Now str4 is: ', str4);
   
   (* total lenghth of str4 after concatenation  *)
   len := byte(str4[0]);
   writeln('Length of the final string str4: ', len); 
end.

appendstr( str3, str1) : Hello
appendstr( str1, str2) : Hello There!
Now str4 is: Hello There! There!
Length of the final string str4: 18

var
boolean-identifier: boolean;

var
choice: boolean;

program exBoolean;
var
exit: boolean;

choice: char;
   begin
   writeln('Do you want to continue? ');
   writeln('Enter Y/y for yes, and N/n for no');
   readln(choice);

if(choice = 'n') then
   exit := true
else
   exit := false;

if (exit) then
   writeln(' Good Bye!')
else
   writeln('Please Continue');

readln;
end.

Do you want to continue?
Enter Y/y for yes, and N/n for no
N
Good Bye!
Y
Please Continue

type
   array-identifier = array[index-type] of element-type;

type
   vector = array [ 1..25] of real;
var
   velocity: vector;

type
   vector = array [ 0..24] of real;
var
   velocity: vector;

type
   temperature = array [-10 .. 50] of real;
var
   day_temp, night_temp: temperature;

type
   ch_array = array[char] of 1..26;
var
   alphabet: ch_array;

type
   color = ( red, black, blue, silver, beige);
   car_color = array of [color] of boolean;
var
   car_body: car_color;

type
   ch_array = array[char] of 1..26;
var
   alphabet: ch_array;
   c: char;

begin
   ...
   for c:= 'A' to 'Z' do
   alphabet[c] := ord[m];  
   (* the ord() function returns the ordinal values *)

a: integer;
a: = alphabet['A'];

program exArrays;
var
   n: array [1..10] of integer;   (* n is an array of 10 integers *)
   i, j: integer;

begin
   (* initialize elements of array n to 0 *)        
   for i := 1 to 10 do
       n[ i ] := i + 100;   (* set element at location i to i + 100 *)
    (* output each array element's value *)
   
   for j:= 1 to 10 do
      writeln('Element[', j, '] = ', n[j] );
end.

Element[1] = 101
Element[2] = 102
Element[3] = 103
Element[4] = 104
Element[5] = 105
Element[6] = 106
Element[7] = 107
Element[8] = 108
Element[9] = 109
Element[10] = 110

type
   ptr-identifier = ^base-variable-type;

var
   p1, p2, ... : ptr-identifier;

type
   Rptr = ^real;
   Cptr = ^char;
   Bptr = ^ Boolean;
   Aptr = ^array[1..5] of real;
   date-ptr = ^ date;
      Date = record
         Day: 1..31;
         Month: 1..12;
         Year: 1900..3000;
      End;
var
   a, b : Rptr;
   d: date-ptr;

rptr^ := 234.56;

program exPointers;
var
   number: integer;
   iptr: ^integer;

begin
   number := 100;
   writeln('Number is: ', number);
   
   iptr := @number;
   writeln('iptr points to a value: ', iptr^);
   
   iptr^ := 200;
   writeln('Number is: ', number);
   writeln('iptr points to a value: ', iptr^);
end.

Number is: 100
iptr points to a value: 100
Number is: 200
iptr points to a value: 200

program exPointers;
var
   number: integer;
   iptr: ^integer;
   y: ^word;

begin
   number := 100;
   writeln('Number is: ', number);
   iptr := @number;
   writeln('iptr points to a value: ', iptr^);
   
   iptr^ := 200;
   writeln('Number is: ', number);
   writeln('iptr points to a value: ', iptr^);
   y := addr(iptr);
   writeln(y^); 
end.

Number is: 100
iptr points to a value: 100
Number is: 200
iptr points to a value: 200
45504

program exPointers;
var
   number: integer;
   iptr: ^integer;
   y: ^word;

begin
   iptr := nil;
   y := addr(iptr);
   
   writeln('the vaule of iptr is ', y^);
end.

The value of ptr is 0

if(ptr <> nill )then     (* succeeds if p is not null *)
if(ptr = nill)then    (* succeeds if p is null *)

type
record-name = record
   field-1: field-type1;
   field-2: field-type2;
   ...
   field-n: field-typen;
end;

type 
Books = record
   title: packed array [1..50] of char;
   author: packed array [1..50] of char;
   subject: packed array [1..100] of char;
   book_id: integer;
end;

var
   r1, r2, ... : record-name;

var
Books : record
   title: packed array [1..50] of char;
   author: packed array [1..50] of char;
   subject: packed array [1..100] of char;
   book_id: integer;
end;

program exRecords;
type
Books = record
   title: packed array [1..50] of char;
   author: packed array [1..50] of char;
   subject: packed array [1..100] of char;
   book_id: longint;
end;

var
   Book1, Book2: Books; (* Declare Book1 and Book2 of type Books *)

begin
   (* book 1 specification *)
   Book1.title  := 'C Programming';
   Book1.author := 'Nuha Ali '; 
   Book1.subject := 'C Programming Tutorial';
   Book1.book_id := 6495407;

   (* book 2 specification *)
   Book2.title := 'Telecom Billing';
   Book2.author := 'Zara Ali';
   Book2.subject := 'Telecom Billing Tutorial';
   Book2.book_id := 6495700;
 
   (* print Book1 info *)
   writeln ('Book 1 title : ', Book1.title);
   writeln('Book 1 author : ', Book1.author);
   writeln( 'Book 1 subject : ', Book1.subject);
   writeln( 'Book 1 book_id : ', Book1.book_id);
   writeln; 

   (* print Book2 info *)
   writeln ('Book 2 title : ', Book2.title);
   writeln('Book 2 author : ', Book2.author);
   writeln( 'Book 2 subject : ', Book2.subject);
   writeln( 'Book 2 book_id : ', Book2.book_id);
end.

Book 1 title : C Programming
Book 1 author : Nuha Ali
Book 1 subject : C Programming Tutorial
Book 1 book_id : 6495407

Book 2 title : Telecom Billing
Book 2 author : Zara Ali
Book 2 subject : Telecom Billing Tutorial
Book 2 book_id : 6495700

program exRecords;
type
Books = record
   title: packed array [1..50] of char;
   author: packed array [1..50] of char;
   subject: packed array [1..100] of char;
   book_id: longint;
end;

var
   Book1, Book2: Books; (* Declare Book1 and Book2 of type Books *)

(* procedure declaration *)
procedure printBook( var book: Books );

begin
   (* print Book info *)
   writeln ('Book  title : ', book.title);
   writeln('Book  author : ', book.author);
   writeln( 'Book  subject : ', book.subject);
   writeln( 'Book book_id : ', book.book_id);
end;

begin
   (* book 1 specification *)
   Book1.title  := 'C Programming';
   Book1.author := 'Nuha Ali '; 
   Book1.subject := 'C Programming Tutorial';
   Book1.book_id := 6495407;
   
   (* book 2 specification *)
   Book2.title := 'Telecom Billing';
   Book2.author := 'Zara Ali';
   Book2.subject := 'Telecom Billing Tutorial';
   Book2.book_id := 6495700;
   
   (* print Book1 info *)
   printbook(Book1);
   writeln; 

   (* print Book2 info *)
   printbook(Book2);
end.

Book 1 title : C Programming
Book 1 author : Nuha Ali
Book 1 subject : C Programming Tutorial
Book 1 book_id : 6495407

Book 2 title : Telecom Billing
Book 2 author : Zara Ali
Book 2 subject : Telecom Billing Tutorial
Book 2 book_id : 6495700

type
record-ptr = ^ record-name;
record-name = record
   field-1: field-type1;
   field-2: field-type2;
   ...
   field-n: field-typen;
end;

var
   r1, r2, ... : record-ptr;

new(r1);
new(r2);

r1^.feild1 := value1;
r1^.feild2 := value2;
...
r1^fieldn := valuen;

dispose(r1);
dispose(r2);

program exRecords;
type
BooksPtr = ^ Books;
Books = record
   title: packed array [1..50] of char;
   author: packed array [1..50] of char;
   subject: packed array [1..100] of char;
   book_id: longint;
end;

var
  (* Declare Book1 and Book2 of pointer type that refers to Book type *)
   Book1, Book2: BooksPtr; 

begin
   new(Book1);
   new(book2);
   
   (* book 1 specification *)
   Book1^.title  := 'C Programming';
   Book1^.author := 'Nuha Ali '; 
   Book1^.subject := 'C Programming Tutorial';
   Book1^.book_id := 6495407;
   
   (* book 2 specification *)
   Book2^.title := 'Telecom Billing';
   Book2^.author := 'Zara Ali';
   Book2^.subject := 'Telecom Billing Tutorial';
   Book2^.book_id := 6495700;
   
   (* print Book1 info *)
   writeln ('Book 1 title : ', Book1^.title);
   writeln('Book 1 author : ', Book1^.author);
   writeln( 'Book 1 subject : ', Book1^.subject);
   writeln( 'Book 1 book_id : ', Book1^.book_id);
   
   (* print Book2 info *)
   writeln ('Book 2 title : ', Book2^.title);
   writeln('Book 2 author : ', Book2^.author);
   writeln( 'Book 2 subject : ', Book2^.subject);
   writeln( 'Book 2 book_id : ', Book2^.book_id);
   
   dispose(Book1); 
   dispose(Book2);
end.

Book 1 title : C Programming
Book 1 author : Nuha Ali
Book 1 subject : C Programming Tutorial
Book 1 book_id : 6495407

Book 2 title : Telecom Billing
Book 2 author : Zara Ali
Book 2 subject : Telecom Billing Tutorial
Book 2 book_id : 6495700

   (* book 1 specification *)
   Book1.title  := 'C Programming';
   Book1.author := 'Nuha Ali '; 
   Book1.subject := 'C Programming Tutorial';
   Book1.book_id := 6495407;

(* book 1 specification *)
With Book1 do
begin
   title  := 'C Programming';
   author := 'Nuha Ali '; 
   subject := 'C Programming Tutorial';
   book_id := 6495407;
end;

var
   v: variant;

type  
   color = (red, black, white);  
var  
   v : variant;  
   i : integer;  
   b : byte;  
   w : word;  
   q : int64;  
   e : extended;  
   d : double;  
   en : color;  
   as : ansistring;  
   ws : widestring;  

begin  
   v := i;  
   v := b;  
   v := w;  
   v := q;  
   v := e;  
   v := en;  
   v := d:  
   v := as;  
   v := ws;  
end;

Program exVariant;

uses variants;
type
   color = (red, black, white);

var
   v : variant;
   i : integer;
   r: real;
   c : color;
   as : ansistring;


begin
   i := 100;
   v:= i;
   writeln('Variant as Integer: ', v);

   r:= 234.345;
   v:= r;
   writeln('Variant as real: ', v);

   c := red;
   v := c;
   writeln('Variant as Enumerated data: ', v);

   as:= ' I am an AnsiString';
   v:= as;
   writeln('Variant as AnsiString: ', v);
end.

Variant as Integer: 100
Variant as real: 234.345
Variant as Enumerated data: 0
Variant as AnsiString: I am an AnsiString

type
set-identifier = set of base type;

var
s1, s2, ...: set-identifier;

s1, s2...: set of base type;

type
Days = (mon, tue, wed, thu, fri, sat, sun);
Letters = set of char;
DaySet = set of days;
Alphabets = set of 'A' .. 'Z';
studentAge = set of 13..20;