Версия для печати темы

program var1;
uses crt;
var
n,k,j,klspros:integer;
I,t,x,d,y,Z,S,sumy,sumazak,sumazap,s1,Sp:real;
Begin
clrscr;

write('n=');
readln(n);

write('Krit_yroven_zapasov s=');
readln(s1);

write('verxniy_krut_yroven_zapasov S=');
readln(S);


write('yroven_zapasov_v_nachale_1_mesyaca I=');
readln(I);
K:=32;

randomize;

for k:=1 to n do begin        {для каждого месяця моделируем значения}

  writeln(k,' mesyac');
  sumazak:=0;
  sumazap:=0;
  t:=0;
  sumy:=0;

  while sumy<=1 do begin              {пока сума промежутков появления спроса не равна 1,
                                                      то есть 1 месяцу}
  
    x:=random;
   if x<=(1/6) then d:=1                {генерируем величину спроса}
    else
    if x<=(1/6+1/3) then d:=2
    else
    if x<=(1/6+1/3+1/3) then d:=3
    else
    if x<=(1/6+1/3+1/3+1/6) then d:=4;

    sumazak:=sumazak+d;                   {суммируем величину спроса}
    
    y:=random(9)/100;                      {генерируем промежуток времени появления спроса}
    klspros:=klspros+1;

    if klspros>1 then begin              

{прибавляем к следующему промежутку 0,1, чтобы вышло среднее 0,1,
например если 10 чисел, то получиться (1ч+(2ч-1ч)+(3ч-2ч)+...(10ч-9ч))/10?}

       t:=t+0.1;
       y:=y+t;
       end;

    sumy:=sumy+y;          {суммируем промежутки времени}

    
     write('   t= ',y:7:2);                 {выводим значения на екран}
     write('  spros d=',d:7:1);
     write('  k-stvo tovara=',I:7:2);

     if I>=s1 then                    {используем заданую в условии стратегия поплнения запасов}
     Z:=0;
     if I<s1 then
     Z:=S-1;

     if I>=d then begin                {если можно удовлетворить спрос выводим +
                                                и отнимаем количество товара }
     I:=I-d;
     write ('  + ');
     end;
    
     if I<d then  begin             {если нельзя удовлетворить спрос выводим -
                                             и отнимаем количество товара }
     I:=I-d;
     write ('  - ');
     end;
     writeln(' zakazano=',Z:7:2);       {выводим значения на екран}

     I:=I+Z;
     sumazap:=sumazap+Z;               {суммируем заказынные товары}

  end;
writeln('sumasprosa=',sumazak:7:2,'  sumazazakazov_tovara=',sumazap:7:2, '  zatratu=',(sumazap*3+32):7:2
,' ostatok I=',I:7:2);                {выводим значения на екран}
writeln;
end;

readkey
end.