При записи в программе операции div и mod слева и справа сопровождаются пробелами}.

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

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

PROGRAM PRIMER;	{заголовок программы }
USES имена модулей;	{сообщение о включении стандартных собственных модулей}
LABEL метки;	{объявление меток}
CONST константа = значение;	{объявление констант}
TYPE имя типа = описание;	{объявление новых типов}
VAR имя : тип;	{объявление переменных}
FUNCTION имя . . . ;	{объявление функций}
PROCEDURE имя . . . ;	{объявление процедур}
BEGIN	{начало тела программы}
Операторная часть программы
END.	{конец программы}

Пример написания программы

Задача: Написать программу, вычисляющую S = y + z, если

; ; a, b, c, x заданы.

1. Математическая постановка:

а) введем новые переменные для повторяющихся выражений:

t=a+b, p=cx

б) a, b, c, x, t, p, x, y, z, - простые переменные вещественного типа.

в) исходные данные: a, b, c, x

результат: S

промежуточные переменные: t, p, y, z.

г) расчетные формулы:

Блок-схема алгоритма

3. Программа:

PROGRAM pr1;

USES CRT; {подключаем стандартный модуль CRT }

CONST K= 3.75;

VAR a, b, c, x, t, p, s, y, z: real;

BEGIN CLRSCR; {процедура очистки экрана, входящяя в модуль CRT }

WRITE(‘ введите через пробел значения a, b, c, x ‘);

READLN(a, b, c, x); { ввод исходных данных с предварительным

сообщением}

t: = a+b; {оператор присваивания }

p: = c*x; {оператор присваивания }

y: = (t*t*t-sin(p))/(a-k );

z: = ln(p) – exp(1/3*ln((t+k)/a));

s: = y+z;

WRITELN(‘s = ‘, s:8:3); {вывод s в поле из 8 позиции с 3 цифрами

после точки}

READLN; {задержка}

END.

Прокомментируем рассмотренный пример. Все предложения в программе разделяются “ ; “. Комментарии в { } могут стоять в любом месте программы, как и пробелы.

Контрольные вопросы для самопроверки

1. Какие записи не являются числами в стандарте языка Паскаль:

3,756 ; -1.5*10 ; 35000 ; 0.00078 ; 6,75Е-10 ; 0.98Е2 ; 99.675Е-1.5 ?

2. Какие из перечисленных записей могут быть именами (идентификаторами):

А123В , cosinusотх , x12.A5 , 7KOT , A_B , FOR , MATR-A?

3. Определите тип следующих констант:

K=137.35;

ZOR=’+’;

P=1000;

4. Какие из перечисленных записей могут быть метками:

A123, 37B , 10 , XYZ , 999, 1 , END, OP_BBODA?

5. Чему равно значение выражений и какого они типа?

FRAC(3.75)	TRUNC(123.9756)	ABS(-5)
SQR(2)	25 mod 4	3E2 * SQR(2)
SQRT(1.44)	4*4/2*3	3 div 3
5 div 2	24/2/6	FRAC(4)
(х >0) and (x<0)	round(2.35)>1	3< >5

Порядок выполнения работы

1. Прочитать и законспектировать теоретическую часть работы.

2. Ответить на контрольные вопросы.

3. Выполнить самостоятельную работу на запись формул по вариантам (задание на стр. 14).

4. Выполнить индивидуальное задание для своего варианта (стр 16):

· сделать математическую постановку,

· разработать блок-схему и написать программу,

· набрать и отладить программу, получив результаты.

III. Задания для самостоятельной работы.

№ вар.	Формулы для записи на языке Turbo Pascal
22

V. Варианты индивидуальных заданий.

Вычислить S=Y+Z, если формулы, по которым вычисляются Y и Z, и исходные данные приведены в соответствующем варианте задания.

№ вар	Функции	а	в	с	х
		5,2	3,1	-1,5	0.5
		-7.4	4.5	0,75	1,5
		0,07	1,7	2.6	-0,7
		5,2	-4,1	1,2	2,6
		5,5	0.2	5,25	1,2
		2,4	-3,2	5,7	0,75
		4,7	2,4	0,1	3,5
8		2,2	-1,8	7,7	4,5
		4,5	3,7	1,3	0,02
		4,5	5.7	7,4	0,7
		3,4	1,2	2.2	6,8
		5,1	3,2	0,6	3,3
		3,2	1,7	2,0	7,1
		6,1	3,5	1,6	0,5
		7,5	-4,3	5,8	2.1
		2,6	3,1	0,7	0,2
		2,2	1,1	0,6	0,1
		0,6	0,1	7,1	3,6
		2,1	-1,4	6,3	0,3
		1,2	2,6	3,3	0,7
		0,2	0,4	3,1	0,2
		2,2	0,1	0,1	0,6
		2,2	6,1	0,1	3,3
		1,1	3,2	0,3	2,5
		1,4	0,1	3,3	0,9
		1,2	0,2	3,1	1,14
		1,4	-3,3	0,2	1,7
		3,2	2,9	2,0	2,0
		0,5	0,9	0,7	0,3
		3,1	0,7	2,7	4,3