програмный код

//add/dell.h
//интерфейс модуля add/del
#ifndef add/dell_h 
#define add/dell_h
#endif
//add/dell.cpp
//реализация модуля «add/del»
 int readmsg(char*s){
 puts(stdout,s);
 gets(stdin,s1);
 int i=0;
 while(s1[i]){
 if(s1[i]=='|') s1[i]=' '; ++i; };
 return i;}
 int readtot(char*s,int n){
 puts(stdout,"total:");
 n2s(n,s1);
 puts(stdout,s1);
 return readmsg(s); }//Флаг о том что что-то было изменено
 int changed;
 char*sn[6];
 void do_new0(){ int l,n;
 l=readmsg("Наименование: ");   
 if(l==0) return;
 sn[0]=new_str(s1);
 do{ n=readmsg("Количество (D): ");   
 if(n==0) return;
 }while(checknum(s1,n));   
 sn[1]=new_str(s1); l+=n;
 do{ n=readmsg("Стоимость (D.dd): ");    
 if(n==0) return;
 }while(checkfix(s1,n));       
 sn[2]=new_str(s1); l+=n;
 do{ n=readmsgДатасоздания (dd.mm.yyyy): ");
 if(n==0) return;
 }while(checkdat(s1,n));   
 sn[3]=new_str(s1); l+=n;
 do{ n=readmsg("Дата покупки (dd.mm.yyyy): ");
 if(n==0) return;
 }while(checkdat(s1,n));     
 sn[4]=new_str(s1); l+=n;
readmsg("Примечание: ");     
sn[5]=new_str(s1); l+=n;
char*s=(char*)new_mem(l+5+1);
ladd(lst,s); changed=1;
for(n=0;n<6;++n){ 
s=scopy(sn[n],s);
if(n!=5) *s++='|'; }}
void do_new(){
do_new0(); 
for(int n=0;n<6;++n){
free_mem(sn[n]);
sn[n]=0; }}
void do_del(){ int n;
do{ if(readmsg("Номер записи  ")==0) return; }
while(s2n(s1,&n)||n==0||n>lst->count);
ldel(lst,n-1); changed=1; } 
int scmp(char*s,char*d,int l){
while(l>0){
if(*s<*d) return -1;
if(*s>*d) return 1; ++s; ++d; --l; };
return 0; }
 
int cmp_num(char*s,char*d,int l){       
int n=slen(d);
if(l>n) return 0;
if(l==n&&scmp(s,d,l)>0) return 0;
return 1; }
 
int cmp_fix(char*s,char*d,int l){       
int n=slen(d); 
if(l<n) return 0;
if(l==n&&scmp(s,d,l)<0) return 0;
return 1; }
 
int cmp_dat(char*s,char*d,int l){       
l=scmp(s+6,d+6,4); if(l>0) return 0; 
if(l==0){
l=scmp(s+3,d+3,2); if(l>0) return 0;
if(l==0){
l=scmp(s+0,d+0,2);
if(l>0) return 0; }};
return 1; }

//search.h
//интерфейс модуля search
#ifndef search_h 
#define search_h
#endif
//search.cpp
//реализация модуля «search»
 
void wrquery(tlist*l){
int y=0;
for(;; ){
y=wrlist(l,y);
readtot("  1:Следующий экран * 2:Предыдущий экран *  0:Выход\n",l->count);
switch(s1[0]){
case  0:
case '0': return;
case '1': y+=23; break;
case '2': y-=23; break;
};
};
}
 
void query1(){ int n;
do{ n=readmsg("Количество <= ");
if(n==0) return; }
while(checknum(s1,n));
tlist*l=new_list();
int i=-1,k;
char*s;
while(++i<lst->count){
s=get((*lst->buf)[i],&k);
get(s,&k);
if(k>n) continue;
if(k==n&&scmp(s,s1,k)>0) continue;
ladd(l,(*lst->buf)[i]); };
if(cmp_num(s,s1,k)) ladd(l,(*lst->buf)[i]); };
wrquery(l);
l->count=0;
lfree(l); }
 
void query2(){
int n;
do{ n=readmsg("Стоимость >= "); 
if(n==0) return; }
while(checkfix(s1,n));
tlist*l=new_list();
int i=-1,k; 
char*s;
while(++i<lst->count){
s=get((*lst->buf)[i],&k);
s=get(s,&k);
get(s,&k);
if(k<n) continue;
if(k==n&&scmp(s,s1,k)<0) continue;
ladd(l,(*lst->buf)[i]); };
if(cmp_fix(s,s1,k)) ladd(l,(*lst->buf)[i]); };
wrquery(l);
l->count=0;
lfree(l); }
 
void query3(){ 
int n;
do{ n=readmsg("Дата создания <= "); 
if(n==0) return; }
while(checkdat(s1,n));
tlist*l=new_list();
int i=-1,k;
char*s;
while(++i<lst->count){
s=get((*lst->buf)[i],&k);
s=get(s,&k);
s=get(s,&k); 
get(s,&k);
k=scmp(s+6,s1+6,4);
if(k>0) continue;
if(k==0){
k=scmp(s+3,s1+3,2);
if(k>0) continue;
if(k==0){
k=scmp(s+0,s1+0,2);
if(k>0) continue; }};
ladd(l,(*lst->buf)[i]); };
if(cmp_dat(s,s1,k)) ladd(l,(*lst->buf)[i]); };
wrquery(l);
l->count=0;
lfree(l); }
 
void query4(){
int n1,n2,n3;
do{ n1=readmsg("Љ®«ЁзҐбвў® <= "); 
if(n1==0) break;}
while(checknum(s1,n1));
sn[0]=new_str(s1);
do{ n2=readmsg("‘в®Ё¬®бвм  >= ");  
if(n2==0) break;}
while(checkfix(s1,n2)); 
sn[1]=new_str(s1);
do{ n3=readmsg("„ в  б®§¤ *Ёп <= "); 
if(n3==0) break;}
while(checkdat(s1,n3));
sn[2]=new_str(s1);
tlist*l=new_list();
int i=-1,k;
            char*s,*ss;
while(++i<lst->count){
s=get((*lst->buf)[i],&k);
ss=get(s,&k);
if(n1&&!cmp_num(s,sn[0],k)) continue;
s=ss;
ss=get(s,&k);
if(n2&&!cmp_fix(s,sn[1],k)) continue;
s=ss;
get(s,&k);
if(n3&&!cmp_dat(s,sn[2],k)) continue;
ladd(l,(*lst->buf)[i]); };
wrquery(l);
l->count=0;
lfree(l);
free_sn(); }
void do_query(){
readmsg("1:Самые редкие2:Самые дорогие 3:Самые древние 4:Сложный фильтр  0:Выход");
switch(s1[0]){
case '1': query1(); break;
case '2': query2(); break;
case '3': query3(); break;
case '4': query4(); break;
};
}