1.2 Раздел констант

Раздел определения констант вводит некоторые Индетификаторы как синонимы для констант. Константа =[знак]

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

В качестве констант на языке программирования Паскаль разрешается использовать целые и вещественные значения, а также строки. Использование раздела определения констант позволяет избежать употребления явных констант в программе.

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

Пример: сonst n=3,n=4

A=2+5;

1.3 Раздел описания типов

Концепция типов является одной из основных в языке программирования Паскаль.Тип-это множество значений плюс множество операций,которые можно выполнить над этими значениями. Паскаль строго типизирован. Программист должен описать все объекты,указывая их типы,и использовать объекты только в соответствии с их типами. А это, в свою очередь, приводит к написанию более надежных и качественных программ.

Паскаль для сложения целых и вещественных величин, а так же для объединения множеств.

Типы в языке программирования Паскаль определяется в разделе определения типов.Каждое определение типа вводит идентификатор для обозначения некоторого типа. Этот идентификатор может использоваться для определения новых, более сложных типов данных, либо для описания переменных в разделе описания переменных.

Пример:

TYPE

Vector<array[1…10] ofreal;

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

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

Раздел описания переменных. Каждая переменная, встречающаяся в программе,должна быть описана в разделе описания переменных.

1.4 Примеры решения задач

Разработать программы для вычисления:

(*Вычислитьплощадькруга*)

Programzad1;{*название программы*}

usescrt; {*поключение к библиотеке*}

constpi=3.14;{*константа не изменяемое число*}

vars,r:real;{*переменные s,r- вещественного значения*}

begin

CLRSCR;{*очищение экрана*}

WRITE ('BBEDITER=');{* Вывод на экран сообщения*}

READLN(R);{*Чтение данных, переход к началу следующей строки*}

S:=PI*R*R;{*S присваивается значение пи умножить на R в квадрате*}

WRITELN('PLOSHADPABHA ',S:5:3);{*Вывод данных на экран и

значения переменной S*}

READLN;{*Переход к началу строки*}

END.

(*Вычислить длину окружности *)

programzad 1_1;{*название программы*}

usescrt; {*поключение к библиотеке*}

constpi=3.14;{*неизменное значение*}

varC,r:real;{*переменные c,r- вещественного значения*}

begin

CLRSCR; {*Очищение экрана*}

WRITE('BBEDITER=');{* Вывод на экран сообщения*}

READLN(R);{*Чтение данных и переход к началу следующей строки*}

C:=2*PI*R;{*C присваивается значение 2 умноженное на пи и на R*}

WRITELN('DLINAPABHA ',C:5:3);{*Вывод данных на экран и

значения переменной C*}

READLN;{*Переход к началу строки*}

END.

(* Вычислить периметр прямоугольника*)

programzad3;

usescrt; {*поключение к библиотеке*}

varP,A,B:reaL;{*переменные c,r- вещественного значения*}

begin

CLRSCR;{*Очищение экрана*}

WRITE('BBEDITEA=');{* Вывод на экран сообщения*}

READLN(A);{*Чтение данных и переход к началу следующей строки*}

WRITE('BBEDITEB=');{* Вывод на экран сообщения*}

READLN(B);{*Чтение данных и переход к началу следующей строки*}

P:=2*(A+B);{*P присваивается значение 2*(A+B)*}

WRITELN('PERIMETRPABEH ',P:5:3);{*Вывод данных на экран и

значения переменной P*}

READLN;{*Переход к началу строки*}

END.{*Завершение программы*}

(*Вычислить: сумму, разность и произведение вывести на экран результат*)

programzad3;{*название программы*}

usescrt; {*поключение к библиотеке*}

varA,B,C:real;{*Вводпеременных c,r- вещественного значения*}

begin

CLRSCR;{*Очищение экрана*}

WRITE('BBEDITEA=');{* Вывод на экран сообщения*}

READLN(A);{*Чтение данных и переход к началу следующей строки*}

WRITE('BBEDITEB=');{* Вывод на экран сообщения*}

READLN(B);{*Чтение данных и переход к началу следующей строки*}

C:=A+B;{*С присваивается значение A+B *}

WRITELN('A+B=',C:5:3);{*Вывод данных на экран и

Значения переменной C*}

C:=A-B; {*С присваивается значение A-B *}

WRITELN('A-B=',C:5:3);{*Вывод данных на экран и

значения переменной C*}

C:=A*B; {*С присваивается значение A*B *}

WRITELN('A*B=',C:5:3);{*Вывод данных на экран и

значения переменной C*}

READLN(C);{*Чтение данных и переход к началу следующей строки*}

END.