Министерство образования Российской Федерации

Сургутский Государственный Университет

Кафедра «Информатики и вычислительной техники»

Отчет о практике

Тема: Вычислительная практика

Студент: Руководитель от университета

Девицын И.Н. ст. преподаватель

Группы 11-82 Еловой С.Г..

Сургут 2010г.

Оглавление

ОТЧЕТ О ПРАКТИКЕ 1

Задание 1. Экстремум функции 3

Задание 2. График функции в текстовом режиме 15

Задание 3. Процедурные типы 19

Задание 4. Модули 23

Задание 5. Линейный регрессионный анализ 26

Задание 6. Динамическая память в программировании графического режима 30

Все задания практики реализованы на языке программирования TurboPascal7.0.

Задание 1. Экстремум функции

1. Задание по практике

Вычислить экстремум функции с заданной точностью ε. Результаты вычисления записать в тестовый файл. Содержимое этого файла вывести на экран монитора. Привести блок-схему поиска экстремума заданным методом. Функция должна быть приведена к виду, когда на заданном интервале есть локальный максимум.

В программе должны быть следующие подпрограммы:

1. Процедура Proc1, вычисляющая экстремум с заданной точностью. Входные параметры: границы интервала [a, b], начальное значение шага Δx, точность ε. Выходные: координаты (x_e, y_e) экстремума, конечное значение шага, количество разбиений. Вызывается из главной программы

2. Функции , вычисляющая значениеВызывается в процедуреProc1.

3. Процедура Proc2 чтения тестового файла. Входной параметр: имя файла. Вызывается из главной программы.

Значение границ интервала, начальное значение шага, точность и имя файла ввести с клавиатуры в главной программе. Координаты эксремума, конечное значение шага и количество разбиений записать в файл в главной программе.

Функция: ; интервал: [0,1; 0,6]; начальное значение шага: 0,1.

Метод квадратичной интерполяции.

2. Соглашение о требованиях к программе

2.1Назначение программы:

Поиск экстремума функции методом квадратичной интерполяции с заданной точностью.

2.2Перечень функций, выполняемых программой

1. Нахождение экстремума согласно условия,

2. Запись результатов в текстовый файл,

3. Вывод содержимого текстового файла на экран.

2.3Формат входных данных:

Числовой (действительные числа с точкой):

• а, b– границы интервала,

• Eps – точность,

• h – начальное значение шага,

Алфавитно-цифровой (строка):

• имя текстового файла.

2.4Формат выходных данных:

В случае ввода неверных границ интервала на экран выводится текстовое сообщение, при правильной работе на выходе

• Xe, Ye– координаты экстремума,

• N – количество итераций.

3. Проектирование (блок-схема метода квадратичной интерполяции):

4. Реализация

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

begin

x3 := x2;

f3 := f2;

end

else

begin

x1 := x4;

f1 := f4;

end;

x2 := x4;

f2 := f4;

end

else

if x4 < x2 then

begin

x3 := x2;

f3 := f2;

end

else

begin

x1 := x4;

f1 := f4;

end;

end;

end;

until Abs(R) < Eps;

Xe:=x2;

Ye:=f(x2);

end;

procedure ReadFile(FileName: string);

{Построчный вывод на экран содержимого текстового файла}

var F: Text; S: string;

begin

Assign(F, FileName);

Reset(F);

while not EOF(F) do

begin

ReadLn(F, S);

WriteLn(S);

end;

Close(F);

end;

5. Приложения

5.1 Результаты тестовых прогонов при тестировании

6. Литература

Список литературы, использованной при разработке программы (если использовали)

program p1

procedure SqrInt

function pr

4.2Схема организации подпрограмм:

5. Приложения

5.1Результаты тестовых прогонов при тестировании:

5. Литература

1. "Оптимизация технологических процессов",

В.С. Асламова, И.В. Васильев, О.А. Засухина, Ангарск, АГТА, 2005 г.