Доделать в Паскале задание на записи

[Novenkaja]

кто-то может действительно это дописать,а не только на словах объяснить?
потому что мне легче как-то понять и уловить смысл (слова) по определённому коду (изменённому).

[Mad_Cat]

это

Procedure printMenu;
Begin
    clrscr;
    WriteLn('------ Dannie po disku -------');
    WriteLn('1: Avtor');
    WriteLn('2: Nazvanie');
    WriteLn('3: Izdatel');
    WriteLn('4: God izdania');
    WriteLn('5: Cena');
    WriteLn('6: Cennost(vozrast)');
    WriteLn('0: Exit');
    WriteLn;
    Write('JVasa komanda: ');
End;

поменять на это

Procedure printMenu;
Begin
    clrscr;
    WriteLn('------ Dannie po disku -------');
    WriteLn('1 — добавить запись');
    WriteLn('2 — просмотреть записи');
    WriteLn('3 — сохранить в файл');
    WriteLn('4 — найти самого популярного издателя');
    WriteLn('5 — поиск по названию');
    WriteLn('6 — сортировка по автору');
    WriteLn('7 — удаление записи');
    WriteLn('0 — выход');
    WriteLn;
    Write('JVasa komanda: ');
End;

[Novenkaja]

я это ещё тогда заменила,а больше ничего менять тут или дописывать разве не надо?

[Serge_Bliznykov]

я это ещё тогда заменила,а больше ничего менять тут или дописывать разве не надо?

Где исправленный код?!

Вы говорите, что заменили меню.
А обработку нажатых клавиш изменили?
Если пользователь введёт цифру один - он сможет добавить запись в имеющийся файл?
Если введёт 2 - сможет просмотреть все имеющиеся записи?
А если 5 - поиск по названию сработает, 6 - сортировка ну и т.д.
Это всё сделано?

Если да - значит больше ничего дописывать не надо.
Если не сделано - значит это надо дописывать.

[Novenkaja]

это изначально

Procedure printMenu;
Begin
    clrscr;
    WriteLn('------ Dannie po disku -------');
    WriteLn('1: Avtor');
    WriteLn('2: Nazvanie');
    WriteLn('3: Izdatel');
    WriteLn('4: God izdania');
    WriteLn('5: Cena');
    WriteLn('6: Cennost(vozrast)');
    WriteLn('0: Exit');
    WriteLn;
    Write('JVasa komanda: ');
End;

было заменено на

Procedure printMenu;
Begin
    clrscr;
    WriteLn('------ Dannie po disku -------');
    WriteLn('1 — добавить запись');
    WriteLn('2 — просмотреть записи');
    WriteLn('3 — сохранить в файл');
    WriteLn('4 — найти самого популярного издателя');

теперь стало из 7 пунктов,хорошо,тогда я допишу у себя и гляну что получится

1,2,3,0 работают нормально
4 тоже работает,однако если я нажму на энтер,тогда он ещё раз показывает save,и потом переносит меня снова нат главное меню.

а чтобы работали 5-7 надо изменить(добавить)

   var A   :disks;
        key :char;
        size:integer;
begin
    Repeat
    printMenu;
    key:=readkey;
    Case key of
        #49:adddisk(A,size);
        #50:retrieve(A,size);
        #51:writeToFile(A,size);
        #52:findMostPopular(A,size);
    End;
  Until key=#48;

сюда ещё напримере вот таких #52:findMostPopular(A,size); ????

[Mad_Cat]

   var A   :disks;
        key :char;
        size:integer;
begin
    Repeat
    printMenu;
    key:=readkey;
    Case key of
        #49:adddisk(A,size);
        #50:retrieve(A,size);
        #51:writeToFile(A,size);
        #52:findMostPopular(A,size);
        #53:search(A,size);
        #54:sortByAuthor(a,size);
        #55:delete(A,size);
 End;
  Until key=#48;

чуть чуть голову включить сложно7

[Alex11223]

тогда он ещё раз показывает save,и потом переносит меня снова нат главное меню.

А что вы тут делаете (после нахождения и вывода самого популярного издателя)?

for i:=1 to size do
        if (tmp = A[i].izdatel) then
        Begin
            inc(tmpSize);
            B[tmpSize]:=A[i];
        End;
if (tmpSize <>0) then writeToFile(B,tmpSize)
        else WriteLn('Spiska net!');

сюда ещё напримере вот таких #52:findMostPopular(A,size);

Да (ну только коды клавиш тоже надо не забывать изменять). Попробовали бы сами перед тем как спрашивать, компилятор не кусается)

[Novenkaja]

я нажимаю на 4 он выдаёт мне найти самого популярного автора,а затем когда я нажимаю enter он сперва выдаёт так же save как и в 3-ем пункте,а затем только выдаёт главное меню и я дальеш выбираю какую команду хочу нажать

дальше,6-ая почему то нее работает,написано всё верно,а нажимаю цифру 6 и не идёти,а при нажатии 7 выдаётся вопрос какую запись удалить,и тут я должна писать имя автора?чтобы я там не писала,программа вылетает и пишет error

[Mad_Cat]

выдаётся вопрос какую запись удалить,и тут я должна писать имя автора?

какое на хрен имя автора?

Procedure delete(var A:disks;var N:integer);
    var number,i:integer;
Begin
    Write('Kakuju zapis udalit?');
 Readln(Number);
 If Number > N then writeln('Error')
 Else
 For i:=Number+1 to N do
 Begin
   A[i]:=A[i+1];
   Dec(n)
 End;

здесь надо циферку ввести == № записи

нажимаю цифру 6 и не идёт

Procedure sortByAuthor(var A:disks;size:integer);
    var i,k:integer;
   buf:disk;
  Obmen:Boolean;
Begin
   k:=size;
  Repeat
    Obmen:=False;
    For i:=1 to k-1 do
    If A[i].avtor> A[i+1].avtor then
    Begin
      buf:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=buf;
      Obmen:=True;
    End;
    dec(k)
  Until Not Obmen;
End;

а как ты видишь что не идет? у процедуры не символа на экран не выводится) все идет сортируется ) жмакни 6 а потом 2 и убедись отсортировано по автору или нет

[Novenkaja]

хорошо,но 6-ой пункт не работает....вообще,жму на 6 и нифига