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

GoToxy(x1,y2);

write(f);

for i:=x1+1 to x2-1 do write(b);

write(e);

End;

Procedure Okno(x1,y1,x2,y2,Fcolor,Tcolor:byte);

Begin

Clrscr;

TextMode(3);

HiddeCursor;

Ramka(x1,y1,x2,y2);

Window(x1+1,y1+1,x2-1,y2-1);

TextBackground(Fcolor);

TextColor(Tcolor);

Clrscr;

Gotoxy(1,1);

End;

Procedure Zastavka;

begin

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

GoToXY(3,1);

writeln(' ');

Writeln(' Министерство образования Республики Беларусь');

Writeln(' Белорусский национальный технический университет');

GoToXY (1,6);

writeln(' Программа решения системы дифференциальных уравнений ');

writeln;

writeln;

writeln;