Question

Надо написать код программы
Язык - Паскаль

Вот задания:

1. Создать и инициализировать класс «товар», которая содержит сведения: название, стоимость, срок годности, производитель, методы для инициализации и отображения данных.

2. Объявить 2 экземпляра класса. Один из них инициализировать, втором предоставить конкретных значений в процессе работы программы.

Answer 1

type

 Товар = class

   public

   Наименование: string;

   Стоимость: real;

   СрокГодности: integer;

   Производитель: string;

   constructor (Наим: string; Стоим: real; Срок: integer; Произв: string);

   begin

     Наименование := Наим;

     Стоимость := Стоим;

     СрокГодности := Срок;

     Производитель := Произв;

   end;

   function ToString: string; override;

   begin

     Result := $'{Наименование}, {Стоимость}, {СрокГодности}, {Производитель}'

   end;        

 end;

begin

 var t1 := new Товар('Конфетка',250.6,24,'Артелька');

 var t2 := new Товар;

 t2.Наименование := 'Печенька';

 t2.Стоимость := 79;

 t2.СрокГодности := 36;

 Println(t1);

 Println(t2)

end.