Тема: Теплоэнергетика железнодорожного транспорта

Московский государственный университет

путей сообщения (МИИТ)

Кафедра «Теплоэнергетика железнодорожного транспорта»

Курсовая работа по информатике

Выполнила: студентка группы ТТП-111

Башкатова А.В.

Проверил: Иванов С.И.

Москва 2012

Вариант 1

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

1.Функция sin(x) определяется бесконечным рядом:

Вычислить значения sin(x) с помощью ряда (1) при изменении аргумента х в интервале [0;0.1] с шагом 0.01. результаты оформить в виде таблицы.

2. Вычислить интеграл
методом Симпсона и трапеций при различном числе точек деления интервала интегрирования (10, 20, 40, 60). Результаты оформить в виде таблицы.

3. Найти с заданной точностью все корни уравнения

на отрезке [0;0.85]. На печать выдавать полученное значение корня х.

4. Даны два одномерных массива A(n) и B(n).Элементы первого из них вычисляются по формуле: А(i)=100
*Rnd с непременным выполнением условия- каждое последующее значение должно быть меньше предыдущего. Элементы второго массива вычисляются по формуле: В(i)=

Составить третий массив из разности квадратов соответствующих элементов первых 2-х и отсортировать по возрастанию.

Задача №1

Текст программы:

input N

for x=0 to 0.1 step 0.01

u=x*x*x

p=3

c=1

s=0-u/p

for i=1 to N

c=0-c

u=u*x*x

p=p+2

s=s+c*u/p

next i

s1=sin(x)

print x, s, s1

next x

Результаты расчета:

?3

0 0 0

0.01 -0.33335333e-6 0.99998333e-2

0.02 -0.26673065e-5 0.19998667e-1

0.03 -0.90048569e-5 0.0299955

0.04 -0.2135379e-4 0.39989334e-1

0.05 -0.41729055e-4 0.49979169e-1

0.06 -0.72155121e-4 0.05996400

0.07 -0.1146683e-3 0.69942847e-1

0.08 -0.17131905e-3 0.79914694e-1

0.09 -0.24417419e-3 0.89878549e-1

0.1 -0.33531916e-3 0.99833417e-1

Блок-схема:

Задача №2

Текст программы:

print"--------------------------------------------------"

print"!количество делений! метод трапеций! метод симпсона!

print"--------------------------------------------------"

метод трапеций

a=2

b=4

input n

dx=(b-a)/n

x=a

s=0

for i=1 to n-1

x=a+dx*(i-1)

s=s+(MF(x)+MF(x+dx))*dx/2

next i

print s

метод Симпсона

a=2

b=4

input n

dx=(b-a)/n

s=MF(a)+MF(b)

c=0-1

for i=1 to n-1

x=a+dx*i

m=m+(MF(x)*(3+c))

c=0-c

next i

s=s*dx/3

print m

function MF(x)

y=(1+exp^(x))/log(x)

MF=y

end function

Результаты расчета:

----------------------------------------------------------------------------------------------------------

! количество делений ! Метод трапеций ! Метод Симпсона !

10 1.7708462 1.7743567

20 1.85037362 1.8378906

40 1.88637847 1.8574612

60 1.89838769 1.8943500

Блок-схема:

Задача №3

Программа:

input E

1 input a,b

if MF(a)*MF(b)>0 then print "выбранный интервал корней не содержит": GOTO 1

x=a

dx=(b-a)/10

2 while MF(x)*MF(x+dx)>0

x=x+dx

wend

if dx>E then dx=dx/10:goto 2

print "x=";x+dx/2

function MF(x)

y=(1/3+sin(3.6*x))-x

MF=y

end function

Результаты вычислений:

?0.05

?0

??0.85

x=0.75225

Блок-схема:

Задача №4.

Текст программы:

print "n=";

input n

dim А(n)

dim В(n)

redim R(n)

i=1

A(i)=100*n*n*rnd(1)

B(i)=sqr(n)*rnd(1)*(1/tan(1/n*n))

R(i)=a(1)*a(1)-b(1)*b(1)

print "i","A(i)","B(i)","R(i)"

print i,A(i),B(i),R(i)

for i=2 to n

A(i)=100*n*n*rnd(1)

while A(i)>A(i-1)

A(i)=100*n*n*rnd(1)

wend

B(i)=sqr(n)*rnd(1)*(1/tan(1/n*n))

while B(i)>B(i-1)

B(i)=sqr(n)*rnd(1)*(1/tan(1/n*n))

wend

R(i)=A(i)*A(i)-B(i)*B(i)

print i,A(i),B(i),R(i)

next i

for i=1 to n-1

for k=1 to n-i

if R(k)>R(k+1) then

p=R(k)

R(k)=R(k+1)

R(k+1)=p

end if

next k

next i

print"_________________________"

print "i","R(i)_sort"

print"_________________________"

for i=1 to n

print i,R(i)

next i

Результаты расчета:

n=?5

i A(i) B(i) R(i)

1 664.968145 0.63945238 442182.226

2 180.048862 0.55859521 32417.2806

3 100.629135 0.28854293 10126.1396

4 9.26564406 0.1789763 85.8201274

5 2.4894314 0.14291575 6.17684379

___________________________

i R(i)_short

_________________________

6.17684379

85.8201274

10126.1396

32417.2806

442182.226

Блок-схема:

Интернет-ресурсы:

http://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ.