Структура программы

Программа на языке ПАСКАЛЬ состоит из заголовка, разделов описаний и раздела операторов.

Заголовок программы содержит имя программы, например:

Program PRIM;

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

Раздел описания модулей определяется служебным словом USES и содержит имена подключаемых модулей (библиотек) как входящих в состав системы TURBO PASCAL, так и написанных пользователем. Раздел описания модулей должен быть первым среди разделов описаний. Имена модулей отделяются друг от друга запятыми:

uses CRT, Graph;

Описание констант позволяет использовать имена как синонимы констант, их необходимо определить в разделе описаний констант:

const K= 1024; MAX= 16384;

В разделе описания переменных необходимо определить тип всех переменных, используемых в программе:

var P,Q,R: Integer;

A,B: Char;

F1,F2: Boolean;

Описание типов, прцедур и функций будет рассмотрено ниже. Отдельные разделы описаний могут отсутствовать, но следует помнить, что в ПАСКАЛЬ-программе должны быть обязательно описаны все компоненты программы.

Раздел операторов представляет собой составной оператор, который содержит между служебными словами begin.......end последовательность операторов. Операторы отделяются друг от друга символом ;. Текст программы заканчивается символом точка.

Кроме описаний и операторов ПАСКАЛЬ - программа может содержать комментарии, которые представляют собой произвольную последовательность символов, расположенную между открывающей скобкой комментариев { и закрывающей скобкой комментариев }.

Математические функции в паскале

ФУНКЦИЯ	ТИП АРГУМЕНТА	ТИП РЕЗУЛЬТАТА	ОПИСАНИЕ
Abs(x)	Integer, real	Integer, real	Модуль числа |х|
Arctan(x)			Арктангенс числа
Cos(x)
Exp(x)
Frac(x)
Int(x)
Ln(x)
Pi
Sin(x)
Sqr(x)
Sqrt(x)

Для того, чтобы возвести число в нужную степень, применяют следующую формулу:

а^х = e^x*lna

В языке Pascal она записывается так: Exp (x*ln (а))

Оператор ветвления (условный оператор)

В системе программирования Turbo Pascal существует возможность реализовывать нелинейные алгоритмы. Самым простым средством является оператор ветвления.

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

Оператор ветвления (или условный оператор) изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия. Существует два варианта:

Полная форма:

if <условие> then <оператор1> else <оператор2>;

и краткая форма:

if <условие> then <оператор1>;

Здесь

<условие> - это некоторое логическое выражение, истинность которого проверяется;

<оператор1> - оператор, который выполняется, если условие истинно;

<оператор2> - оператор, который выполняется, если условие ложно.

Примеры использования:

if x<0 then x:=-y;

if x<1.5 then z:=x+y

else z:=1/5;

Если ветвь оператора состоит из нескольких команд, то необходимо ограничить их операторными скобками begin и end.

Пример. Программа для решения квадратного уравнения.

Program kvur;

Var

a,b,c: real; {коэффициенты квадратного уравнения}

x1,x2: real; {корни квадратного уравнения}

D: real; {дискриминант квадратного уавнения}

Begin

Writeln('Решение квадратного уравнения.');

Write('Введите коэффициент a: ');

Readln(a);

Write('Введите коэффициент b: ');

Readln(b);

Write('Введите коэффициент c: ');

Readln(c);

D:=b*b-4*a*c; {Определение дискриминанта}

if D>0 then

begin

x1:=(-b+sqrt(D))/(2*a); {1 корень}

x2:=(-b-sqrt(D))/(2*a); {2 корень}

Writeln('Первый корень уравнения: ',x1);

Writeln('Второй корень уравнения: ',x2);

end;

if D=0 then

begin

x1:=-b/(2*a);

Writeln('Уравнение имеет один корень: ',x1);

end;

if D<0 then writeln('Уравнение корней не имеет.');

Readln;

End.