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

if((fail = fopen("form.txt", "r")) == NULL)

if((fail = fopen("form.txt", "w")) == NULL)

{

clrscr();

printf("Ошибка при открытии файла");

getch();

exit;

}

fclose(fail);

//----Графическое меню-------------------------------------------------------

menu:

initgraph(&g_driver,&g_mode,"c:\\BORLAND\\bgi");

cleardevice();

setbkcolor(5);

setfillstyle(7,8); bar(0,0,getmaxx(),getmaxy());

setfillstyle(1,1); bar(200,45,465,145);

setfillstyle(1,15); bar(203,48,462,142);

setfillstyle(1,1); bar(206,51,459,139);

setcolor(11);

settextstyle(7,0,8);

outtextxy(220,40,"Menu");

setcolor(7);

settextstyle(1,0,4);

outtextxy(100,200,"1.Formyla");

outtextxy(100,240,"2.Reshenie");

outtextxy(100,280,"3.Graphic");

outtextxy(100,320," Exit");

settextstyle(2,0,5);

outtextxy(500,440,"beta ver. 101 c");