Контрольная работа: Численное интегрирование методом прямоугольников

Добавление к конструкции служебного слова ELSEпозволяет выполнить определенные действия в случае, когда условие не выполняются.

Циклы с параметром.

При использовании цикла со счетчиком следует задать переменную-счетчик. При этом надо помнить, что тип такой переменной должен быть скалярным: Integer, Char, Boolean, перечисляемый тип.

For <начальное значение счетчика> To <конечное значение> Do<тело цикла>;

Счетчик меняется от меньшего к большему с шагом 1

For <начальное значение счетчика> Downto <конечное значение> Do <тело цикла>; Счетчик меняется от большего к меньшему с шагом - 1

Специальная часть. Общая постановка задачи

Решение задачи численного интегрирования методом прямоугольников.

Описание программ комплекса.

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

Модули:

Graph- подключение графического режима;

Crt- подключение текстового режима;

Файлы:

rezyltat. txt- результаты вычислений.

Процедуры:

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, ' '); (Устанавливает графический режим экрана)