- •Министерство образования Российской Федерации
- •Сургутский Государственный Университет
- •Кафедра «Информатики и вычислительной техники»
- •Отчет о практике
- •Задание 1. Экстремум функции
- •Задание 2. График функции в текстовом режиме
- •Задание 3. Процедурные типы
- •Задание 4. Модули
- •Задание 5. Линейный регрессионный анализ
- •Задание 6. Динамическая память в программировании графического режима
Министерство образования Российской Федерации
Сургутский Государственный Университет
Кафедра «Информатики и вычислительной техники»
Отчет о практике
Тема: Вычислительная практика
Студент: Руководитель от университета
Девицын И.Н. ст. преподаватель
Группы 11-82 Еловой С.Г..
Сургут 2010г.
Оглавление
ОТЧЕТ О ПРАКТИКЕ 1
Задание 1. Экстремум функции 3
Задание 2. График функции в текстовом режиме 15
Задание 3. Процедурные типы 19
Задание 4. Модули 23
Задание 5. Линейный регрессионный анализ 26
Задание 6. Динамическая память в программировании графического режима 30
Все задания практики реализованы на языке программирования TurboPascal7.0.
Задание 1. Экстремум функции
Задание по практике
Вычислить экстремум функции с заданной точностью ε. Результаты вычисления записать в тестовый файл. Содержимое этого файла вывести на экран монитора. Привести блок-схему поиска экстремума заданным методом. Функция должна быть приведена к виду, когда на заданном интервале есть локальный максимум.
В программе должны быть следующие подпрограммы:
Процедура Proc1, вычисляющая экстремум с заданной точностью. Входные параметры: границы интервала [a, b], начальное значение шага Δx, точность ε. Выходные: координаты (xe, ye) экстремума, конечное значение шага, количество разбиений. Вызывается из главной программы
Функции , вычисляющая значениеВызывается в процедуреProc1.
Процедура Proc2 чтения тестового файла. Входной параметр: имя файла. Вызывается из главной программы.
Значение границ интервала, начальное значение шага, точность и имя файла ввести с клавиатуры в главной программе. Координаты эксремума, конечное значение шага и количество разбиений записать в файл в главной программе.
Функция: ; интервал: [0,1; 0,6]; начальное значение шага: 0,1.
Метод квадратичной интерполяции.
Соглашение о требованиях к программе
2.1Назначение программы:
Поиск экстремума функции методом квадратичной интерполяции с заданной точностью.
2.2Перечень функций, выполняемых программой
Нахождение экстремума согласно условия,
Запись результатов в текстовый файл,
Вывод содержимого текстового файла на экран.
2.3Формат входных данных:
Числовой (действительные числа с точкой):
а, b– границы интервала,
Eps – точность,
h – начальное значение шага,
Алфавитно-цифровой (строка):
имя текстового файла.
2.4Формат выходных данных:
В случае ввода неверных границ интервала на экран выводится текстовое сообщение, при правильной работе на выходе
Xe, Ye– координаты экстремума,
N – количество итераций.
Проектирование (блок-схема метода квадратичной интерполяции):
Реализация
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.1 Результаты тестовых прогонов при тестировании
Литература
Список литературы, использованной при разработке программы (если использовали)
program
p1
procedure
SqrInt function
pr
4.2Схема организации подпрограмм:
Приложения
5.1Результаты тестовых прогонов при тестировании:
Литература
1. "Оптимизация технологических процессов",
В.С. Асламова, И.В. Васильев, О.А. Засухина, Ангарск, АГТА, 2005 г.