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

@nicol-333 · Регистрация: 16.09.2012

Студворк — интернет-сервис помощи студентам

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

ВАСИЛЕВС · 16.09.2012, 12:13

Pascal

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 · 16.09.2012, 13:02 **[ТС]**

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

@nicol-333 0 / 0 / 0 Регистрация: 16.09.2012 Сообщений: 3
		1
	Описать тип записи - ведомость о товарах в магазине 16.09.2012, 11:48. Показов 1782. Ответов 2 Метки нет (Все метки) описать тип записи - ведомость о товарах в магазине. сформировать масив товаров, которые есть в магазине, составить программу, которая определяет виручку магазина за день. 0

@nicol-333 0 / 0 / 0 Регистрация: 16.09.2012 Сообщений: 3
	16.09.2012, 13:02 [ТС]	3
	Спасибо огромное))))))))))!!!!!!!!! 0

Опции темы

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

Решение