Условие задачи
Есть данные о шести товарах продовольственного магазина. Введите числовой код одного из товаров и получите справку о цене и количестве данного товара на складе.
Код программы:
var
n,kol,price:integer;
naimenovanie: string;
f:=true;
begin
write('Введите код товара (от 1 до 6): ');
readln(n);
case n of
1: begin
naimenovanie:='Хлеб';
kol:=10;
price:=25;
end;
2: begin
naimenovanie:='Молоко';
kol:=15;
price:=70;
end;
3: begin
naimenovanie:='Колбаса';
kol:=20;
price:=255;
end;
4: begin
naimenovanie:='Масло';
kol:=17;
price:=120;
end;
5: begin
naimenovanie:='Макароны';
kol:=30;
price:=45;
end;
6: begin
naimenovanie:='Крупа гречневая';
kol:=24;
price:=110;
end;
else f:=false;
end;
if f then begin
writeln('Наименование товара: ',naimenovanie);
writeln('Цена товара: ',price, ' р.');
writeln('Остаток на складе: ',kol);
end
else writeln('Некорректный код товара!');
end.
Ответ
Результат выполнения программы:
