Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Мозырский государственный педагогический университет им. И.П. Шамякина

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

lab / Lb_Модули

.pdf

Скачиваний:

Добавлен:

21.03.2015

Размер:

141.95 Кб

Скачать

☆

ЛАБОРАТОРНАЯ РАБОТА Использование подпрограмм и модулей

Цель лабораторной работы: изучить возможности Delphi для написания подпрограмм и создания модулей. Составить и отладить программу, использующую внешний модуль Unit с подпрограммой.

1.Краткие сведения

1.1.Общие сведения

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

Подпрограммы подразделяются на процедуры и функции. Процедура имеет следующую структуру:

Procedure <имя процедуры> ([список формальных параметров]); Const [описание используемых констант];

Type [описание используемых типов];

Var [описание используемых переменных]; begin

<операторы> end;

Процедуры и функции могут быть использованы в качестве формальных параметров подпрограмм. Для этого определяется тип:

Type <имя>=function([список формальных параметров]):<тип результата>;

или

Type <имя>=procedure([список формальных параметров]);

Имя процедуры или функции должно быть уникальным в пределах программы. Список формальных параметров необязателен и может отсутствовать. Если же он есть, то в нем перечисляются через точку с запятой имена формальных параметров и их типы. Имеется три вида формальных параметров параметры-значения, параметры-переменные, параметры- константы. При вызове подпрограммы передача данных для этих видов осуществляются по- разному. Параметры-значения копируются, и подпрограмма работает с их копией, поэтому при вызове на месте такого параметра можно ставить арифметическое выражение. При использовании параметров-переменных (в описании перед ними ставится Var) и параметров-констант в подпрограмму передается адрес, и она работает с самой переменной.

PDF created with pdfFactory Pro trial version www.pdffactory.com

С помощью параметров-переменных подпрограмма передает результаты своей работы вызывающей программе.

Вфункциях используется специальная переменная Result, интерпретируемая как значение, которое вернет в основную программу по окончании работы функции.

Вязык Object Pascal встроен ряд наиболее часто употребляемых процедур и функций,

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

1.2. Использование модулей

Модуль – автономно компилируемая программная единица, включающая в себя процедуры, функции, а также различные компоненты раздела описаний. Структура модуля содержит следующие основные части: заголовок, интерфейсная часть, исполняемая, инициирующая и завершающая.

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

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

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

Исполняемая часть начинается зарезервированным словом Implementation и содержит описание процедур и функций, объявленных в интерфейсной части. Она может также содержать вспомогательные типы, константы, переменные, процедуры и функции которые, будут использоваться только в исполняемой части и не будут доступны внешним программам.

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

Завершающая часть начинается зарезервированным словом Finalization и выполняется в момент окончания работы программы.

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

1.3. Пример выполнения задания

Написать программу вывода на экран таблицы функции, которую, оформить в виде процедуры. В качестве функции использовать по выбору Tg(x), Ch(x) и Sin(x).

Создание модуля

Создавая модуль, следует обратить внимание на то, что он не должен иметь своей формы. Система Delphi при начальной загрузке автоматически создает шаблон программы, имеющий в своем составе форму, файл проекта и т.д. Так как модуль состоит только из одного файла, то необходимо перед его созданием уничтожить заготовку файла проекта и форму. Для этого в меню File выбрать Close All, файл проекта не сохранять.

PDF created with pdfFactory Pro trial version www.pdffactory.com

Для создания модуля в меню File выбрать File New, и затем в репозитории –

пиктограмму . В результате будет создан файл с заголовком Unit Unit1. Имя модуля можно сменить на другое, отвечающее внутреннему содержанию модуля, например Unit MatFunc. Затем необходимо сохранить файл с именем, совпадающим с именем заголовка модуля: MatFunc.pas. Следует обратить внимание на то, что имя файла должно совпадать с именем модуля, иначе Delphi не сможет подключить его к другой программе.

Подключение модуля

Для того чтобы подключить модуль к проекту необходимо в меню Project выбрать опцию Add to Project... и выбрать файл, содержащий модуль. После этого в разделе Uses добавить имя подключаемого модуля – MatFunc. Теперь в проекте можно использовать функции, содержащиеся в модуле.

Форма приложения приведена на рисунке 1.

Рисунок 1 – Форма приложения

Текст модуля:

Unit MatFunc; Interface

Function Tg(x:real):real; //Функция вычисления тангенса

Function Ch(x:real):real; //Функция вычисления гиперболического //синуса

Function Sin2(x:real):real; //Функция вычисления квадрата синуса

Implementation

PDF created with pdfFactory Pro trial version www.pdffactory.com

Function Tg(x:real):real; begin

Result := sin(x)/cos(x); end;

Function Ch(x:real):real; begin

Result := (exp(x)-exp(-x))/2; end;

Function Sin2(x:real):real; begin

Result := sqr(sin(x)); end;

end.

Текст вызывающей программы:

Unit Unit1;

Interface

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, MatFunc;

type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Memo1: TMemo; Button1: TButton; Button2: TButton;

RadioGroup1: TRadioGroup;

Procedure FormCreate(Sender: TObject); Procedure Button1Click(Sender: TObject); Procedure Button2Click(Sender: TObject);

private

{Private declarations } public

{Public declarations }

end;

type

func = function(x:real) : real;

var

Form1: TForm1;

PDF created with pdfFactory Pro trial version www.pdffactory.com

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject); begin

Edit1.Text := '0';

Edit2.Text := '2'; Edit3.Text := '0.2'; Memo1.Clear; RadioGroup1.ItemIndex := 0;

end;

procedure Tabl(f: func; xn, xk, h: real); var

x, y : real; begin

x := xn; Repeat

y := f(x);

Form1.Memo1.Lines.Add('x=' + FloatToStrF(x,ffFixed, 8, 2) + ' y=' + FloatToStrF(y, ffFixed, 8, 2));

x := x + h; Until (x > xk);

end;

procedure TForm1.Button1Click(Sender: TObject); var

xn, xk, h : real; begin

xn := StrToFloat(Edit1.Text); xk := StrToFloat(Edit2.Text); h := StrToFloat(Edit3.Text);

Case RadioGroup1.ItemIndex of 0 : Tabl(tg, xn, xk, h);

1 : Tabl(ch, xn, xk, h);

2 : Tabl(sin2, xn, xk, h); end;

end;

procedure TForm1.Button2Click(Sender: TObject); begin

Halt; //Завершение приложения end;

end.

2. Постановка задачи

Разработать приложение, состоящее из нескольких Unit в соответствии с индивидуальным заданием.

PDF created with pdfFactory Pro trial version www.pdffactory.com

3. Задания

Решите задачу своего варианта (таблица 1). Предусмотрите возможность выбора функции, для которой будет рассчитываться таблица. Функции поместите в отдельный модуль. Вызывать выбранную функцию должна процедура, использующая в качестве входного параметра имя соответствующей функции.

Формулировка задания. Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для х изменяющихся от x0 до xn с шагом h = (xn − x0 )/ n . Близость

значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления

S(х) и Y(x).

																																								Таблица 1. Варианты заданий

№	xn	xk																							S(x)															n							Y(x)
1	2	3																						4																5								6

				x -					x3																						n				x2n+1											sin x
1	0.1	1		x -						3! + ... + (-1)																							(2n + 1)!							16						sin x
1	0.1	1																																						16

																					x2										x2n														e x + e-x
2	0.1	1								1 + 2 + .. +																					(2n)!									10						2



3	0.1	1						cos π																						cos n π										12		xcosπ						æ			π ö
3	0.1	1	1 +													4						x		+ ... +														4	xn	12	e			4		cosçxsin						÷
			1 +																			x		+ ... +															xn		e					cosçxsin						÷
										1!																								n!														è				4 ø
										1!																								n!
4	0.1	1			1 -								x2							+ ... + (-1)n																x2n				8						cos x
4	0.1	1			1 -															+ ... + (-1)n																(2n)!				8						cos x
														2!																						(2n)!
5	0.1	1				1 + 3x2 + ... +																						2n + 1									x2n			14			(1 + 2x2 )e x2
5	0.1	1				1 + 3x2 + ... +																															x2n			14			(1 + 2x2 )e x2
																															n!
								x +									x3														x2n+1														e x - e-x
6	0.1	1																					+ ... +																	8
																	3!												(2n + 1)!
																	3!												(2n + 1)!																	2
				x3									x5																		n+1 x2n+1										1 + x2												x
7	0.1	1					-											+ ... + (- 1)																						12							arctgx -
				3								15																							4n2 -1
				3								15																							4n2 -1							2										2
8	0.1	1																	2x										(2x)n											10								2x
8	0.1	1						1 + 1!																+ ... +								n!								10							e	2x
								1 + 1!																+ ... +								n!															e
9	0.1	1	x +			x3				+				1×3× x5										+ ...+		1×3×...×(2n -1)x2n+1														10					arcsin(x)

						2×3									2×4×5												2×4×...× 2n ×(2n +1)
						2×3									2×4×5												2×4×...× 2n ×(2n +1)

					x -								x3																1)			n x2n+1
10	0.1	0.5			x -									3 + ... + (-															1)					2n +1						15						arctg(x)
10	0.1	0.5																																						15						arctg(x)

									3		x2 + ... + (− 1)n																					2n				2		+ 1			æ		x	2		ö			x
11	0.1	1		1 −					3																							2n						+ 1	x2n	10	ç1	-	x			÷ cos x -			x	sin x
11	0.1	1		1 −																																			x2n	10	ç1	-				÷ cos x -				sin x
								2																									(2n)!								ç	2				÷			2
								2																									(2n)!								è	2				ø			2

PDF created with pdfFactory Pro trial version www.pdffactory.com

1	2	3																		4												5								6

12	0.1	1			−		(2x)2						+ (2x)4								− ... + (−1)n (1 + x)n											8			2(cos2 x −1)
							2									24											n
13	-2	-0.1	− (1 + x)2 + (1 + x)																4		+ ... + (−1)n (1 + x)									2n		16			ln						1
13	-2	-0.1	− (1 + x)2 + (1 + x)																		+ ... + (−1)n (1 + x)											16			ln			+ 2x					+ x2
																2											n								2			+ 2x					+ x2
					x 4x2																		n2						n				1	æ x + 1											ö
					x 4x2																		n2										1	æ x + 1											ö
14	0.2	0.8																														12		ç				sh				x	- ch x ÷
14	0.2	0.8	3! +														+ ... + (2n + 1)! x															12	4	ç				sh				x	- ch x ÷
			3! +							5!							+ ... + (2n + 1)! x																4	è		x							ø
				x2			−	x4					+ ... + (− 1)n+1													x2n
15	0.1	0.8		x2				x4																		x2n						18	xarctgx − ln											1 + x2
15	0.1	0.8	2																					2n(2n − 1)								18	xarctgx − ln											1 + x2
			2				12																	2n(2n − 1)
			æ 1				+		1					+		1				+ ... +				1							ö						ln		x +1
16	0.1	0.8	2ç																												÷	15
16	0.1	0.8	2ç						3x		3						5x	5					(2n +1)x				2n 1				÷	15							x		−1
				è x					3x								5x						(2n +1)x						+		ø								x		−1
17	-0.1	0.5							x2								x3						(−1)n xn+1									10					ln(x +1)
17	-0.1	0.5			x		− 2				+ 3 + ... +													n +1								10					ln(x +1)
					x		− 2				+ 3 + ... +													n +1
18	-1	0.2													x2						x4				xn							13					ln(1− x)
18	-1	0.2					− x				− 2 − 4 −... − n																					13					ln(1− x)
							− x				− 2 − 4 −... − n
			æ										x3					x		5				x2n+1				ö											1+ x
19	-0.5	0.5			2ç x +											+						+ ... +						÷				11					ln1− x
19	-0.5	0.5			2ç x +						3					+		5				+ ... +		2n		+1		÷				11
			è								3							5						2n		+1		ø
20	-1	3			1−				x2			+					x4	−... +					(−1)n x2n									20						sin x
																							(2n +1)!																	x
									3!								5!						(2n +1)!																	x
21	1	2								2						x4							(−1)n x2n									15								− x2
21	1	2				1− x					+						2! −... +							n!								15						e		− x2
						1− x					+						2! −... +							n!														e

PDF created with pdfFactory Pro trial version www.pdffactory.com

Соседние файлы в папке lab

#
21.03.2015163.56 Кб9Lb5_Массив.pdf
#
21.03.201580.76 Кб12Lb7_Графики_Chart.pdf
#
21.03.2015141.95 Кб7Lb_Модули.pdf
#
21.03.2015169.71 Кб10Lb_Строки.pdf
#
21.03.2015143.39 Кб15Lb_Файлы+Запись.pdf
#
21.03.2015291.02 Кб8Создание теста.pdf