Численное интегрирование методом прямоугольников (стр. 2 из 2)

ProcedureBMP, BMP2, BMP 3- Выводит 256-цветный точечный рисунок;

Zastavca-вывод заставки на экран;

Макро блок-схема комплекса

Таблица идентификаторов комплекса.

№	Переменные	тип	Значения
1	a	string	Массив для хранения пункта меню
2	Gm, gd	integer	Переход в графический режим
3	k	integer	Выбор пункта меню
4	f	text	Текстовый файл
5	n	integer	количество отрезков
6	i	integer	Параметр цикла
7	s	real	Вычисление конечного результата
8	a	real	нижний предел интегрирования
9	b	real	верхний предел интегрирования
10	x	real	Аргумент функции
11	h	real	Шаг интегрирования
12	x, y	integer	Координаты вывода меню
13	с	char	Запоминает код нажатой клавиши

Структура записей файлов.

Постановка проблемной программы (процедуры).

Проблемной программой является процедура вывода на экран 256-цветного точечного рисунка.

Описание проблемной программы.

procedureBMP; (Процедура вывода на экран 256-цветного точечного рисунка)

varf: fileofbyte; (Раздел описания переменных)

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); (Открывает файл для чтения)

fori: =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;

Блок-схема проблемной программы.

Организация производства. Комплекс технических средств, необходимый для решения задачи

Системные требования:

Операционная система MSDOS или Windows 98-XP.

Среда программирования TurboPascal 7.0.

Инструкция пользователю по работе с программой.

Для функционирования Pascal 7.0, так как приложение написано в этом режиме. Сама программа установки не требует, необходимо скопировать файлы в папку Turbo Pascal.

Запуск программы осуществляется автоматически при её открытии.

Для вычисления интеграла необходимо выбрать метод его вычисления из предложенного списка.

В ответ на приглашение к вводу значений следует ввести требуемые величины. Не стоит вводить запредельные границы интервала.

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

Заключение

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

Подводя итог своего труда, хочу сказать, что я выполнила почти все поставленные цели.

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

Список литературы

1. Немнюгин С.А. TurboPASCAL С-П Изд-во Питер 2000.

2. Фаронов В.В. TurboPascal 7.0. М. "Нолидж", 1999

3. Семакин И.Г., Шестаков А.П. Основы программирования Москва Из-во "Академия" 2007

4. Васюкова Р.Д., Практикум по основам программирования, Язык ПАСКАЛЬ, М, ВШ, 1991

5. Новичков В.С., Алгоритмические языки в техникуме, ПАСКАЛЬ, М, 1990

6. Культин Н. TurboPascal в задачах и примерах Санкт - Петербург "БХВ - Петербург" 2007

7. А.И. Марченко, Л.А. Марченко. Программирование в среде TurboPascal 7.0 Москва из-во "Юниор" 1997

8. Кирнос В.И. Язык Паскаль и численные методы. Из-во "Келеш-2030" 2004.