общая сумма,среднее значение в базе данных

program kursovaya;
uses crt;
type tinf=record
            marka,model,matr,displ,ves,obj,nosit,svjaz,format,cena:string;
          end;
list=^Tlist;
Tlist=record
      data:Tinf;
      next:List;
      end;
var znom:tinf;
    zn:string;
    spis:list;
    str:string;
    i,j:integer;
    ch:char;
    f,g:text;
    h:file of char;
 
 
 
procedure addelem(var spis1:list;znom1:Tinf);
var tmp:list;
begin
if spis1=nil then
begin
getmem(spis1,sizeof(Tlist));
tmp:=spis1;
end
else
begin
tmp:=spis1;
while tmp^.next<>nil do
tmp:=tmp^.next;
getmem(tmp^.next,sizeof(tlist));
tmp:=tmp^.next;
end;
tmp^.next:=nil;
tmp^.data:=znom1;
end;
 
procedure files(var spis1:list);
var tmp:list;
begin
if spis1=nil then begin writeln('Список пуст');
exit;
end
else
tmp:=spis1;
while tmp<>nil do
begin
writeln(g,tmp^.data.marka,' ',tmp^.data.model,' ',tmp^.data.matr,' ',tmp^.data.displ,' ',
           tmp^.data.ves,' ',tmp^.data.obj,' ',tmp^.data.nosit,' ',tmp^.data.svjaz,' ',
           tmp^.data.format,' ',tmp^.data.cena);
tmp:=tmp^.next;
end;
end;
 
procedure vivod(spis1:list);
begin
  writeln;
  if spis1=nil then
    begin
      writeln('Список пуст');
      exit;
    end;
  writeln('---------------------------------------------------------------------------------------------------------------------- ');
  writeln('Марка|Модель| Матрица|Дисплей|Вес  |Вспышка|Носитель|Связь|Формат|Цена|');
  while spis1<>nil do
    begin
      begin
 
        gotoxy(1,whereY);write('|’,spis1^.data.marka);
        gotoxY(9,whereY);write('|’,spis1^.data.model);
        gotoxy(18,whereY);write('|’,spis1^.data.matr);
        gotoxy(26,whereY);write('|’,spis1^.data.displ);
        gotoxy(34,wherey);write('|’,spis1^.data.ves);
        gotoxy(39,wherey);write('|’,spis1^.data.obj);
        gotoxy(48,wherey);write('|’,spis1^.data.nosit);
        gotoxy(58,wherey);write('|’,spis1^.data.svjaz);
        gotoxy(65,wherey);write('|’,spis1^.data.format);
        gotoxy(73,wherey);write('|’,spis1^.data.cena);
        gotoxy(80,whereY);writeln('|');
      end;
     spis1:=spis1^.next;
    end;
  writeln;
end;
 
procedure freestek(spis1:list);
var tmp:list;
begin
while spis<>nil do
begin
tmp:=spis1;
spis1:=spis1^.next;
freemem(tmp,sizeof(tlist));
end;
end;
 
procedure poisk(spis1:list;znom1:string);
begin
while (spis1<>nil) do
begin
if spis1^.data.marka=znom1 then
writeln(spis1^.data.marka,' ',spis1^.data.model,' ',spis1^.data.matr,' ',spis1^.data.displ,' ',spis1^.data.ves,' ',
        spis1^.data.obj,' ',spis1^.data.nosit,' ',spis1^.data.svjaz,' ',spis1^.data.format,' ',spis1^.data.cena);
spis1:=spis^.next;
end;
writeln;
end;
 
procedure delelem(var spis1:list;tmp:list);
var tmpi:list;
begin
if (spis1=nil) or (tmp=nil) then exit;
if tmp=spis1 then
begin
spis1:=tmp^.next;
freemem(tmp,sizeof(tlist));
end
else
begin
tmpi:=spis1;
while tmpi^.next<>tmp do
tmpi:=tmpi^.next;
tmpi^.next:=tmp^.next;
freemem(tmp, sizeof(tlist));
end;
end;
 
procedure delete(var spis1:list;posi:integer);
var i:integer; tmp:list;
begin
if posi<1 then
exit;
if spis1=nil then
begin
writeln('Список пуст');
exit
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i)
end;
delelem(spis1,tmp);
end;
 
procedure sortirovka(nom:list);
var tmp,rab:list;
    tmps:tinf;
begin
getmem(tmp,sizeof(tlist));
rab:=nom;
while rab<>nil do
begin
tmp:=rab^.next;
while tmp<>nil do
begin
if tmp^.data.marka<rab^.data.marka then
begin
tmps:=tmp^.data;
tmp^.data:=rab^.data;
rab^.data:=tmps;
end;
tmp:=tmp^.next
end;
rab:=rab^.next
end;
end;
 
procedure redmodel(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('Список пуст');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('Введите модель');
readln(st);
tmp^.data.model:=st;
end;
 
procedure redmatr(var spis1:list; posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('Список пуст');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('Введите параметры матрицы’);
readln(st);
tmp^.data.matr:=st;
end;
 
procedure reddispl(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('Список пуст');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln(‘Введите параметры дисплея’);
readln(st);
tmp^.data.displ:=st;
end;
 
procedure redmarka(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write(‘Список пуст');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('Введите марку');
readln(st);
tmp^.data.marka:=st;
end;
 
procedure redves(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
      begin
        write('懐ㄡ 徕');
      end;
     i:=1;
     tmp:=spis1;
     while(tmp<>nil) and (i<>posi) do
       begin
         tmp:=tmp^.next;
         inc(i);
 
       end;
     writeln('偄イㄢ?ⅴ?');
     readln(st);
     tmp^.data.ves:=st;
end;
 
procedure redobj(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
    begin
      write('懐ㄡ 徕');
    end;
  i:=1;
  tmp:=spis1;
  while (tmp<>nil) and (i<>posi) do
    begin
      tmp:=tmp^.next;
      inc(i);
    end;
  writeln('偄イㄢ?瓲绋?⑨瑾?');
  readln(st);
  tmp^.data.obj:=st;
end;
 
procedure rednosit(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
    begin
      write('懐ㄡ 徕');
    end;
  i:=1;
  tmp:=spis1;
  while (tmp<>nil) and (i<>posi) do
    begin
      tmp:=tmp^.next;
      inc(i);
    end;
  writeln('偄イㄢ?猕?屺猊:');
  readln(st);
  tmp^.data.obj:=st;
end;
 
procedure redsvjaz(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
    begin
      write('懐ㄡ 徕');
    end;
  i:=1;
  tmp:=spis1;
  while (tmp<>nil) and (i<>posi) do
    begin
      tmp:=tmp^.next;
      inc(i);
    end;
  writeln('偄イㄢ?猕?幄铵??む. 汜忄徕:');
  readln(st);
  tmp^.data.svjaz:=st;
end;
 
procedure redformat(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
    begin
      write('懐ㄡ 徕');
    end;
  i:=1;
  tmp:=spis1;
  while (tmp<>nil) and (i<>posi) do
    begin
      tmp:=tmp^.next;
      inc(i);
    end;
  writeln('偄イㄢ?ぎ徕惘?洚喱犫 岘ì?');
  readln(st);
  tmp^.data.format:=st;
end;
 
 
 
procedure redcena(var spis1:list;posi:integer);
var i:integer;
    tmp:list;
    st:string;
begin
  if posi<1 then exit;
  if spis1=nil then
    begin
      write('懐ㄡ 徕');
    end;
  i:=1;
  tmp:=spis1;
  while (tmp<>nil) and (i<>posi) do
    begin
      tmp:=tmp^.next;
      inc(i);
    end;
  writeln('偄イㄢ?妤:');
  readln(st);
  tmp^.data.cena:=st;
end;
 
begin
spis:=nil;
clrscr;
assign(f,'C:\files.txt');
reset(f);
while not eof(f) do begin
readln(f,str);
znom.marka:=copy(str,1,6);
znom.model:=copy(str,8,4);
znom.matr:=copy(str,14,5);
znom.displ:=copy(str,19,2);
addelem(spis,znom);
end;
repeat
 writeln('1-劗キē 慝ガキ鉅');
 writeln('2-傠?);
 writeln('3-懏噔ㄠ獱');
 writeln('4-clrscr');
 writeln('5-彯ㄡ?);
 writeln('6-摛牜キē');
 writeln('7-惀ㄠ牠ē');
 writeln('8-嚑釥忪 ?錉┇');
 writeln('9-椻キē ě 錉┇?);
 writeln('0-傠瀹?);
 readln(ch);
 case ch of
       '1':begin
            writeln('偄イㄢ?瑺嗒?');
            readln(znom.marka);
            writeln('偄イㄢ?ぅ:');
            readln(znom.model);
            writeln('偄イㄢ?癄酄忄?瑺忄ㄦ?');
            readln(znom.matr);
            writeln('偄イㄢ?癄酄忄?え岑?');
            readln(znom.displ);
            writeln('偄イㄢ?ⅴ?');
            readln(znom.ves);
            writeln('偄イㄢ?瓲绋?⑨瑾?');
            readln(znom.obj);
            writeln('偄イㄢ?猕?屺猊:');
            readln(znom.nosit);
            writeln('偄イㄢ?猕?幄铵??む.汜忄徕:');
            readln(znom.svjaz);
            writeln('偄イㄢ?ぎ徕惘?洚喱犫 岘ì?');
            readln(znom.format);
            writeln('偄イㄢ?妤:');
            readln(znom.cena);
            addelem(spis,znom);
           end;
       '2':begin
                 clrscr;
                 vivod(spis);
           end;
       '3':begin
                 sortirovka(spis);
           end;
       '4':begin clrscr;
           end;
       '5':begin
                 if spis=nil then
                 writeln('懐ㄡ 徕')
                 else
                 begin
                 writeln('偄イㄢ?瑺嗒?);
                 readln(str);
                 poisk(spis,str);
                 end;
           end;
       '6':begin
                 writeln('偄イㄢ??慝ガキ鉅, 猱嚯?瓲ぎ 悚牜ㄢ?);
                 readln(i);
                 writeln('椻?㈦ 瀹猕猊 啷ㄠ犫?',
                 ' 1-尃嗒?2-尞ぅ,3-尃忄ㄦ?4-劏岑?5-偉?6-傖瑾?7-嵁屺猊,8-憿铵?9-敭喱犫,10-枼瓲');
                 readln(j);
                 case j of
                 1:begin
                 redmarka(spis,i);
                 end;
                 2:begin redmodel(spis,i);end;
                 3:begin redmatr(spis,i);end;
                 4:begin reddispl(spis,i);end;
                 5:begin redves(spis,i);end;
                 6:begin redobj(spis,i);end;
                 7:begin rednosit(spis,i);end;
                 8:begin redsvjaz(spis,i);end;
                 9:begin redformat(spis,i);end;
                 10:begin redcena(spis,i);end;
                 end;
           end;
       '7':begin
                 writeln('偄イㄢ??慝ガキ鉅, 猱嚯?瀹猕猊 啷ㄠ犫?);
                 readln(i);
                 writeln('椻?㈦ 瀹猕猊 啷ㄠ犫?',
                 ' 1-尃嗒?2-尞ぅ,3-尃忄ㄦ?4-劏岑?5-偉?6-傖瑾?7-嵁屺猊,8-憿铵?9-敭喱犫,10-枼瓲');
                 readln(j);
                 case j of
                 1:begin
                 redmarka(spis,i);
                 end;
                 2:begin redmodel(spis,i);end;
                 3:begin redmatr(spis,i);end;
                 4:begin reddispl(spis,i);end;
                 5:begin redves(spis,i);end;
                 6:begin redobj(spis,i);end;
                 7:begin rednosit(spis,i);end;
                 8:begin redsvjaz(spis,i);end;
                 9:begin redformat(spis,i);end;
                 10:begin redcena(spis,i);end;
                 end;
           end;
       '8':begin
                 assign(g,'C:\file2.txt');
                 rewrite(g);
                 files(spis);
                 close(g);
           end;
       '9':begin
                 assign(g,'C:\file2.txt');
                 reset(g);
                 while not eof(g) do
                   begin
                     readln(g,str);
                     znom.marka:=copy(str,1,6);
                     znom.model:=copy(str,7,9);
                     znom.matr:=copy(str,15,4);
                     znom.displ:=copy(str,20,4);
                     znom.ves:=copy(str,24,3);
                     znom.obj:=copy(str,28,4);
                     znom.nosit:=copy(str,33,7);
                     znom.svjaz:=copy(str,41,7);
                     znom.format:=copy(str,49,4);
                     znom.cena:=copy(str,53,6);
                     addelem(spis,znom);
                   end;
                 end;
 end;
until ch='0';
close(f);
freestek(spis);spis:=nil;
end.