Курсовая работа: Разработка программы поиска решения системы дифференциальных уравнений двумя методами: Рунге-Кутта и Рунге-Кутта-Мерсона

Да Нет

j:=1,2

J:=1,2

j

j:=1,2

d[j]:=f[j]*H; y[j]:=W[j]+a[j]/2-1.5*c[j]+2*d[j];

j

Да

Нет

5.4 Блок-схема подпрограммы–процедуры moymenu

5.5 Блок-схема подпрограммы–процедуры ur

5.6 Блок-схема подпрограммы–функции f 1

5.7 Блок-схема подпрограммы– функции f 2

5.8 Блок-схема подпрограммы–процедуры CursorSize

5.9 Блок-схема подпрограммы–процедуры HiddeCursor

5.10 Блок-схема подпрограммы–процедуры NormCursor

5.9 Блок-схема подпрограммы–процедуры Spravka

5.10 Блок-схема подпрограммы–процедуры Zastavka

6. Текст исходной программы

program Kursovoy;

Uses CRT, DOS;

Const N=2;

Label 11;

Type

mas=Array[1..4] of String[60];

Const

menu:mas= ('Справка ',

'Метод Рунге-Кутта ',

'Метод Рунге-Кутта-Мерсона',

'Выход ' );

var

i,s,p:integer;

h,v,x,e1,e2,e3 : real;

y,w,k,f,e,a,c,d:array[1..10] of real;

j,d2:integer;

k2:byte;

stop:boolean;