asd / корзина / лекции по TP / Lecture_Pascal / graph / SPISOK

program h12;

uses
  CRT;

const
  DataFName = 'H12.DAT';
  LinesPP =    19;
  MaxItems =   999;

type
  CarRec = record
             Name:    string[17];
             Country: string[13];
             Power:   real;
             Fuel:    real;
             Speed:   real;
           end;

var
  Cars:      array[1..MaxItems] of CarRec;
  CarsTotal: word;

procedure ShowTable;
var
  Lines,
  Total:   word;
  EOFile:  boolean;
  RK:      char;
begin
  Total:= 0;
  EOFile:= false;

  while not EOFile do begin
    Lines:= 0;

    Writeln;
    Writeln(' -----------------------------------------------------',
            '-------------------------');
    Writeln('    N  Ќ §ў ­ЁҐ          ‘вp ­            Њ®й­®бвм    ',
            '    ђ б室  Њ ЄбЁ¬ «м­ п ');
    Writeln('       (¬ pЄ )                           ¤ўЁЈ вҐ«п,   ',
            '   в®Ї«Ёў ,     бЄ®p®бвм,');
    Writeln('                                               «.б.   ',
            '  «/100 Є¬          Є¬/з ');
    Writeln(' ----- ----------------- ------------- -------------- ',
            '------------ ------------');

    while (not EOFile) and (Lines<LinesPP) do begin
      Inc(Lines);
      Inc(Total);
      with Cars[Total] do
      Writeln('  ',Total:3,'  ',Name,'':17-Length(Name),' ',
              Country,'':13-Length(Country),' ',Power:11:2,'   ',
              Fuel:11:2,'   ',Speed:11:2);

      EOFile:= Total>=CarsTotal;
    end;

    Writeln(' -----------------------------------------------------',
            '-------------------------');
    if not EOFile then begin
      Write(' Џp®ЎҐ« ¤«п Їp®¤®«¦Ґ­Ёп Ё«Ё [Esc] ¤«п ўл室  Ё§ Їp®б¬®вp  ');
      repeat RK:= ReadKey until RK in [' ',^[];
      EOFile:= RK=^[;
    end
    else begin
      Write(' Љ®­Ґж бЇЁбЄ . Ќ ¦¬ЁвҐ Їp®ЎҐ« ¤«п ўл室  ');
      repeat until ReadKey=' ';
    end;
    Writeln;
  end;
end; { ShowTable }

procedure AddElement;
var
  WD:    CarRec;
  Loop,
  Loop2: word;
begin
  Writeln;
  with WD do begin
    Write('   Ќ §ў ­ЁҐ ..................... ');
    Readln(Name);
    Write('   ‘вp ­  ....................... ');
    Readln(Country);
    Write('   Њ®й­®бвм, «.б. ............... ');
    Readln(Power);
    Write('   ђ б室 в®Ї«Ёў , «/100 Є¬ ..... ');
    Readln(Fuel);
    Write('   Њ Єб.бЄ®p®бвм, Є¬/з .......... ');
    Readln(Speed);
  end;

{ „®Ў ў«Ґ­ЁҐ б гЇ®p冷稢 ­ЁҐ¬ Ї® ¬®й­®бвЁ ¤ўЁЈ вҐ«п }
  Loop:= 1;
  while (Loop<=CarsTotal) and (Cars[Loop].Power<=WD.Power) do Inc(Loop);
  for Loop2:= CarsTotal+1 downto Loop+1 do Cars[Loop2]:= Cars[Loop2-1];

  Inc(CarsTotal);
  with Cars[Loop] do begin
    Name:= Copy(WD.Name,1,17);
    Country:= Copy(WD.Country,1,13);
    Power:= WD.Power;
    Fuel:= WD.Fuel;
    Speed:= WD.Speed;
  end;
end; { AddElement }

procedure DelElement;
var
  DelItem,Loop: word;
begin
  Writeln;
  Write('  Ќ®¬Ґp н«Ґ¬Ґ­в  ¤«п г¤ «Ґ­Ёп (1-',CarsTotal,') .... ');
  Readln(DelItem);

  for Loop:= DelItem to CarsTotal-1 do Cars[Loop]:= Cars[Loop+1];
  Dec(CarsTotal);
end; { DelElement }

function Menu: byte;
const
  Fns: array[0..3] of string[20] = (
       '‚л室',
       'Џp®б¬®вpҐвм в Ў«Ёжг',
       '„®Ў ўЁвм н«Ґ¬Ґ­в',
       '“¤ «Ёвм н«Ґ¬Ґ­в');

var
  MK:   char;
  Loop: byte;
begin
  for Loop:= 1 to 20 do Writeln;
  Writeln('ЪДДДДДВДДДДДДДДДДДДДДДДДДДДДДДї');
  Writeln('і  N  і  Ќ §ў ­ЁҐ дг­ЄжЁЁ     і');
  Writeln('ГДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДґ');
  for Loop:= 1 to 3 do
  Writeln('і  ',Loop,'  і  ',Fns[Loop],'':21-Length(Fns[Loop]),'і');
  Writeln('ГДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДґ');
  Writeln('і  0  і  ‚л室                і');
  Writeln('АДДДДДБДДДДДДДДДДДДДДДДДДДДДДДЩ');
  Write('   ');
  repeat MK:= ReadKey until MK in ['0'..'3',^[];

  if MK=^[ then Loop:= 0 else Loop:= Ord(MK)-$30;
  Writeln(Loop,'     ',Fns[Loop]);

  Menu:= Loop;
end; { Menu }

var
  MenuKey:  byte;
  CarNo:    word;
  DataFile: file of CarRec;

begin
  Writeln;
  Writeln('>> —⥭ЁҐ д ©«  ¤ ­­ле ',DataFName,'...');

  CarsTotal:= 0;
  FillChar(Cars,SizeOf(Cars),0);

  Assign(DataFile,DataFName);
{$I-}
  Reset(DataFile);
{$I+}
  if IOResult<>0 then Rewrite(DataFile)
  else while not EOF(DataFile) do begin
    Inc(CarsTotal);
    Read(DataFile,Cars[CarsTotal]);
  end;
  Close(DataFile);

  repeat
    MenuKey:= Menu;
    case MenuKey of
      1: ShowTable;
      2: AddElement;
      3: DelElement;
    end;
  until MenuKey=0;

  Writeln;
  Writeln('>> ‡ ЇЁбм д ©«  ¤ ­­ле ',DataFName,'...');

  Assign(DataFile,DataFName);
  Rewrite(DataFile);
  for CarNo:= 1 to CarsTotal do Write(DataFile,Cars[CarNo]);
  Close(DataFile);
end.