Программирование / Лабораторные / laba1 / PUZIROK

program PuzirokLopatina;
uses crt;

const databasename='database.dat';
MAXDLINA=100;
KOL:integer=0;
type
db=record
fam:string[30];{д ¬Ё«Ёп}
name:string[20];
otch:string[30];
kolzub:integer;
ves:real;
end;

var data:array[1..MAXDLINA] of db;


procedure OpenBase;
var f:file of db;
a:db;
begin
KOL:=0;
assign(f,databasename);
reset(f);
while not(eof(f)) do
begin
KOL:=KOL+1;
read(f,a);
data[KOL]:=a;
end;
close(f);
end;

procedure SaveBase(filename:string);
var f:file of db;
a:db;
i:integer;
begin
assign(f,filename);
rewrite(f);
for i:=1 to KOL do
begin
write(f,data[i]);
end;
close(f);
end;

procedure Puzirok(filename:string);{fam.dat-д ©« ®вб®авЁа®ў ­­л© Ї® д ¬Ё«ЁЁ}
var i,j,k:integer;
min:db;
begin
writeln(filename);
for i:=1 to KOL do
begin
k:=i;
min:=data[i];
for j:=i to KOL do
begin
if filename='fam.dat' then
if data[j].fam<min.fam then
begin
k:=j;
min:=data[j];
end;
if filename='name.dat' then
if data[j].name<min.name then
begin
k:=j;
min:=data[j];
end;
if filename='otch.dat' then
if data[j].otch<min.otch then
begin
k:=j;
min:=data[j];
end;
if filename='kolzub.dat' then
if data[j].kolzub<min.kolzub then
begin
k:=j;
min:=data[j];
end;
if filename='ves.dat' then
if data[j].ves<min.ves then
begin
k:=j;
min:=data[j];
end;
end;
data[k]:=data[i];
data[i]:=min;
end;
SaveBase(filename);
end;

var a:db;
f,ff:file of db;
key:char;
i:integer;
filename:string;
begin
OpenBase;
randomize;
clrscr;
repeat
{ clrscr;}
textcolor(random(14)+1);
writeln('‚лЎҐаЁвҐ ०Ё¬ а Ў®вл:');
writeln('1.‚лў®¤ Ў §л ­  нЄа ­');
writeln('2.‚ў®¤ ¤ ­­ле ў Ў §г');
writeln('3.‘®авЁа®ўЄ ');
writeln('4.‚лў®¤ ®вб®авЁа®ў ­­®© Ё­д®а¬ жЁЁ ­  нЄа ­');
writeln('5.‚л室');
key:=readkey;
writeln;
case key of
'1':
begin
for i:=1 to KOL do
begin
textcolor(random(14)+1);
writeln(data[i].fam:15,' ',data[i].name:15,' ',data[i].otch:20,' ',data[i].kolzub:5,' ',data[i].ves:3:2);
end;
writeln;
end;
'2':
begin
clrscr;
writeln('‚ў®¤ Ё­д®а¬ жЁЁ');
write('‚ўҐ¤ЁвҐ д ¬Ё«Ёо: ');
readln(a.fam);
write('‚ўҐ¤ЁвҐ Ё¬п: ');
readln(a.name);
write('‚ўҐ¤ЁвҐ ®взҐбвў®: ');
readln(a.otch);
write('‚ўҐ¤ЁвҐ Є®«-ў® §гЎ®ў: ');
readln(a.kolzub);
write('‚ўҐ¤ЁвҐ ўҐб: ');
readln(a.ves);
KOL:=KOL+1;
data[KOL]:=a;
SaveBase(databasename);
end;
'3':
begin
Puzirok('fam.dat');
Puzirok('name.dat');
Puzirok('otch.dat');
Puzirok('kolzub.dat');
Puzirok('ves.dat');
OpenBase;
writeln;
end;
'4':
begin
repeat
writeln('1.Џ® д ¬Ё«ЁЁ');
writeln('2.Џ® Ё¬Ґ­Ё');
writeln('3.Џ® ®взҐбвўг');
writeln('4.Џ® Є®«-ўг §гЎ®ў');
writeln('5.Џ® ўҐбг');
writeln('6.‚л室');
key:=readkey;
case key of
'1':
filename:='fam.dat';
'2':
filename:='name.dat';
'3':
filename:='otch.dat';
'4':
filename:='kolzub.dat';
'5':
filename:='ves.dat';
else
filename:=databasename;
end;
assign(f,filename);
reset(f);
while not(eof(f)) do
begin
read(f,a);
writeln(a.fam:15,' ',a.name:15,' ',a.otch:20,' ',a.kolzub:5,' ',a.ves:3:2);
end;
until key='6';
end;
end;
until key='5';
end.