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

В Turbo Pascal программа имеет следующую структуру:

P ROGRAM имя;

CONST {раздел констант};

…… раздел описаний

VAR {раздел переменных};

B EGIN

оператор_1;

оператор_2; раздел операторов

……………;

оператор_n

END.

Любая программа начинается со слова PROGRAM и заканчивается точкой. Имя – имя программы, образуемое так же, как и имена переменных. В разделе описаний должны быть описаны все константы и переменные, используемые в программе. Раздел описаний предшествует разделу операторов. Раздел операторов начинается с ключевого слова BEGIN и заканчивается словом END с точкой и содержит исполняемые операторы, отделяющиеся друг от друга знаком “;” (точкой с запятой).

Указания для выполнения основных действий, необходимых для создания программ и проведения расчетов в среде Pascal, даны в приложении (см стр. 40–47).

Пример. Вычислим значение выражения

при c=1.5, d=0.6, x=0.64.

Составим программу:

PROGRAM L1; {L1-имя программы}

CONST c=1.5;d=0.6; {величины c и d описываем константами}

VAR x,y:real; {описываем x и y переменными вещественного типа}

BEGIN

read(x); {вводим с клавиатуры значение аргумента x}

y:=Sqrt(cx)-2.7(Abs(c)+Abs(x))Exp(dx)/ {вычисляем значение выражения-}

(Sqr(cx)+1)+Cos(Sqr(x)); {-и присваиваем его переменной y}

write(' x=',x:5:2,' y(x)=',y:6:2) {выводим на экран значения x и y}

END.

Результат работы программы получим в виде

x= 0.64 y(x)= -2.52.

Варианты заданий

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8)

9)

10)

11)

12. 

13)

14. 

15. 

16)

17)

18. 

18. 

20)

21)

22)

23)

24)

25)

Задание 2

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

Цель работы: оставить программу для вычисления значений функции y(x); вывести на экран значения x и y(x).

Оператор условного перехода

Для программирования разветвляющегося алгоритма используется оператор условного перехода. Его общий вид:

if логическое выражение then оператор_ 1 [else оператор_2];

Квадратные скобки означают, что конструкция else оператор_2 может отсутствовать. Если логическое_выражение истинно, то выполняется оператор_1, иначе – оператор_2 (или следующий за if оператор, если else отсутствует).

Пример. Вычислим значение функции:

sinx, если xa,

y(x)= cosx, если axb,

tgx , если xb .

Указанное выражение может быть запрограммировано в виде:

if x<=a then y:=sin(x);

if (x>a)and(x<b) then y:=cos(x);

if x>=b then y:=sin(x)/cos(x);

или

if x<=a then y:=sin(x)

else if x<b then y:=cos(x)

else y:=sin(x)/cos(x); .