Дан список наименований товаров с указанием их цен на начало года. Известен уровень инфляции в процентах для каждого месяца года (взять значения от 0,5 до 2%). Рассчитать цены каждого товара на 1-е число каждого месяца и конец года, компенсирующие потери от инфляционного процесса.

Вопрос пользователя:

Дан список наименований товаров с указанием их цен на начало года. Известен уровень инфляции в процентах для каждого месяца года (взять значения от 0,5 до 2%). Рассчитать цены каждого товара на 1-е число каждого месяца и конец года, компенсирующие потери от инфляционного процесса.

Илюха отвечает:

поскольку язык не указан пишу в том который мне удобнее

 

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

 

def var i as int.

def var infl as dec.

 

input from data.txt.

repeat:

  create wares.

  import wares.

 

end.

input close.

 

do i = 2 to 13:

   infl=random(0.0005, 0.02).

  for each wares :

    

     wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.

 

Добавить свой ответ