Question

Есть данные о шести товарах продовольственного магазина. Введите числовой код одного из товаров и получите справку о цене и количестве данного товара на складе. Для решения задачи напишите код на Паскале. Входные данные задайте самостоятельно.

Answer 1

Ответ:var

k:byte;

begin

write('vvedite kod tovara '); readln(k);

case k of

1: begin

write(' СЫР. КОЛИЧЕСТВО 25, ЦЕНА=380 Rub');

end;

2: begin

write(' ХЛЕБ. КОЛИЧЕСТВО 34, ЦЕНА=28 Rub');

end;

3: begin

write(' БАНАНЫ. КОЛИЧЕСТВО 45, ЦЕНА=130 Rub');

end;

4: begin

write(' РИС. КОЛИЧЕСТВО 27, ЦЕНА=100 Rub');

end;

5: begin

write(' МОЛОКО. КОЛИЧЕСТВО 20, ЦЕНА=65 Rub');

end;

6: begin

write(' ВОДА. КОЛИЧЕСТВО 57, ЦЕНА=30 Rub');

end;

end;

readln;

end.

Объяснение:

Answer 2

Я попробую помочь вам с решением задачи. Вот пример кода на Паскале, который может считывать числовой код товара и выводить информацию о цене и количестве данного товара на складе. Я использовал массивы для хранения данных о шести товарах продовольственного магазина. Вы можете изменить входные данные по своему усмотрению.

program Goods;
var
  code: integer; // код товара
  price: array[1..6] of real; // цена товара
  quantity: array[1..6] of integer; // количество товара на складе
begin
  // задаем входные данные
  price[1] := 2.5; // цена за 1 кг яблок
  price[2] := 3.0; // цена за 1 л молока
  price[3] := 1.2; // цена за 1 батон хлеба
  price[4] := 4.5; // цена за 1 упаковку сыра
  price[5] := 5.0; // цена за 1 кг курицы
  price[6] := 6.0; // цена за 1 бутылку вина
  
  quantity[1] := 100; // количество яблок на складе в кг
  quantity[2] := 50; // количество молока на складе в л
  quantity[3] := 20; // количество хлеба на складе в батонах
  quantity[4] := 30; // количество сыра на складе в упаковках
  quantity[5] := 40; // количество курицы на складе в кг
  quantity[6] := 10; // количество вина на складе в бутылках
  
  // считываем код товара
  writeln('Введите код товара от 1 до 6');
  readln(code);
  
  // проверяем, что код товара корректный
  if (code < 1) or (code > 6) then
    writeln('Неверный код товара')
  else
    // выводим информацию о товаре
    writeln('Цена товара: ', price[code]:0:2, ' руб.');
    writeln('Количество товара на складе: ', quantity[code], ' ед.');
end.