Описать тип записи - ведомость о товарах в магазине

nicol-333

описать тип записи - ведомость о товарах в магазине. сформировать масив товаров, которые есть в магазине, составить программу, которая определяет виручку магазина за день.
2 ответа

nicol-333

type
  Product = record
    Name: string;
    Price: real;
end;
 
const N = 10;{количество товара}
 
var
  Magazine: array[1..N] of Product;
 
procedure GenerateProduct;
var
  i: integer;
begin
  for i := 1 to N do
    begin
      with Magazine[i] do
        begin
          write('Введите имя продукта: ');
          readLn(Name);
          write('Введите цену: ');
          readLn(Price);
        end;
    end;
end;
 
function GetRevenue: real;
var
  sum: real;
  i: integer;
begin
  for i := 1 to N do
    begin
      with Magazine[i] do
        begin
          sum := sum + Price;
        end;
    end;
  GetRevenue := sum;
end;
 
begin
  GenerateProduct();
  writeLn('Выручка за день: ', GetRevenue());
end.
Наверно так. P.S. Названия подпрограмм может не подходят. Я английский не очень, брал первое что давал переводчик.


nicol-333

Спасибо огромное))))))))))!!!!!!!!!