Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б" - Turbo Pascal

Формулировка задачи:

Очередь (FIFO) Все студенты, чьи фамилии начинаются с буквы "Б"

program lab3;
type student=record
fam,name,group:string[20];
year:integer;
sr:real;
pstud=^dstud;
dstud=record
s:student;
p:psud;
end;
var stud:student;
f,g:text;
st:string;
prosedure get_string(st:string;var s:student);
var kod;integer;
begin
with s do begin
fam:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
name:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
group:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
val9copy(st,1,pos('',st)-1),year,kod);
delete(st,1,pos('',st));
val(st,sr,kod)
end;
end;
  {ГўГ±ГЇГ®Г¬Г*ГЈГ*ГІГҐГ«ГјГ*Г*Гї ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г* Г¤Г«Гї ГўГ»ГўГ®Г¤Г* Г§Г*ГЈГ®Г«Г®ГўГЄГ* Гў ГґГ*Г©Г«}
 procedure put_header(header:string);
 begin
 writeln(g,header);
 writeln(g,'|----------------------------------------------');
 writeln(g,'|   ГґГ*Г¬ГЁГ«ГЁГї   |    ГЁГ¬Гї    |ГЈГ°ГіГЇГЇГ* | ГЈ.Г°  | Г±.Г° '):
 writeln(g,'|----------------------------------------------');
 end;
 {ГўГ±ГЇГ®Г¬Г*ГЈГ*ГІГҐГ«ГјГ*Г*Гї ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г* Г¤Г«Гї ГўГ»ГўГ®Г¤Г* Г±ГІГ°Г®ГЄГЁ Гў ГґГ*Г©Г«}
  procedure put_string(s:string);
  begin
  with s do
  writeln(g,'|',fam:11,'|',name:9,'|',group:10,'|',year:6,'|',sr:6:1,'|');
  end;
  {ГўГ±ГЇГ®Г¬Г*ГЈГ*ГІГҐГ«ГјГ*Г*Гї ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г* Г¤Г«Гї ГўГ»ГўГ®Г¤Г* ГЇГ®Г±Г«ГҐГ¤Г*ГЁГµ Г¤Г*Г*Г*Г»Гµ Гў ГґГ*ГЁГ«}
 procedure put_sub;
 begin
 writeln(g,'|---------------------------------------------');
 writeln(g);
 end;
 {Г°Г*ГЎГ®ГІГ* Г± Г®Г·ГҐГ°ГҐГ¤ГјГѕ}
 procedure FIFO;
 var pBegin1,pbegin,pEnd,Help,:pstud;
 begin
 reset(f);
{ГЌГ*Г·Г*Г«ГјГ*Г®ГҐ ГґГ®Г°Г¬ГЁГ°Г®ГўГ*Г*ГЁГҐ}
new(pBegin);
pBegin^.p:=nil;
readln(f,st);get_string(st,stud);
pBegin^.s:=stud;
pEnd:=pBegin;
{Г„Г®ГЎГ*ГўГ«ГҐГ*ГЁГҐ Г¤Г*Г*Г*Г»Гµ}
while not eof(f) do
begin
readln(f,st);get_string(st,stud);
new(pHelp);
pHelp^.p:=nil;
pHelp^.s:=stud;
pEnd^.p:=pHelp;
pEnd:=pHelp;
end;
pBegin1:=pBegin;
{Г€Г§ГўГ«ГҐГ·ГҐГ*ГЁГҐ ГўГ±ГҐГµ Г¤Г*Г*Г*Г»Гµ}
put_header('Г€Г±ГµГ®Г¤Г*Г»ГҐ Г¤Г*Г*Г*Г»ГҐ Г¤Г«Гї Г®Г·ГҐГ°ГҐГ¤ГЁ:');
repeat
stud:=pBegin^.s;
put_string(stud);
pBegin:=pBegin^.p until
pBegin=nil;
put_sub;
{Г€Г§ГўГ«ГҐГ·ГҐГ*ГЁГҐ Г¤Г*Г*Г*Г»Гµ ГЇГ® ГіГ±Г«Г®ГўГЁГѕ ГЁ ГіГ¤Г*Г«ГҐГ*ГЁГҐ Г®Г·ГҐГ°ГҐГ¤ГЁ}
pBegin:=pBegin1;
put_header('Г‘ГІГіГ¤ГҐГ*ГІГ», Г·ГјГЁ ГґГ*Г¬ГЁГ«ГЁГЁ Г*Г*Г·ГЁГ*Г*ГѕГІГ±Гї Г± ГЎГіГЄГўГ» "ГЃ:');
repeat
stud:=pBegin^.s;
if stud.fam[1]='ГЃ' then put_string(stud);
pHelp:=pBegin;
pBegin:=pBegin^.p;
dispose(pHelp)
until pBegin=nil;
put_sub
end;
{ГѓГ«Г*ГўГ*Г*Гї ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г*}
begin
assign(g,'result.txt');
{$i-}append(g);{$i+} if ioresult <> 0 then rewrite(g);
 assign(f,'data.txt');
FIFO;
close(f);close(g); writeln('Ok')
 end.

Решение задачи: «Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"»

Листинг программы

program lab;
uses crt;
type
    dt=record
        fam:string[14];
        nam:string[14];
        grp:string[10];
        grd:integer;
        ray:array[1..5] of integer;
        end;
    pDat=^data;
    data=record
        dat:dt;
        nxt:pDat;
        end;
procedure add(var pV:pDat);
begin
with pV^.dat do
    begin
    write('fam: ');
    readln(fam);
    write('nam: ');
    readln(nam);
    write('grp: ');
    readln(grp);
    write('grd: ');
    readln(grd);
    write('ray 1: ');
    readln(ray[1]);
    write('ray 2: ');
    readln(ray[2]);
    write('ray 3: ');
    readln(ray[3]);
    write('ray 4: ');
    readln(ray[4]);
    write('ray 5: ');
    readln(ray[5]);
    end;
end;
procedure shw(var pV:pDat; n:integer);
var
    sr:real;
begin
if n=0 then
begin
with pV^.dat do
    begin
    sr:=(ray[1]+ray[2]+ray[3]+ray[4]+ray[5])/5;
    writeln('|',fam:10,'|',nam:10,'|',grp:5,'|',grd:5,'|',sr:5:1,'|');
    end
end
       else
begin
with pV^.dat do
    if fam[1]='B' then 
    begin
    sr:=(ray[1]+ray[2]+ray[3]+ray[4]+ray[5])/5;
    writeln('|',fam:10,'|',nam:10,'|',grp:5,'|',grd:5,'|',sr:5:1,'|');
    end;
end;
end;
var
    pB,pE,pA,pBS:pDat;
    i,k:integer;
begin
write('Vvedite kol-vo zapisey : ');
readln(k);
clrscr;
new(pB);
pB^.nxt:=nil;
add(pB);
pE:=pB;
for i:=1 to k-1 do
    begin
    new(pA);
    pA^.nxt:=nil;
    pE^.nxt:=pA;
    pE:=pA;
    add(pA);
    end;
pBS:=pB;
writeln('+-------------All list------------------+');
writeln('|    Fam   |   Nam    | Grp | Grd | Sr  |');
writeln('|----------+----------+-----+-----+-----|');
while pB<>nil do
    begin
    shw(pB,0);
    pB:=pB^.nxt;
    end;
writeln('+---------------------------------------+');
pB:=pBS;
writeln;writeln;
writeln('+---------------------------------------+');
writeln('| SELECT * FROM STUDENTS WHERE FAM[1]=B |');
writeln('+---------------------------------------+');
writeln('|    Fam   |   Nam    | Grp | Grd | Sr  |');
writeln('|----------+----------+-----+-----+-----|');
while pB<>nil do
    begin
    shw(pB,1);
    pA:=pB;
    pB:=pB^.nxt;
    dispose(pA);
    end;
writeln('+---------------------------------------+');
readln;
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующую задачу: создает структуру данных для хранения информации о студентах, которые имеют фамилию, начинающуюся с буквы Б. Затем он добавляет студентов в очередь, используя эту структуру данных. После этого он выводит информацию о каждом студенте в очереди, а затем выводит информацию о студентах, у которых фамилия начинается с буквы Б. Вот список переменных и их значений, представленных в виде кода:

fam: строка, содержащая фамилию студента (например, Бабаев)
nam: строка, содержащая имя студента (например, Иван)
grp: строка, содержащая группу студента (например, 101)
grd: целое число, представляющее степень студента (например, 5)
ray: массив из пяти целых чисел, представляющих оценки студента (например, {5, 4, 3, 2, 1})
pDat: переменная типа ^data, которая указывает на текущий элемент данных в очереди
data: запись типа record, которая содержит информацию о студенте и ссылку на следующий элемент в очереди Вот пример вывода информации о студентах: +-------------All list------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ | SELECT * FROM STUDENTS WHERE FAM[1]=B | +---------------------------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ | Fam | Nam | Grp | Grd | Sr | |----------+----------+-----+-----+-----| +---------------------------------------+ Этот код использует структуры данных, такие как записи и массивы, для хранения информации о студентах и их оценках. Он также использует указатели для связи между записями данных в очереди.