Шифр 09. Написать программу на языке Паскаль для решения следующей задачи. Все результаты должны выводится на экран и в файл

  • ID: 51667 
  • 6 страниц

Фрагмент работы:

Содержание

Задание 3

Блок-схемы 4

Результат работы программы 5

Листинг программы 6

Задание

Вариант 09.

Написать программу на языке Паскаль для решения следующей задачи. Все результаты должны выводится на экран и в файл.

Ток в электрической цепи описывается дифференциальным уравнением: ,

которое необходимо решить, найдя y(0.25), y(0.5),..,y(1) с помощью метода Рунге-Кутта четвертого порядка. В дифференциальном уравнении k наименьший положительный корень уравнения , который необходимо найти с помощью метода половинного деления, точность .

Блок-схемы

Блок-схема программы

Метод Рунге-Кутта 4-порядка RK (var y:yy; k: real); …

Метод половинного деления function MPD: real;

Результат работы программы

Экран:

runget.txt:

Решение диф.уравнения:

k=2.0293

Листинг программы

Uses Crt;

Const h=0.25;

n=5;

eps=1e-4;

Type yy = array [0..4] of real;

Var k: real;

i: integer;

x,y: yy;

ft: text;

readln;

END.