Lab7 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab7" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab7"
Текст из документа "Lab7"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №7
Тема: “Процедуры и функции”
Вариант №4
Цель работы: приобрести навыки разработки программ с подпрограммами.
работу выполнил
группа ВР-1-08
проверил: Давлетчин Д.И.
Москва 2009
Постановка задачи. Сформировать матрицу C(5,5), элементы которой являются значениями определенного интеграла
Условие. Метод интегрирования – метод Веддля. f(x)=1/cos(3x)
Метод Веддля.
Метод базируется на применении к каждому из n элементарных отрезков [x1,x7] длиной h=(b-a)/n формулы:
где xi=x1+z(i-1), i=2,3,4,5,6,7, z=h/6.
.
Программа
program lab7;
uses crt;
const E=0.1;
var c,d,nx,i:integer;J1,J2:real;
t1:array [1..5,1..5] of real;
function fx(x:real):real;
begin
fx:=1/cos(3*x);
end;
function mv(a,b:real; n:integer):real;
var z,h:real;
xi:array [1..6] of real;
begin
h:=(b-a)/n;
z:=h/6;
for i:=1 to 6 do xi[i]:=a+z*i;
for i:=1 to n do mv:=mv+(3*z/10)*(fx(a)+5*fx(xi[1])+fx(xi[2])+6*fx(xi[3])+fx(xi[4])+5*fx(xi[5])+fx(xi[6]));
end;
begin
clrscr;
for c:=1 to 5 do
begin
for d:=1 to 5 do
begin
nx:=3;
repeat
begin
J1:=mv(c/20,(c+d)/20,nx);
nx:=2*nx;
J2:=mv(c/20,(c+d)/20,nx);
end;
until abs(J1-J2)<E;
t1[c,d]:=J2;
end;end;
for c:=1 to 5 do for d:=1 to 5 do writeln(t1[c,d]);
readkey
end.