Прибавления

Прибавления. Прибавление 1. Текст программы Курсовая работа по предмету Проблемно ориентированные языки программирования Выполнил ст. гр. КН 12 Заяць Д. О. include stdio.h include conio.h include graphics.h include process.h include string.h include stdlib.h include dos.h struct reccords char name200 char title200 struct reccords x char s200 FILE fil char filename int pos0 int size0 int Yes0 char s Определения количества цифр в числе S int Lenint S int a 1 if S 9 a if S 99 a if S 999 a if S 9999 a return a Рисования кнопки за указанными координатами void buttonint x, int y, int x1,int y1, int lin, int col, char qwert setfillstyle1,col setcolor15 barx, y,x1,y1 setcolor0 rectanglex, y,x1,y1 setcolor0 rectanglexlin, ylin, x1-lin, y1-lin linex, y,xlin, ylin linex1,y, x1-lin, ylin linex, y1,xlin, y1-lin setfillstyle1,0 floodfillx1-1,y1-1,0 setcolorcol rectanglex, y,x1,y1 setcolor15 settextstyle7,0,1 outtextxyxlin3,ylin2,qwert Вывод на экран главного меню void menuint nf, int of, int ad, int dl, int nr, int pr, int a, int e if nf button20,20,210,55,2,1, New File CtrlN else button20,20,210,55,2,8, New File CtrlN if of button20,60,210,95,2,1, Open File CtrlO else button20,60,210,95,2,8, Open File CtrlO if ad button20,100,210,135,2,1, Add Reccord Ins else button20,100,210,135,2,8, Add Reccord Ins if dl button20,140,210,175,2,1, Del. Reccord Del else button20,140,210,175,2,8, Del. Reccord Del if nr button20,180,210,215,2,1, Next Reccord - else button20,180,210,215,2,8, Next Reccord - if pr button20,220,210,255,2,1,Prem. Reccord - else button20,220,210,255,2,8,Prem. Reccord - if a button20,260,210,295,2,1, About F1 else button20,260,210,295,2,8, About F1 if e button20,300,210,335,2,1, Exit Esc else button20,300,210,335,2,8, Exit Esc if nf button20,20,210,55,2,1, New File CtrlN else button20,20,210,55,2,8, New File CtrlN if of button20,60,210,95,2,1, Open File CtrlO else button20,60,210,95,2,8, Open File CtrlO Функция форматированого ввода в графическом режиме int inputint x, int y, int length char c int len, i setfillstyle1,15 barx, y,x350,y20 setcolor1 settextstyle0,0,1 movetox1,y8 for i0i 40i six0 len 0 while 1 cgetch if c8 BackSpase if len0 len barx, y,x350,y20 movetox1,y8 slenx0 outtexts continue if c27 return 0 Esc if c13 return 1 Enter if c32 c Space if len length continue slenc len barx, y,x350,y20 movetox1,y8 outtexts Вывод информаций о выбранном файле void status setfillstyle7,8 bar220,20,620,460 button230,20,600,180,4,6, settextstyle0,0,1 setcolor14 moveto270,40 outtextФайл setcolor15 outtextfilename moveto270,50 setcolor14 outtextКоличество записей gcvtsize,Lensize, s setcolor15 outtexts moveto270,60 setcolor14 outtextТекущая запись gcvtpos,Lenpos, s setcolor15 outtexts setcolor14 outtextxy270,80,Название setfillstyle1,15 bar240,90,580,110 setcolor1 outtextxy250,97,x.name setcolor14 outtextxy270,128,Описаниеание bar240,140,580,160 setcolor1 outtextxy250,147,x.title Следующая запись в файле void next int i if pos size-1 pos filfopenfilename, r i0 while i pos fscanffil, s s, x.name, x.titlei status fclosefil Предыдущая запись в файле void prem int i if pos 1 pos filfopenfilename, r i0 while i pos fscanffil, s s, x.name, x.titlei fclosefil status Открыть файл void open int и menu0,0,0,0,0,0,0,0 Недоступные все кнопки меню setfillstyle7,8 bar220,20,620,460 setfillstyle1,1 bar230,150,600,190 settextstyle0,0,1 setcolor14 outtextxy230,150, Введите название файла для открытия if input240,160,80 setfillstyle7,8 bar220,20,620,460 menu1,1,0,0,0,0,1,1 return else for i0i 40i filenameix0 strcatfilename, s strcatfilename ref if filfopenfilename, rNULL putsОшибка при открытии файла exit1 size0 while fscanffil, s s, x.name, x.titleEOF size Количество записей fclosefil filfopenfilename, r fscanffil, s s, x.name, x.title pos1 status fclosefil Yes1 menu1,1,1,1,1,1,1,1 Доступные все кнопки Прибавить новую запись void add int i setfillstyle7,8 bar220,200,620,460 setfillstyle1,1 bar230,200,600,240 setcolor14 settextstyle0,0,1 outtextxy240,200,Введите название поля if input240,210,450 setfillstyle7,8 bar220,200,620,460 return for i0i strlensi x.nameisi setfillstyle1,1 bar230,260,600,300 setcolor14 outtextxy240,260,Введите описаниеание поля if input240,270,450 setfillstyle7,8 bar220,200,620,460 return for i0i strlensi x.titleisi if filfopenfilename, aNULL putsОшибка при открытии файла exit1 fprintffil, ns s, x.name, x.title fclosefil size pos1 fclosefil filfopenfilename, r fscanffil, s s, x.name, x.title setfillstyle7,8 bar220,200,620,460 status Уничтожения текущей записи void del int i FILE tempf filfopenfilename, r size0 while fscanffil, s s, x.name, x.titleEOF size Количество записей fclosefil filfopenfilename, r if size 0 i0 tempffopentemp.tmp, w while i pos-1 fscanffil, s s, x.name, x.title i fprintftempf, s sn, x.name, x.title fscanffil, s s, x.name, x.title while fscanffil, s s, x.name, x.titleEOF fprintftempf, s sn, x.name, x.title fclosefil fclosetempf removefilename renametemp.tmp, filename pos1 size fclosefil filfopenfilename, r fscanffil, s s, x.name, x.title status Создания нового файла записей void newfile int i menu0,0,0,0,0,0,0,0 setfillstyle7,8 bar220,20,620,460 setfillstyle1,9 bar230,150,600,190 settextstyle0,0,1 setcolor14 outtextxy230,150, Введите название файла для создания if input240,160,80 setfillstyle7,8 bar220,20,620,460 menu1,1,0,0,0,0,1,1 return else for i0i 40i filenameix0 strcatfilename, s strcatfilename ref if filfopenfilename, wbNULL putsОшибка при создании файла exit1 add setfillstyle7,8 bar220,20,620,460 size1 pos1 status Yes1 menu1,1,1,1,1,1,1,1 fclosefil Вывод нфоромац об авторе программы void about menu0,0,0,0,0,0,0,0 button300,100,500,300,5,1, setcolor14 settextstyle0,0,1 outtextxy310,150, Курсовая работа outtextxy310,160, с предмету outtextxy310,170, ПОМП outtextxy310,190, на тему outtextxy310,200, Личный записник outtextxy310,220, Выполнил ст. гр КН-12 outtextxy310,230, Заяць Д. О. getch if Yes menu1,1,1,1,1,1,1,1statusreturn menu1,1,0,0,0,0,1,1 setfillstyle7,8 bar220,20,620,460 Начало основной программы main char key int i int gdriver DETECT, gmode, errorcode initgraphgdriver, gmode, errorcode graphresult if errorcode grOk an error occurred printfGraphics error sn, grapherrormsgerrorcode printfPress any key to halt getch exit1 setfillstyle7,8 floodfill1,1,2 for и1и 15и setcolorиrectangleи, и,640-i,480-i Yes0 Ни один файл не открытый menu1,1,0,0,0,0,1,1 while 1 keygetch if key0 keygetch if key15 opencontinue if key14 newfilecontinue if key27 break if key75 Yes prem if key77 Yes next if key82 Yes add if key83 Yes del if key59 about closegraph.