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.

Answer 2

Конечно, вот пример кода на языке Pascal, который реализует задание:

pascalCopy code
program ProductExample;

type
  TProduct = class
  private
    FName: string;
    FPrice: Double;
    FExpirationDate: string;
    FManufacturer: string;
  public
    constructor Create(Name: string; Price: Double; ExpirationDate: string; Manufacturer: string);
    procedure DisplayInfo;
  end;

constructor TProduct.Create(Name: string; Price: Double; ExpirationDate: string; Manufacturer: string);
begin
  FName := Name;
  FPrice := Price;
  FExpirationDate := ExpirationDate;
  FManufacturer := Manufacturer;
end;

procedure TProduct.DisplayInfo;
begin
  writeln('Product Name: ', FName);
  writeln('Price: ', FPrice:0:2);
  writeln('Expiration Date: ', FExpirationDate);
  writeln('Manufacturer: ', FManufacturer);
end;

var
  Product1, Product2: TProduct;

begin
  // Инициализируем первый экземпляр класса
  Product1 := TProduct.Create('Apple', 0.75, '2023-08-31', 'Fruit Inc.');

  // Вводим данные для второго экземпляра класса
  writeln('Enter product details:');
  write('Name: ');
  readln(ProductName);
  write('Price: ');
  readln(ProductPrice);
  write('Expiration Date: ');
  readln(ProductExpirationDate);
  write('Manufacturer: ');
  readln(ProductManufacturer);

  // Создаем второй экземпляр класса с введенными данными
  Product2 := TProduct.Create(ProductName, ProductPrice, ProductExpirationDate, ProductManufacturer);

  // Выводим информацию о продуктах
  writeln('Product 1:');
  Product1.DisplayInfo;
  writeln;
  writeln('Product 2:');
  Product2.DisplayInfo;

  // Освобождаем память, занимаемую экземплярами класса
  Product1.Free;
  Product2.Free;
end.

Обратите внимание, что вам нужно будет ввести данные для второго продукта во время выполнения программы. Также не забудьте вызывать метод Free для освобождения памяти, выделенной под экземпляры класса, когда они больше не нужны.