Программирование / Лабораторные / климов_1 / PROG1

Unit prog1;
interface
Uses crt;


type

PShop=^TShop;
TShop=object
private
shopname:string;
public
constructor Init(shop1:string);
procedure setshop(sh:string);
function getshop:string;
destructor Done;virtual;
end;


TCar=object(TShop)
private
age:integer;{бв ¦ }
price:real;
public

public
constructor Init(shop1:string;ag:integer;pr:real);
destructor Done;virtual;

procedure setage(ag:integer);
function getage:integer;
procedure setprice(pr:real);
function getprice:real;
procedure Add;
procedure Delet;
procedure Sort;
procedure Show;
end;

Var car:TCar;
Cont:array[1..20] of TCar;
count:integer;

Implementation

constructor TShop.Init(shop1:string);
begin
setshop(shop1);
end;

procedure TShop.setshop(sh:string);
begin
shopname:=sh;
end;

function TShop.getshop:string;
begin
getshop:=shopname;
end;

destructor TShop.Done;
begin
end;

{------------------------------------------------------------------------}

constructor TCar.Init(shop1:string;ag:integer;pr:real);
begin
inherited init(shop1);
setage(ag);
setprice(pr);
end;

procedure TCar.Add;
var s:string;
a:integer;
p:real;
begin
clrscr;
writeln(' „®Ў ўм⥠ў Є®­Ґж бЇЁбЄ  ¤ ­­лҐ : ');
count:=count+1;
write(' ’®аЈ®ў®Ґ ЇаҐ¤ЇаЁпвЁҐ : ');readln(s);
write(' ‚®§а бв  ўв®¬®ЎЁ«п : ');readln(a);
write(' –Ґ­  : ');readln(p);
cont[count].init(s,a,p);

end;

procedure TCar.Delet;
var delnum,i:integer;
begin
clrscr;
writeln(' “¤ «Ёвм ¤ ­­лҐ Ё§ бЇЁбЄ  Ї® ­®¬Ґаг : ');
write(' Ќ®¬Ґа г¤ «Ґ¬ле ¤ ­­ле Ё§ бЇЁбЄ  : ');readln(delnum);
for i:=delnum to count-1 do
cont[i]:=cont[i+1];
count:=count-1;

end;

procedure TCar.Sort;
var i,j,ag:integer;
pr:real;
st:string;

begin
for i:=1 to count do
for j:=count downto i do
if cont[i].age>cont[j].age then
begin
ag:=cont[i].getage;
st:=cont[i].getshop;
pr:=cont[i].getprice;
cont[i].setage(cont[j].getage);
cont[i].setshop(cont[j].getshop);
cont[i].setprice(cont[j].getprice);
cont[j].setage(ag);
cont[j].setshop(st);
cont[j].setprice(pr);
end;
end;

procedure TCar.Show;
var i:integer;
begin
clrscr;
for i:=1 to count do
begin
writeln(cont[i].getshop);{}
writeln(cont[i].getage);
writeln(cont[i].getprice:2:3);
writeln;
writeln('Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ');
readkey;
readkey;
end;
writeln;
end;
procedure TCar.setage(ag:integer);
begin
age:=ag;
end;

function TCar.getage:integer;
begin
getage:=age;
end;

procedure TCar.setprice(pr:real);
begin
price:=pr;
end;

function TCar.getprice:real;
begin
getprice:=price;
end;


destructor TCar.Done;
begin
end;
{------------------------------------------------------------------------}

end.