Решение задачи численного интегрирования методом прямоугольников.
Описание программ комплекса.
В данной программе использованы следующие программные средства:
Модули:
Graph- подключение графического режима;
Crt - подключение текстового режима;
Файлы:
rezyltat. txt - результаты вычислений.
Процедуры:
Procedure BMP, BMP2, BMP 3- Выводит 256-цветный точечный рисунок;
Zastavca-вывод заставки на экран;
 |
Макро блок-схема комплекса
Таблица идентификаторов комплекса.
| № | Переменные | тип | Значения |
| a | string | Массив для хранения пункта меню | |
| Gm, gd | integer | Переход в графический режим | |
| k | integer | Выбор пункта меню | |
| f | text | Текстовый файл | |
| n | integer | количество отрезков | |
| i | integer | Параметр цикла | |
| s | real | Вычисление конечного результата | |
| a | real | нижний предел интегрирования | |
| b | real | верхний предел интегрирования | |
| x | real | Аргумент функции | |
| h | real | Шаг интегрирования | |
| x, y | integer | Координаты вывода меню | |
| с | char | Запоминает код нажатой клавиши |
Структура записей файлов.
 |
Постановка проблемной программы (процедуры).
Проблемной программой является процедура вывода на экран 256-цветного точечного рисунка.
Описание проблемной программы.
procedure BMP; (Процедура вывода на экран 256-цветного точечного рисунка)
var f: file of byte; (Раздел описания переменных)
x,y, i,Gd,Gm: integer;
c: byte;
begin
Gd: =Detect; (Определяет тип графического режима (номер драйвера))
InitGraph (Gd, Gm, ' '); (Устанавливает графический режим экрана)
If GraphResult <> grOk Then Halt (1);
assign (f,'tityl. bmp'); (Связывает файл с файловой переменной)
reset (f); (Открывает файл для чтения)
for i: =0 to 1077 do (Переход на 1077 позицию)
read (f,c); (ввод данных)
for y: =479 downto 0 do
for x: =0 to 639 do
begin
read (f,c); (Считывает информацию с файла)
putpixel (x,y,c); (Вывод рисунка)
end;
readkey; (Ожидание нажатия клавиши)
close (f); (Закрывает файл)
closegraph; (Закрывает графический режим экрана)
end;
 |
Блок-схема проблемной программы.
Организация производства. Комплекс технических средств, необходимый для решения задачи
Системные требования:
Операционная система MS DOS или Windows 98-XP.
Среда программирования Turbo Pascal 7.0.
Инструкция пользователю по работе с программой.
Для функционирования Pascal 7.0, так как приложение написано в этом режиме. Сама программа установки не требует, необходимо скопировать файлы в папку Turbo Pascal.
Запуск программы осуществляется автоматически при её открытии.
Для вычисления интеграла необходимо выбрать метод его вычисления из предложенного списка.
В ответ на приглашение к вводу значений следует ввести требуемые величины. Не стоит вводить запредельные границы интервала.
Данная программа вычисляет значение интеграла функции. Интервал интегрирования вводятся пользователем. Программа вычислит результат и выдаст его (в числовом виде) на экран монитора.
Заключение
На мой взгляд, можно сказать, что в целом, я справилась с работой. Конечно же, не обошлось без трудностей выполнения задания, особенно было сложно написать текст программы, поскольку надеяться пришлось только на свои силы, да и к тому же с подобного рода задачей я столкнулась впервые.
Подводя итог своего труда, хочу сказать, что я выполнила почти все поставленные цели.
Программа приближенновычисляет определенный интеграл с помощью метода прямоугольников. Метод прямоугольниковобладает высокой скоростью вычисления, но меньшей точностью.
Список литературы
1. Немнюгин С.А. Turbo PASCAL С-П Изд-во Питер 2000.
2. Фаронов В.В. Turbo Pascal 7.0. М. "Нолидж", 1999
3. Семакин И.Г., Шестаков А.П. Основы программирования Москва Из-во "Академия" 2007
4. Васюкова Р.Д., Практикум по основам программирования, Язык ПАСКАЛЬ, М, ВШ, 1991
5. Новичков В.С., Алгоритмические языки в техникуме, ПАСКАЛЬ, М, 1990
6. Культин Н. Turbo Pascal в задачах и примерах Санкт - Петербург "БХВ - Петербург" 2007
7. А.И. Марченко, Л.А. Марченко. Программирование в среде Turbo Pascal 7.0 Москва из-во "Юниор" 1997
8. Кирнос В.И. Язык Паскаль и численные методы. Из-во "Келеш-2030" 2004.