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

begin

CursorSize($2000);

end;

Procedure NormCursor;

begin

CursorSize($0607);

end;

Procedure ramka (x1,y1,x2,y2:byte);

const

a=#201;

b=#205;

c=#187;

d=#186;

e=#188;

f=#200;

begin

TextColor(15);

TextBackground(4);

Clrscr;

GoToxy(x1,y1);

write(a);

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

write(c);

for i:=y1+1 to y2-1 do

begin

gotoxy(x1,i);

write(d);

Gotoxy(x2,i);

write(d);