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

writeln(' Курсовая работа ');

writeln(' по дисциплине "Информатика" ');

GoToXY(1,15);

Writeln(' Исполнитель: Неверовская Я.Б') ;

writeln(' гр.102826 ');

writeln(' Руководитель: Петренко С.М.');

writeln;

writeln;

writeln(' Минск 2008');

Window(0,0,80,25);

gotoxy(40,23);

TextColor(15);

gotoxy(1,79);

writeln(' Для продолжения нажмите любую клавишу... ');

repeat until keypressed;

while keypressed do c1:=readkey;

clrscr;

End;

Procedure Spravka;

var

ch:char;

Begin

Okno(1,1,79,23,3,15);

Writeln(' СПРАВКА ' );

Writeln;

Writeln(' Данная программа позволяет найти решения системы дифференциальных уравнений. ') ;

Writeln(' В частности системы уравнений:');

Writeln(' y`1=y1+y2-x1*x1+x1-2 ');

Writeln(' y`2=-2*y1+4*y2+2*x1*x1-4*x1-7 ');