Практическая работа №9

Тема: Настройка базы данных

Цель: научиться осуществлять настройку БД

Источники:

1. Рудаков А.В. Технологии разработки программных продуктов.- ОИЦ «Академия», 2010

2. Технологии разработки программного обеспечения/С.А.Орлов, - СПб: "Питер", 2004.

3. Бажин И.И. Информационные системы менеджмента. - М. ГУ-ВШЭ, 2000.

Оборудование: ПК, ООП, язык программирования, среда разработки.

Ход и содержание работы

Задание:

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

Составить аналитический профиль программы.

Спецификация программы:

• Название задачи: вычисление значения числового ряда

Название программы: lab5

Система программирования: Turbo Pascal 7.0

Системные требования: IBM PC/AT 286 и выше

• Входные данные:

k – целое число

• Выходные данные:

result – число типа real, результат вычислений.

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

Нужно составить программу, которая вычисляла бы значение числового ряда при заданном количестве членов (k). Удобнее сделать это, разделив процесс подсчета на два основных этапа: подсчет произведений и подсчет сумм произведений. Для этого необходимо создать соответствующие процедуру и функцию.

Спецификация переменных:

Имя переменной в программе	Назначение переменной в программе	Тип переменной	Диапазон типа
1.3k	Число, определяющее соответствующий член ряда	integer	-32768..32767
result	Число, накапливающее результат	real	2.9e-39..1.7e38
i	Вспомогательная локальная переменная-счетчик	integer	-32768..32767
multi	Вспомогательная локальная переменная, накапливающая результат.	real	2.9e-39..1.7e38

Аналитический профиль программы.

№ строки	Текст программы
	program lab5;
	>
	uses Crt;
	>
	var
	k : integer;
	result : real;
	>
	function Add(multi:real):real;
	begin
	result := result + multi;
	end; {function Add}
	procedure Multiple (k : integer);
	var
	i : integer;
	multi : real;
	begin
	multi := 1;
	for i := 1 to k-1 do
	begin
	multi := multi * sin(i);
	Add(multi);
	end;
	end; {procedure Multiple}
	begin
	ClrScr;
	Write ('Введите k ');
	Readln(k);
	result := 0;
	Multiple(k);
	Writeln ('Результат вычислений: ',result);
	end.

Профиль программы дан для k = 5

Текст программы:

program lab5;

uses Crt;

var

k : integer;

result : real;

function Add(multi:real):real;

begin

result := result + multi;

end; {function Add}

procedure Multiple (k : integer);

var

i : integer;

multi : real;

begin

multi := 1;

for i := 1 to k-1 do

begin

multi := multi * sin(i);

Add(multi);

end;

end; {procedure Multiple}

begin

ClrScr;

Write ('Введите k ');

Readln(k);

result := 0;

Multiple(k);

Writeln ('Результат вычислений: ',result);

end.

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

1. Что такое спецификация программы

2. Что такое постановка задачи

3. Что такое исходные данные задачи

4. Что такое тестирование

5. Что такое отладка программы

6. Для чего необходимо техническое задание

7. Перечислить методы тестирования, используемые в данной работе.

8. Перечислить ошибки, которые могут встретится при тестировании данной программы

9. Что такое аналитический профиль программы