Меню сайта

Задача №12

Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине «Океан» (наименование, единица измерения, цена, количество).


Program zap_12-

Uses Crt-

Const n=10-

Type tovar = record

name,ed:string[20]-

cena:real-

kol:integer-

end-

Var a : array[1..n] of tovar-

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите наименование товара ‘)-

Readln(name)-

Writeln(‘ Введите единицы измерения’)-

Readln(ed)-

Writeln(‘Цена’)-

Readln(cena)-

Writeln(‘Количество’)-

Readln(kol)-

End-

Writeln(‘Ассортимент магазина’)-

for i:=1 to n do

with a[I] do

writeln (name,’ ‘,ed,’ ‘,cena:4-2,’ ‘,kol)-

Readln-

end.

Категория: Записи | Дата: 24.01.13

Меню раздела
Блок