Текст программы:
#include
#include
#include
#include
#include
struct PL //Задание структурных переменных
{ char namepl[18]; int year; char people[15]; unsigned int sputnik;
PL *prev;
PL *next;
};
void menu1() //Функция главного меню
{ clrscr(); printf("nt?------------------------------------------------------------
?n"); printf( "t| |
"); puts( "nt| К А Р Т О Т Е К А П Л А Н Е Т
|n");
" t |tt С О Л Н Е Ч Н О Й С И С Т Е М Ы |
"); puts( "t?------------------------------------------------------------?
"); puts("ntt Главное меню :n"); puts("tt 1- Рекомендации пользователю."); puts("tt 2- Ввод данных."); puts("tt 3- Вывод всех данных."); puts("tt 4- Просмотр, удаление, добавление."); puts("tt 5- Вывод данных по определенному признаку."); puts("tt 6- Сортировка."); puts("tt 7- Выход.");
}
void menu2() //Меню поиска элементов
{ puts("nnnnttt Меню поиска:n"); puts("ttt 1- Вывод по названию планеты."); puts("ttt 2- Вывод по году открытия."); puts("nnnnnnnnnnnnnnnt Для выхода в главное меню нажмите любую клавишу.");
}
void sovet(char *s) //Функция подсказки
{ window(1,25,79,25); textcolor(GREEN+BLUE); textbackground(WHITE+YELLOW);
clrscr(); cprintf(" %s",s); textcolor(10); window(1,1,79,25); textbackground(0);
}
void vvod(PL *pla) //Функция ввода структуры
{ do
{ clrscr(); puts("Введите имя планеты :"); fflush(stdin); gets(pla->namepl);
} while(strlen(pla->namepl)>18); do
{ puts("Год открытия планеты :"); scanf("%d",&(pla->year));
} while((pla->year)year)>30000); do
{ puts("Кто открыл планету :"); fflush(stdin); gets(pla->people);
} while(strlen(pla->people)>15); do
{ puts("Сколько спутников ?"); scanf("%d",&(pla->sputnik));
} while(((pla->sputnik)sputnik)>999));
}
PL* vvodall() //Функция ввода структур
{
PL *playn, *pla; clrscr(); sovet("Введите параметры планеты"); pla=(PL*)malloc(sizeof(PL)); vvod(pla); playn=pla; pla->next=NULL; sovet("Для дальнейщего ввода нажми y, иначе любую клавишу.");
while (getch()=='y')
{ clrscr(); sovet("Введите параметры планеты"); pla=(PL*)malloc(sizeof(PL)); vvod(pla); playn->prev=pla; pla->next=playn; playn=pla; sovet("Для дальнейщего ввода нажми y, иначе любую клавишу.");
} pla->prev=NULL; while (pla->next) pla=pla->next; return(pla);
}
void vivodall(PL *pla) //Функция вывода на экран всех структур
{ int i=1; puts("nttt В С Я К А Р Т О Т Е К Аn"); printf("+------+-----------------+------------+---------------+-----------
+n"); printf("| Номер| Название | Когда | Кто открыл | Кол-во
|n"); printf("| стр. | планеты | открыли | планету | спутников
|n"); printf("+------+-----------------+------------+---------------+-----------
+n"); printf("+------+-----------------+------------+---------------+-----------
+n"); while (pla->prev)
{ printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); pla=pla->prev; i++;
} printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); printf("+------+-----------------+------------+---------------+-----------
+"); gotoxy(22,24); puts("Вывод закончен, нажмите любую клавишу."); getch();
}
void spisok(PL* pla) //Функция для работы со списком
{ clrscr(); window(17,2,62,15); textbackground(4); textcolor(15); clrscr(); if (pla!=NULL)
{ cprintf("n"); cprintf("%30s","ПАРАМЕТРЫ ПЛАНЕТnn"); gotoxy(1,wherey()+2); cprintf(" Название: %s",pla->namepl); gotoxy(1,wherey()+2); cprintf(" Год открытия: %d",pla->year); gotoxy(1,wherey()+2); cprintf(" Кто открыл: %s",pla->people); gotoxy(1,wherey()+2); cprintf(" Сколько спутников: %d",pla->sputnik);
} textbackground(2); sovet("Cледующая/Предыдущая планета(PgDn/PgUp)"
"Удаление(Del)""Добавление(Ins)""Выход(Esc)");
}
PL* vvodspisok(PL* pla) //Функция ввода элементов списка
{
PL* plr=pla; char c; sovet("Добавить элемент до / после текущего(Home/End)"
"Отмена(Esc)"); do
{ c=getch();
/*Esc*/ if (c==27) return(pla); if (c==71||c==79)
{ clrscr(); sovet("Введите параметры планеты"); plr=(PL*)malloc(sizeof(PL)); vvod(plr); if (pla==NULL)
{ plr->next=NULL; plr->prev=NULL; return(plr);
}
/*End*/ if (c==79)
{ plr->next=pla->next; plr->prev=pla; pla->next=plr;
(plr->next)->prev=plr;
}
/*Home*/if (c==71)
{ plr->next=pla; plr->prev=pla->prev; pla->prev=plr;
(plr->prev)->next=plr;
} return(plr);
}
} while(1);
}
PL* vozvr(PL* pla) //Возвращает указатель
{ //на начало списка pla if (pla==NULL) return(pla); while(pla->next!=NULL) pla=pla->next; return(pla);
}
PL* korrekt(PL *pla) //Управляющие клавиши при работе со списком
{ spisok(pla);
PL* delit(PL*); do
{ switch(getch())
{
/*PgUp*/ case 73:if(pla!=NULL)
{ if(pla->prev!=NULL)pla=pla->prev;spisok(pla);
} break;
/*PgDn*/ case 81:if(pla!=NULL)
{ if(pla->next!=NULL)pla=pla->next;spisok(pla);
} break;
/*Del*/ case 83:if(pla!=NULL)
{ pla=delit(pla); spisok(pla);
} break;
/*Ins*/ case 82:pla=vvodspisok(pla); spisok(pla); break;
/*Esc*/ case 27:pla=vozvr(pla); return(pla);
}
}
while(1);
}
PL* delit(PL* pla) //Функция удаления элементов из списка
{
PL* plr=NULL; if(pla->prev!=NULL)
{
(pla->prev)->next=pla->next; plr=pla->prev;
} if(pla->next!=NULL)
{
(pla->next)->prev=pla->prev; plr=pla->next;
} free(pla); return(plr);
}
void poisk1(PL *pla) //Функция поиска по названиям планет
{ char s[15],ch; do
{ int i=1,l=0; clrscr(); fflush(stdin); puts("Введите интерессующее вас название планеты :"); gets(s); printf("nn Планеты с названием %s :n",s); printf("+------+-----------------+------------+---------------+---------
--+n"); printf("|Номер | Название | Когда | Кто открыл | Кол-во
|n"); printf("| стр. | планеты | открыли | планету | спутников
|n"); printf("+------+-----------------+------------+---------------+-----------
+n"); printf("+------+-----------------+------------+---------------+-----------
+n"); while (pla->prev)
{ if(strcmpi(pla->namepl,s)==0)
{ printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); l++;i++;
} pla=pla->prev;
} if (strcmpi(pla->namepl,s)==0)
{ printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); l++;i++; } puts("+------+-----------------+------------+-----------------+-------------
+"); printf("n Найдено %d планет.n",l); puts(" Поиск по названиям планет завершен. Продолжить?(y- да)"); fflush(stdin); ch=getch();
} while(ch=='y');
}
void poisk2(PL *pla) //Функция поиска по годам открытия
{ char ch; do
{ int i=1,l=0,a,b; clrscr(); fflush(stdin); puts("Введите интерессующее вас границы поиска (от чего- то до чего- то) :"); while(scanf("%d%d",&a,&b)!=2)
{ while (getchar()!='n'); printf("Все- таки стоит здесь что- нибудь ввестиn(от a до b)n");
}
printf("nn Планеты открытые в таком диапозоне(с %d до %d года):n",a,b); printf("+------+-----------------+------------+---------------+-----------
+n"); printf("|Номер | Название | Когда | Кто открыл | Кол-во
|n"); printf("| стр. | планеты | открыли | планету | спутников
|n"); printf("+------+-----------------+------------+---------------+-----------
+n"); printf("+------+-----------------+------------+---------------+-----------
+n"); while(pla->prev)
{ if((ayear)&&(b>=pla->year))
{ printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); l++;i++;
} pla=pla->prev;
} if((ayear)&&(b>=pla->year))
{ printf("| %5d | %18s | %12u | %15s | %11u | ",i,pla->namepl, pla->year,pla->people,pla->sputnik); l++;i++;
} puts("+------+-----------------+------------+---------------+-----------
+"); printf("n Найдено %d планет.n",l); puts(" Поиск по годам открытия планет завершен. Продолжить?(y- да)"); fflush(stdin); ch=getch();
} while(ch=='y');
}
void klear(PL* pla) //Функция очистки памяти
{
PL *plr; if (pla)
{ if (pla->prev)
{ plr=pla->prev; while (plr->prev)
{ free(plr->next); plr=plr->prev;
}
} else plr=pla; free(plr);
}
}
char * fname() //Функция ввода имени файла
{ char *t; t=(char *)malloc(80*sizeof(char)); cprintf("Введите имя файла: n"); fflush(stdin); scanf("%79s",t); return t;
}
int save1(PL *pla,char *filename) //Функция, сохраняющая данные
{
FILE *fp; if((fp=fopen(filename,"w"))==NULL) return 0; while(pla)
{ fprintf(fp,"%s %d %s %d |", pla->namepl,pla->year,pla->people,pla->sputnik); pla=pla->prev;
} fclose(fp); return 1;
}
int save(PL *pla) //Функция для сохранения данных
{ char * name; window(1,1,79,25); clrscr(); name=fname(); if (save1(pla,name)==1) return 1; cprintf("nНевозможно произвести запись!!!"); sovet("Ошибка!!! Нажмите любую кнопку"); getch(); return 0;
}
PL *load(PL *pla) //Функция загрузки данных из файла
{ char c,*name; int i;
PL *plan=NULL,*plane=NULL;
FILE *fp; window(1,1,79,25); clrscr(); name=fname(); cprintf("Осуществлять чтение? (y-Да , n-Нет)n"); do c=getch(); while((c!='y')&&(c!='n')); if (c=='n') return (pla); if((fp=fopen(name,"rt"))==NULL)
{ klear(pla); cprintf("nОшибка при открытии файла!!!"); sovet("Ошибка!!! Нажмите любую кнопку"); getch(); return (NULL);
} plane=(PL*)malloc(sizeof(PL)); while (fscanf(fp,"%s %d %s %d |", plane->namepl,&(plane->year),plane->people,&(plane->sputnik))==4)
{ plane->prev=NULL; plane->next=plan; if (plan!=NULL) plan->prev=plane; plan=plane; plane=(PL*)malloc(sizeof(PL));
} free(plane); if (plan!=NULL)
{ while(plan->next) plan=plan->next;
} fclose(fp); klear(pla); return (plan);
}
/*Функция сортировки по алфавиту*/
PL *sort(PL *pla)
{
PL *point,*tmp=NULL,*f,*s; int i,j,srav;
//Указатель на начало f=pla; point=pla;
while(f!=NULL)
{ s=f->next; while(s!=NULL)
{ if((strcmp(f->namepl,s->namepl)>0))
{ tmp=(PL*)malloc(sizeof(PL)); strcpy(tmp->namepl,f->namepl); tmp->year=f->year; strcpy(tmp->people,f->people); tmp->sputnik,f->sputnik;
// strcpy(f->namepl,s->namepl); f->year=s->year; strcpy(f->people,s->people); f->sputnik=s->sputnik;
// strcpy(s->namepl,tmp->namepl); s->year=tmp->year; strcpy(s->people,tmp->people); s->sputnik=tmp->sputnik; free(tmp);
} s=s->next;
} strcpy(point->namepl,f->namepl); point->year=f->year; strcpy(point->people,f->people); point->sputnik=f->sputnik; point=point->next; f=f->next;
} point=pla; return(point);
}
void main()
{ char ccc,hhh,ch; int i;
PL* planet=NULL; planet->prev=planet->next=NULL;
_setcursortype(_NOCURSOR); textcolor(10); menu1(); do
{ do
{ fflush(stdin); switch(ccc=getch())
{ case '1':
{ clrscr(); printf("ttt Рекомендации пользователю :nn"
"Эта программа- это подобие электронной базы данных. Программа работает, "
"nиспользуя массивы в памяти ЭВМ для хранения информации введенной пользователем."
"nДанные могут вводиться с клавиатуры или загружаться из файла."
"Также можно вывестина экран всю картотеку или же просматривать картотеку по карточкам,"
" с возмож- ностью добавления или удаления некоторых карточек по выбору."
" Программа имеет хороший интерфейс и показывает устойчивую работу."
" В программе имеется поиск элементов по заданным условиям, а также сортировка планет по названиям."
" В программе есть главное меню и подменю для поиска планет по некоторым признакам."
" Желательно, чтобы данные были точные, корректно записанные и касающиеся"
"n непосредственно темы данной лабораторной работы."); puts("nnnnnttДля перехода в главное меню нажмите любую клавишу..."); getch();
menu1(); break;
} case '2':
{ free(planet); planet=NULL; planet->prev=planet->next=NULL; clrscr(); puts("Это новая база данных?(да-y/ нет-n) "); do
{ fflush(stdin);scanf ("%c", &ch);
printf ("tВведите символ(да- y / нет- n) ");
} while (ch!='n' && ch!='y'&& ch!='Y'&& ch!='N'); if (ch=='y'|| ch=='Y')
{ clrscr(); planet=vvodall(); clrscr(); puts("nnЗаписать в файл (да-y/нет-n)?"); do
{ fflush(stdin); scanf ("%c", &ch); printf ("Введите символ(да- y / нет- n)n ");
} while (ch!='n' && ch!='y'&& ch!='Y'&& ch!='N'); if (ch=='Y'|| ch=='y')
{ save(planet); puts("nnnnntt Запись данных закончена! Нажмите любую клавишу."); getch();
}
} else planet=load(planet); menu1(); continue;
} case '3':
{ if(planet!=NULL)
{ clrscr(); vivodall(planet); menu1(); continue;
} break;
} case '4':
{ free(planet); planet=korrekt(planet); menu1(); break;
} case '5':
{ if(planet!=NULL)
{ clrscr(); menu2(); switch(hhh=getch())
{ case '1':
{ poisk1(planet); menu1(); continue;
} case '2':
{ poisk2(planet); menu1(); continue;
} default : menu1();
} menu1(); continue;
} break;
} case '6':
{ if(planet!=NULL)
{ clrscr(); i=5; puts("nnnntt Идет сортировка по названию планеты."); while(i