Численное решение дифуравнения - ПРИМЕРЫ ПРОГРАММ - ПРОГРАММИРОВАНИЕ - БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

PRIMAT.ORG
© 2008-2012

ПРИКЛАДНАЯ
МАТЕМАТИКА

Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.


	Вход

НОВОЕ В БИБЛИОТЕКЕ

● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

НОВЫЕ ФАЙЛЫ

● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор

    ЛУЧШИЕ ПУБЛИКАЦИИ

● Бухаете? Тогда я иду к в...
● Программирование под And...
● Считаем сумму ряда
● Программирование под And...
● Программирование под And...
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Матричный калькулятор (3...
● Небольшая забава для про...
● Пара интересных задач

    ЛУЧШИЕ МАТЕРИАЛЫ

● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Умножение матриц (Паскал...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Сортировка Хоара (быстра...
● Темы курсовых работ (укр...
● Теория графов плюс бонус...

    10 ЛУЧШИХ ФАЙЛОВ

● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Гмурман. Теория вероятно...
● Математические формулы
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

Конструктор информеров


	Карта тегов сайта Навигатор-карта сайта Информация о сайте Статистика сайта FAQ (вопрос/ответ)


	На сайте всего: 20 Посетителей: 20 Пользователей: 0


	БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ

[ ДОБАВИТЬ ]

Численное решение дифуравнения

Решение диф. уравнения методом Эйлера. Рассматривается диф. уравнение y'= f(x,y)

program metod_euler;
 uses crt;
 const n = 10000;
 var
 x0, y0, xk, h , x: real;
function f(x,y:real):real;
{Рассматривается диф. уравнение y'= f(x,y)}
 begin
 f:=-4*y+8*x*x+3
 {Для упражнения}
 {f:=x*sqrt(y);}
 end;
 procedure euler(x0, y0, xk:real);
 {Процедура метода Эйлера}
 var dx:real;
 begin
 dx:=(xk - x0)/n;
 repeat
 y0:=y0+dx*f(x0, y0);
 x0:=x0 + dx
 until x0 > xk;
 writeln('x = ', x0 - dx:4:2,' y = ',y0:4:2)
 end;
Begin
 clrscr;
 write('Введите x0 ');readln(x0);
 write('Введите y0 ');readln(y0);
 write('Введите xk ');readln(xk);
 writeln('Начальные условия');
 writeln('x0 = ',x0:4:2,' y0 = ',y0:4:2);
 h:=(xk - x0)/5; x:=x0;
 writeln('Таблица для пяти промежуточных точек');
 repeat
 x:=x+h;
 euler(x0, y0, x);
 until abs(x-xk)<h/2;
 writeln('Конец расчета');
 readln
End.

Просмотров [ 640 ] ● 18.08.10 ● Рейтинг [ 80% ]

Комментариев: [ 0 ]


	Украинская Баннерная Сеть

Ваше Имя