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




НазваниеКурсовая работа по информатике
Дата конвертации26.03.2013
Размер49.79 Kb.
ТипКурсовая
Министерство Российской Федерации

по связи и информатизации

Сибирский Государственный университет телекоммуникаций и информатики

Курсовая работа


по

информатике
Вариант №22


Выполнил: sidrom

Проверил: преподаватель

Н о в о с и б и р с к 2 0 0 2




Содержание




Постановка задачи...........................................3

Программа...................................................4


Описание переменных.........................................6

Результаты..................................................7

Постановка задачи



Сила тока в любой момент времени определяется из уравнения:



Найти среднюю величину заряда, который переносится сквозь по­перечное сечение проводника за время T=1-, где c – наименьший положительный корень уравнения: .

Указание: . Дифференциальное уравнение решить мето­дом Рунге-Кутта с точностью . Уравнение решить с точностью . Интеграл вычислить по формуле трапеции.

Программа



Program kursovik;

uses crt;

const a=3;

b=4;

k=1+a/10;

l=1+b/100;

var x,y,y1,z:array [0..50] of real;

k1,k2,k3,k4,l1,l2,l3,l4,start,finish,root,step,max,pogr,t,s:real;

m,i:integer;
function y2(x,y,y1:real):real;

begin

y2:=k*y1+1/sqrt(l*sqr(y)+sqr(y1)+1);

end;
begin
clrscr;

start:=3;

y[0]:=1;

y1[0]:=0.2;

m:=1;
while abs(finish-start)>0.01 do

begin

root:=(start+finish)/2;

if (start*start*start-12*start*start+45*start-51)*(root*root*root-12*root*root+45*root-51)<0

then finish:=root else start:=root;

end;
root:=(finish+start)/2;

t:=1-root/100;
repeat

max:=0;

m:=m*2;

step:=t/m;

for i:=0 to m-1 do

begin

k1:=step*y2(x[i],y[i],y1[i]);

l1:=step*y1[i];

k2:=step*y2(x[i]+step/2,y[i]+k1/2,y1[i]+l1/2);

l2:=step*(y1[i]+l1/2);

k3:=step*y2(x[i]+step/2,y[i]+k2/2,y1[i]+l2/2);

l3:=step*(y1[i]+l2/2);

k4:=step*y2(x[i]+step,y[i]+k3,y1[i]+l3);

l4:=step*(y1[i]+l3);

y[i+1]:=y[i]+1/6*(k1+2*k2+2*k3+k4);

y1[i+1]:=y1[i]+1/6*(l1+2*l2+2*l3+l4);

x[i+1]:=x[i]+step;

end;

for i:=1 to round(m/2) do

begin

pogr:=abs(y[2*i]-z[i]);

if pogr>max then max:=pogr;

end;

for i:=1 to m do z[i]:=y[i];

until max<0.0001;
for i:=0 to m-1 do s:=s+step*(y[i]+y[i+1])/2;
writeln(' x y');
for i:=0 to m do writeln(x[i]:1:4,' ',y[i]:1:4);
writeln;

writeln('c=',root:1:4);

writeln('T=',t:1:4);

writeln('q=',s:1:4);

readln;
end.


Описание переменных



start, finish – переменные, являющиеся границами отрезка, на котором находится корень уравнения;

root – корень уравнения;

x – массив узлов;

y – массив решений;

y1 – первая производная;

k1, k2, k3, k4, l1, l2, l3, l4 – коэффициенты углов наклона;

step – шаг;

pogr – погрешность при решении дифференциального уравнения;

max – максимальное значение pogr;

s – значение интеграла;

m – количество элементов в массивах x и y.


Результаты




x y

0.0000 1.0000

0.1224 1.1162

0.2447 1.2319

0.3671 1.3482

0.4894 1.4660

0.6118 1.5862

0.7341 1.7100

0.8565 1.8384

0.9788 1.9727
c=2.1182

T=0.9788

q=1.4417

Добавить документ в свой блог или на сайт

Похожие:

Курсовая работа по информатике iconКурсовая работа по информатике. Текст к видео постановка задачи. Вариант 11 курсовая работа по информатике. Программирование в среде vba
Значения остальных исходных параметров, необходимых для расчета таблицы, постоянные – присвоить любые допустимые величины

Курсовая работа по информатике iconРабочая программа по информатике (предмет) Класс: 11 мо физико-математического цикла Учебный год
Программа реализуется на основе следующих документов: стандарта основного общего образования по информатике, примерной программы...

Курсовая работа по информатике iconРабочая программа по информатике (предмет) Класс: 10 мо физико-математического цикла Учебный год: 201 2
Программа реализуется на основе следующих документов: стандарта основного общего образования по информатике, примерной программы...

Курсовая работа по информатике iconКурсовая работа: выполнение и защита методические рекомендации
Подготовка и защита курсовой работы является одним из контрольных мероприятий при изучении профилирующих дисциплин. Курсовая работа...

Курсовая работа по информатике iconКурсовая работа является обязательным видом итогового контроля по курсу «Технологические основы социально-культурной деятельности»
Курсовая работа – это первый этап в самостоятельном теоретическом осмыслении материала, накопленного в ходе обучения в университете,...

Курсовая работа по информатике iconЛекции по курсу проводятся с целью дать слушателям знания по изучаемым темам в наиболее общем, системном виде
Егэ по информатике», «Хранение информации в компьютере. Файловая система», «Основы алгоритмизации в задачах егэ по информатике»,...

Курсовая работа по информатике iconКурсовая работа на тему: «Лидерство в управлении»
Поэтому моя курсовая работа именно на тему «Лидерство в управлении». Я постараюсь достаточно полно, ясно и интересно изложить весь...

Курсовая работа по информатике iconВнеклассное мероприятие по информатике «Самый умный по информатике»
Оборудование: компьютеры, мультимедийный проектор, экран, презентация «Самый умный по информатике», сигнальные карты, музыкальные...

Курсовая работа по информатике iconКурсовая работа Факторы, влияющие на коэффициент фертильности Курсовая работа выполнена под руководством Карпушева С. И
Для того, чтобы понять можем ли мы решить эти проблемы и если да, то как нам прежде всего нужно проанализировать от чего зависит...

Курсовая работа по информатике iconКурсовая работа для студентов 1 курса фавт заочного отделения Варианты курсовой работы выбираются в соответствии с формулой: номер варианта равен модулю разности
Требования к оформлению курсовой работы изложены в методических указаниях: информатика. Курсовая работа по теме «Разработка информационно-поисковой...

Разместите кнопку на своём сайте:
kurs.znate.ru


База данных защищена авторским правом ©kurs.znate.ru 2012
обратиться к администрации
kurs.znate.ru
Главная страница