Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Пример выполнения работы. Условие: Вычислить методом итераций значение интеграла для а=0; b=p; k=0,5, разбивая отрезок интегрирования на 60 частей




 

Условие: Вычислить методом итераций значение интеграла для а=0; b=p; k=0,5, разбивая отрезок интегрирования на 60 частей. Для контроля вычислить точное значение интеграла и оценить относительную погрешность метода.

Вычислить точное значение интеграла. Для |k|£0,9 .

Программа:

{Лабораторная работа №4}

{Программирование алгоритмов циклической структуры}

{с заданным числом повторений}

{Выполнена Ф.И.О.}

{Группа }

program lab4;

uses crt;

var a,b,k,x,za,zb,z,zt,dz,dx:real;

n,i:integer;

begin

clrscr;

writeln('Введите значение левого конца интервала’);

write(’интегрирования a=');

readln(a);

writeln('Введите значение правого конца интервала’);

write(’интегрирования b=');

readln(b);

writeln('Введите число разбиений отрезка’);

write(’интегрирования n=');

readln(n);

k:=0.5;

za:=sqr(sin(a))/(1+2*k*cos(a)+k*k);

zb:=sqr(sin(b))/(1+2*k*cos(b)+k*k);

z:=(za+zb)/2;

dx:=(b-a)/n;

x:=a;

for i:=1 to n-1 do

begin

x:=x+dx;

z:=z+sqr(sin(x))/(1+2*k*cos(x)+k*k);

end;

z:=z*dx;

zt:=pi/2;

dz:=abs(zt-z)*100;

writeln;

writeln('Приближенное значение интеграла

z=',z:9:5);

writeln('Точное значение интеграла zt=',zt:9:5);

writeln('Относительная погрешность dz=',dz:9:5);

end.

Результат выполнения программы:

Введите значение левого конца интервала

интегрирования a=0

Введите значение правого конца интервала

интегрирования b=3.14

Введите число разбиений отрезка

интегрирования n=60

 

Приближенное значение интеграла z= 1.57079

Точное значение интеграла zt= 1.57080

Относительная погрешность dz= 0.00029

 

Контрольные вопросы

 

1. Указать отличия в организации циклов с заданным числом повторений и итерационных.

2. Какие средства языка целесообразно использовать для организации циклов с заданным числом повторений?

3. Почему при программировании формулы трапеций т прямоугольников индексированные переменные xi и f(xi) можно заменить простыми переменными?

4. Почему начальное значение суммы по формуле трапеции принимается не равное нулю, а по формуле прямоугольников – равное нулю?

5. Указать, какие операторы составляют тело цикла.

6. В чем состоят преимущества использования операторов цикла в программах?

 

 

Лабораторная работа №5 «Обработка одномерных массивов»

 

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

 

Задание к работе

 

Обработать массив в соответствии с вариантом задания, указанного в табл.7.

 

Таблица 7

Вариант задания Массив Действия Условия и ограничения
  X(100) Вычислить сумму и количество положительных элементов массива Х 0£xi£1
  A(80) Вычислить среднее арифметическое значение элементов массива А ai>0
  X(70) Переписать элементы массива Х в массив Y и подсчитать количество положительных элементов -1£xi£1
  B(50) Определить максимальный элемент массива В и его порядковый номер xi>0
  C(40) Определить минимальный элемент массива С и его порядковый номер xi<0
  D(80) Найти максимальный и минимальный элементы массива D и поменять их местами -
  Y(20) Вычислить среднее геометрическое элементов массива Y yi>0
  Z(30) Расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z -
  N(50) Определить сумму элементов массива N, кратных трем ni/3*3=ni
  X(N) Вычислить сумму и количество четных элементов массива Х xi>0, N£30
  A(N) Найти среднее геометрическое элементов массива А ai>0, N£50
  X(N) Переписать в массив Y подряд положительные элементы массива Х xi>0, N£40
  X(N) Переписать подряд в массив Y положительные, а в массив Z отрицательные элементы массива Х N£40
  B(K) Определить максимальный элемент массива В и его порядковый номер xi<0, K£40
  C(K) Определить минимальный элемент массива С и его порядковый номер -1£xi£1, K£20

 




Поделиться с друзьями:


Дата добавления: 2014-12-25; Просмотров: 499; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.014 сек.