Тема . Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает объект и тестирует его методы.
Объект - товар в магазине. Параметры: наименование, количество и закупочная цена. Методы: инициализирующая процедура и процедура, определяющая стоимость товара исходя из заданного процента прибыли.
Исходный код программы для Delphi:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TTovar = class(TObject)
protected
name:string;
count:Integer;
RealPrice:Double; //
BuyPrice:Double; //
public
constructor Create();
procedure Init(name_:string; n:Integer;price:double);
procedure CalcRealPrice(p:Integer);
procedure print();
end;
{ TTovar }
procedure TTovar.CalcRealPrice(p: Integer);
begin
RealPrice := BuyPrice + BuyPrice*p;
end;
constructor TTovar.Create;
begin
count :=0;
name:='';
end;
procedure TTovar.Init(name_: string; n: Integer;price:double);
begin
name := name_;
count :=n;
BuyPrice:=price;
end;
procedure TTovar.print;
begin
writeln('tovar: ', name);
writeln('count: ', count);
writeln ('BuyPrice:',BuyPrice:5:7);
writeln ('RealPrice:',RealPrice:5:7);
end;
var
tovar:TTovar;
name:string;
N,p:Integer;
price:Double;
begin
write('name tovar:' );
readln(name);
write('count tovar:' );
readln(N);
write('price tovar:' );
readln(price);
tovar:=TTovar.Create;
tovar.Init(name,n,price);
write('vvedite procent:' );
readln(p);
tovar.CalcRealPrice(p);
tovar.print();
readln;
end.
Блок схемы:
|