Содержание отчета

1. Номер, название и цель лабораторной работы.

2. Задание на выполнение работы (исходная задача).

3. Словесно-формульный алгоритм решения задачи.

4. Листинг текста модуля.

5. Листинг отлаженной программы и результаты решения задачи.

6. Подробное описание процесса отладки программы с приведением ошибок, допущенных при ее составлении.

Контрольные вопросы

1. В чем заключается сущность модульного программирования?

2. В каком месте программы указывается подключение модулей?

3. Из каких разделов состоит модуль?

4. Что описывается в разделе interface?

5. Что описывается в разделе implementation?

6. Что описывается в разделе инициализации?

7. Охарактеризуйте режим компиляции модулей Compile.

8. Какое расширение имеет откомпилированный модуль?

9. Чем отличается режим Make от режима Compile?

10. Каковы особенности режима компиляции Build?

11. Поясните назначение опции Primary file.

12. Какие стандартные модули среды ТР 7.0 вы знаете?

13. В чем особенность подключения стандартного модуля System?

14. В каком каталоге располагаются tpu-файлы?

Библиографический список

1. Грызлов В.И., Грызлова Т.П. Турбо Паскаль 7.0. - М.: ДМК, 1998. - 400 с., ил., с. 101-103, 108-111.

2. Зуев Е.А. Turbo Рascal. Практическое программирование - М.: "Издательство ПРИОР", 1999. - 336 с., с 27-31.

3. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0 / Под ред. Тарасенко В.П. - К.: ВЕК+, М.: ДЕСС, 1999. - 496 с., ил., с. 102-109, 240-242.

4. Немнюгин С.А. Turbo Pascal: практикум – СПб: Питер, 2001. – 256 с.: ил., с. 117-123.

5. Турбо Паскаль 7.0 - К.: Издательская группа BHV, 1999. - 448 с.: ил, с. 92-108.

6. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. - М.: "Нолидж", 1999. - 616 с., ил., с. 182-190, 534.

7. Turbo Pascal / С.А. Немнюгин. – СПб: Издательство "Питер", 2000. – 496 с.: ил., с.46-47.

Тексты функций и процедур

{перевод аргумента из градусов в радианы}

function Rad(x:real):real;

begin

Rad:=x*pi/180

end;

{вычисление синуса (аргумент задан в градусах)}

procedure sinGr(x:real; var t:real);

begin

x:=x*pi/180; t:=sin(x)

end;

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

function cosGr(x:real):real;

begin

x:=x*pi/180; cosGr:=cos(x)

end;

{вычисление тангенса}

procedure tg(x:real; var t:real);

begin

t:=sin(x)/cos(x)

end;

{вычисление тангенса (аргумент задан в градусах)}

function tgGr(x:real):real;

begin

x:=x*pi/180;

tgGr:=sin(x)/cos(x)

end;

{вычисление котангенса}

procedure ctg(x:real; var t:real);

begin

t:= cos(x)/sin(x)

end;

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

function ctgGr(x:real):real;

begin

x:=x*pi/180;

ctgGr:= cos(x)/sin(x)

end;

{вычисление десятичного логарифма}

procedure lg(x:real; var t:real);

begin

t:=ln(x)/ln(10)

end;

{вычисление логарифма х по основанию а}

function log(x,a:real):real;

begin

log:=ln(x)/ln(a)

end;

{вычисление корня n степени}

function sqrn(x:real;n:integer):real;

begin

sqrn:=exp(1/n*ln(x))

end;

{возведение числа в n степень}

procedure stepen(x,n:real; var t:real);

begin

t:=exp(n*ln(x))

end;

{вычисление факториала n!}

procedure fact(n:byte; var t:integer);

var i:byte;

begin t:=1;

for i:=1 to n do t:=t*i;

end;

{вычисление гиперболического тангенса}

function th(x:real):real;

begin

th:=(exp(2*x)-1)/(exp(2*x)+1)

end;

{вычисление арксинуса}

procedure arcsin(x:real; var t:real);

begin

t:=arctan(x/sqrt(1-x*x))

end;

{вычисление арккосинуса}

procedure arccos(x:real; var t:real);

begin

t:=pi/2-arctan(x/sqrt(1-x*x))

end;

{вычисление арккотангенса}

function arcctg(x:real):real;

begin

arcctg:=pi/2-arctan(x)

end;

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

	Вычислить при a = 2.42, b = 1.21
	Вычислить при x = 6
	Вычислить при x = 4, y = 2.5
	Вычислить при x = 3.5, y = 1.25
	Вычислить при x = 2.12, y = 5
	Вычислить при x = 35°
	Вычислить при a = 3, b = 2
	Вычислить при х = 3.2
	Вычислить при х = 3.15, у = 24°
	Вычислить при х = 5, у = 2.5
	Вычислить при х = 0.9, у = 12°
	Вычислить где при x = 7, a = 3.4, b = 4.5
	Вычислить при у = 35°, х = 2.8 рад
1	Вычислить при а = 3, х = 85°