Pascal.база данных. сортировка

[Mishka_M]

Добрый день . Заранее спасибо за помощь.
Задача такая , в 4м пункте case of нужно отсортировать сотрудников по стажу и вывести в другой файл. Пробовал сортировку через массивы , ничего не выходит(

Информация о сотрудниках предприятия содержит ФИО, номер отдела,
должность, дату начала работы. Вывести список сотрудников заданного отдела,
проработавших на предприятии более 20 лет.
В программе предусмотреть сохранение вводимых данных в
типизированный файл и возможность чтения из ранее сохраненного
типизированного файла. Результаты выводить на экран и в текстовый файл.

Program 2_1;
 uses crt;
Type Anketa=Record
     FIO:string[30];
     God_prin:string[5];
     Dolj:string[15];
     Otdel:string[10];
     End;
Var f:file of Anketa;
    f1:Anketa;
    {j,s,k}n,x,i:integer;
    
    
Procedure Zapol(n:integer);
Var i:integer;
Begin
  Assign(f,'G:Anketa.dat');
  Rewrite(f);
    For i:=1 to n do 
    Begin
      WitH f1 do
      Begin
        write('‚Введите Ф.И.О  [',i,'] -го сотрудника : ');readln(FIO);
        write('‚Введите год принятия[',i,'] -го сотрудника : ');readln(God_prin);
        write('‚Введите должность [',i,']-го сотрудника: ');readln(Dolj);
        write('‚Введите отдел [',i,'] -го сотрудника :');readln(Otdel);
      End;
    write(f,f1);
    End;
End;

Begin
    clrscr;
    Repeat
    Writeln('1: Заполнение анкет сотрудников, если запускается первый раз');
    Writeln('2: Просмотр анкет сотрудников');
    Writeln('3: Добавление новых анкет сотрудников, если запускается не первый раз');
    Writeln('4: Вывод сотрудников со стажем больше 20 лет ');
    Writeln('5: Выход');
    Write('‚Введите число 1-5: ');readln(x);
    Case x of
      1:Begin
        Write('‚Введите количество сотрудников: ');readln(n);Zapol(n);End;
      2:Begin
          assign (f,'G:Anketa.dat'); reset(f);
          Writeln('‘Список анкет сотрудников :');
          while not eof(f) do
            begin
              read (f,f1);
               writeln;
               Writeln (f1.FIO,' ');
               Writeln (f1.God_prin,' ' );
               Writeln (f1.Dolj,' ');
               Writeln (f1.Otdel,' ');
               writeln;
            end;
        end;
      3:Begin
        assign (f,'G:Anketa.dat'); reset(f);
        seek (f,filesize(f));
          WitH f1 do 
          Begin
            write('‚Введите Ф.И.О сотрудника ');readln(FIO);
            write('‚Введите год принятия сотрудника  ');readln(God_prin);
            write('‚Введите должность сотрудника* ');readln(Dolj);
            write('‚Введите отдел сотрудника ');readln(Otdel);
          End;
        write(f,f1); End;
    4:
    
    
     End;
    Until x=5;
End.

[Serge_Bliznykov]

Сообщение от Mishka_M

Задача такая , в 4м пункте case of нужно отсортировать сотрудников по стажу

Да?
а написано -

Сообщение от Mishka_M

Writeln('4: Вывод сотрудников со стажем больше 20 лет ');

но это неважно.
Два вопроса к Вам.
1) почему год принятия это строка, да ещё и длиной 5 символов?

God_prin:string[5];

Что Вы туда пишете?
Почему не сделать поле типа Integer ?
Это резко упростит взаимодействие со стажем и, в частности, позволит легко сделать сортировку по году принятия (по стажу).

2) сортировка массива записей ничем по сути не отличается от сортировки массива любого другого типа.
Вы точно пытались сделать? Где Ваши попытки? Что не получилось?

[Mishka_M]

пишет Program7.pas(20) : Нельзя преобразовать тип string[5] к array
немножко, не весь код, что я пробовал . уже , если честно, кучу всего перепробовал. Спасибо за оперативность.
проблема , что я с анкеты не могу передать значение на сортировку , а точнее не знаю как .

Program 2_1;
 uses crt;
Type Anketa=Record
     FIO:string[30];
     God_prin:string[5];
     Dolj:string[15];
     Otdel:string[10];
     stag:byte;
     End;
Var f:file of Anketa;
    sotrudn:array[1..20] of anketa;
    f1:Anketa;
    {j,s,k}n,x,i:integer;
    
   procedure stag_rabot;
var
     stroka1:string;
     st_rab,st,err:integer;
begin
     stroka1:=copy(sotrudn[i].god_prin);
     val(stroka1,st,err);
     if err<>0 then write(' В числе ',stroka1,' ',err,'-й символ портит !');
     st_rab:=2018-st;
     sotrudn[i].stag:=st_rab;
end;
    
Procedure Zapol(n:integer);
Var i:integer;
Begin
  Assign(f,'G:Anketa.dat');
  Rewrite(f);
    For i:=1 to n do 
    Begin
      WitH sotrudn[i] do
      Begin
        write('‚Введите Ф.И.О  [',i,'] -го сотрудника : ');readln(FIO);
        write('‚Введите год принятия[',i,'] -го сотрудника : ');readln(God_prin);
        write('‚Введите должность [',i,']-го сотрудника: ');readln(Dolj);
        write('‚Введите отдел [',i,'] -го сотрудника :');readln(Otdel);
      End;
    write(f,sotrudn[i]);
    End;
End;

Begin
    clrscr;
    Repeat
    Writeln('1: Заполнение анкет сотрудников, если запускается первый раз');
    Writeln('2: Просмотр анкет сотрудников');
    Writeln('3: Добавление новых анкет сотрудников, если запускается не первый раз');
    Writeln('4: Вывод сотрудников со стажем больше 20 лет ');
    Writeln('5: Выход');
    Write('‚Введите число 1-5: ');readln(x);
    Case x of
      1:Begin
        Write('‚Введите количество сотрудников: ');readln(n);Zapol(n);End;
      2:Begin
          assign (f,'G:Anketa.dat'); reset(f);
          Writeln('‘Список анкет сотрудников :');
          while not eof(f) do
            begin
              read (f,f1);
               writeln;
               Writeln (f1.FIO,' ');
               Writeln (f1.God_prin,' ' );
               Writeln (f1.Dolj,' ');
               Writeln (f1.Otdel,' ');
               writeln;
            end;
        end;
      3:Begin
        assign (f,'G:Anketa.dat'); reset(f);
        seek (f,filesize(f));
          WitH f1 do 
          Begin
            write('‚Введите Ф.И.О сотрудника ');readln(FIO);
            write('‚Введите год принятия сотрудника  ');readln(God_prin);
            write('‚Введите должность сотрудника* ');readln(Dolj);
            write('‚Введите отдел сотрудника ');readln(Otdel);
          End;
        write(f,f1); End;
    
     End;
    Until x=5;
End.

[Mishka_M]

еще такой вариант был

procedure stag;
  var 
    str1:string;
    stag_rab,st:integer;
    begin
    assign(f,'G:Anketa.dat');
    reset(f);
    writeln('вывод сотрудников со стажем больше 20 лет');
    writeln;
    while not eof (f) do
      str1:=copy(f1.god_prin);
      val(str1,st);
      st_rab:=2018-st;
        if st_rab>=20 then
        begin
          writeln (f1.fio,'стаж-',st_rab);
        end;
      end;

[Serge_Bliznykov]

Во-первых, Вы так и не ответили, зачем Вам для хранения года строка, да ещё и длиной пять символов.
Что Вы туда записываете?!!

во-вторых, я не понимаю, зачем и для чего Вы пытаетесь использовать команду копирования подстроки Copy()

в-третьих, меня мучаются смутные сомнения. Вы уверены, что Вам нужно СОРТИРОВАТЬ записи, а не ОТОБРАТЬ (отфильтровать) нужные записи?!

сортировка - это расположение записей в заданном порядке.
Где у Вас СОРТИРОВКА?

вот, может Вы пытаетесь так сделать?

procedure stag;
  var 
       sotr : Anketa;
       god, errcode : integer;
  begin
    assign(f,'G:Anketa.dat');
    reset(f);
    writeln('вывод сотрудников со стажем больше 20 лет');
    writeln;
    while not eof (f) do begin
         Read(f, sotr);
         val(sotr.God_prin, god, errcode);
         if errcode<>0 then WriteLn('Ошибка в записи года принятия сотрудника ',sotr.FIO)
         else begin
            if (2018-god)>=20 then
                   writeln (sotr.FIO,' стаж: ',(2018-god));
         end;
      end;
      close(f)
   end;

NB. использовать относительный путь вида "G:Anketa.dat"
я Вам КРАЙНЕ не рекомендую.
Используйте ПОЛНЫЙ путь. Или вообще уберите указание логического диска!

[Mishka_M]

Во-первых, Вы так и не ответили, зачем Вам для хранения года строка, да ещё и длиной пять символов.
Что Вы туда записываете?!!

год (1960, 1980, 2000 и т.д.), 5 символов или 10 роли не играет мне, если вы в этом видите ошибку, подскажите как обойти ее, буду признателен.

в-третьих, меня мучаются смутные сомнения. Вы уверены, что Вам нужно СОРТИРОВАТЬ записи, а не ОТОБРАТЬ (отфильтровать) нужные записи?!

Вы абсолютно правы , я немного не так выразился , мне действительно надо отобрать определенные записи.
Спасибо за помощь , к сожалению , смогу продолжить борьбу с кодом только завтра , посему, доброй ночи.
п.с.

Используйте ПОЛНЫЙ путь. Или вообще уберите указание логического диска!

дельный совет . в будущем учту.

[Serge_Bliznykov]

пожалуйста.

Сообщение от Mishka_M

год (1960, 1980, 2000 и т.д.), 5 символов или 10 роли не играет мне, если вы в этом видите ошибку, подскажите как обойти ее, буду признателен.

конечно вижу.

вместо

Сообщение от Mishka_M

Type Anketa=Record
     FIO:string[30];
     God_prin:string[5];
     Dolj:string[15];
     Otdel:string[10];
     stag:byte;
     End;

должно быть:

Type Anketa=Record
     FIO:string[30];
     God_prin:integer; {или God_prin:word; }
     Dolj:string[15];
     Otdel:string[10];
 End;

плюс я бы ещё добавил контроль на вводе данных.
ну, хотя бы
(God_prin>1900) and (God_prin<=God_Seijas)
где God_Seijas - это текущий год (текущий год можно брать из системного времени, можно запросить у пользователя (с контролем на разумность), либо задать константой // плохой вариант, но для учебной задачи может прокатить.

Сообщение от Mishka_M

смогу продолжить борьбу с кодом только завтра

Успехов! Будут вопросы - Welcome!

[Mishka_M]

Спасибо , все работает.
Возник еще вопрос ...) Как мне теперь это вывести в файл?)Такой вариант не прокатывает .
выводит только последнего сотрудника. Как скорректировать ?

procedure stag;
  var 
       otbor: text;
       sotr : Anketa;
       god, errcode, k : integer;
  begin
    assign(f,'G:\Anketa.dat');
    reset(f);
assign(otbor,'G:\vivod_stag.dat');
             rewrite(otbor);{создаю и закрываю файл}
             close(otbor);
    writeln('вывод сотрудников со стажем больше 20 лет');
    writeln;
    while not eof (f) do begin
         Read(f, sotr);
         
         val(sotr.God_prin, god, errcode);
         if errcode<>0 then WriteLn('Ошибка в записи года принятия сотрудника ',sotr.FIO)
         else begin
             k:=2018-god;
            
            if k>=20 then
            begin
                   writeln;
                   writeln (sotr.FIO,' ....стаж: ',k);
                   writeln;
                   assign(otbor,'G:\vivod_stag.dat');{открываю и дописываю  в файл
                   , после закрываю}
                   append(otbor);
                   writeln(otbor,sotr.FIO);
                   close(otbor); 
            end;
             
         end;
      end;
    close(otbor); 
      close(f)
   end;

[Mishka_M]

все, подправил сам)
Спасибо еще раз за помощь. Буду обращаться . Сверху дописал задание . Весьма распространенное , кстати, но в сети есть ,почему то, только на си или в делфи.