Меню сайта

Задача №4

Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара.


Program zap_4-

Uses Crt-

Const n=10-

Type tovar = record

name : string[20]-

stoim, cena:real-

kol:integer-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

begin

Writeln(‘Наименование товара ‘,i)-

Readln(a[i].name)-

Writeln(‘Цена’)-

Readln(a[i].cena)-

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

Readln(a[i].kol)-

A[i].stoim:=a[i].cena*a[i].kol-

end-

for i:=1 to n do

writeln(a[i].name:20,’ ‘,a[i].stoim:4:2)-

Readln-

end.

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

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