Задача для паскаля.

[Анжелика]

Помогите, очень прошу!!! Я очень плохо в этом разбираюсь...(((

Составить блок схему алгоритма, программу расчета, и произвести расчет срока окупаемости и годового экономического эффекта нового станка с учетом коэффициента А приведение его к тождественному эффекту. Если выполняются ограничения:

то напечатать, что новый станок окупиться уже при производстве. В противном случае можно рассчитать срок окупаемости станка:

и если Ток > (1/Ен), то напечатать, что станок не эффективен, в противном случае можно рассчитать годовой экономический эффект от внедрения

и вывести напечатать Ток и Эгод.
В приведенных выражениях Ен – нормативный коэффициент эффективности (принимаем Ен=0,12), а А рассчитываем по формуле


Наименования значения остальных коэффициентов приведены в таблицы № 1.
В программе учесть, что деление на 0 не допустимо и, следовательно, если А * С1 –С2 =0, Ток не рассчитывается. В этом случае при К2 < А * К1 станок окупиться при производст-ве, а при К2 > А * K1 станок не эффективен.
В ходе работы программы должны быть получены результаты для значений коэф-фициентов, приведенных в таблице № 1, в том числе для ряда значений коэффициента, помеченного *. Значение коэффициента, помеченного *, наряду с результатами расчета, выводиться на печать.




Вид оборудования Параметры Обозначение
Станок
старый Кап.вложения (1000 руб.) K1 *
Эксплуат. расх. (1000 руб.) C1 12
Производит. (шт.) B1 3
Коэф. Использования N1 0,7
Надежность P1 0,9
Станок
новый Кап.вложения (1000 руб.) K2 50
Эксплуат. Расх. (1000 руб.) C2 10
Производит. (шт.) B2 3
Коэф. Использования N2 0,8
Надежность P2 0,9
Значения параметра помеченного * 30
35
40
45
50


Пожалуйста помогите.....

[Анжелика]

Вообще не могу решить

[Анжелика]

Вот формулы: *- здесь умножить
Ограничения:
{A*K1>K2 { A*K1= K2 {A*K1>K2
{A*C1=C2 или {A*C1>C2 или {A*C1>C2


Ток=(К2-А*К1)/(А*С1-С2);
Эгод= А*(С1+Ен*К1)-(С2+Ен*К2)
А=((В2*N)/(В1*N))*Т
T=(ln(1-P2))/(ln(1-P1))

[Анжелика]

Люди вы меня игнорируете? Хотя бы написали что не знаете как делать, мне бы легче стало.

[Serge_Bliznykov]

Анжелика, на всех форумах действует правило - есть что сказать — говори, нет — молчи.
Ну представьте, что 60 человек, которые просмотрели эту тему, каждый напишет - "я не знаю, что делать"...
:-( Вам реально полегчает? очень сомневаюсь...

Далее, чуть по существу. Поймите, я не могу понять, какие у Вас данные есть?... Где таблица №1 ?
"Вид оборудования Параметры Обозначение
Станок ...." - я подозреваю, что этот ужас и есть таблица?
отсканируйте/сфоткайте эту таблицу или нарисуйте её, например, хотя бы в том же Word - и полученный файл выкладывайте сюда, в форум.

Поймите, спасение утопающих - дело рук самих утопающих!! и никто Вам не поможет, если не поймёт, что Вы хотите сделать и, главное, КАК это сделать.
Вы знаете как и по каким формулам считать, но не можете это запрограммировать?
Так распишите подробно ход решения (словами - откуда берём цифры, куда подставляем, как считаем) и Вам обязательно помогут реализовать Ваши идеи.

не отчаивайтесь. дорогу осилит идущий!

[Анжелика]

Вот таблица, я её писала в первом сообщении

Станок старый:
Кап.вложения (1000 руб.)
K1 =*
Эксплуат. расх. (1000 руб.)
C1= 12
Производит. (шт.)
B1=3
Коэф. Использования
N1=0,7
Надежность
P1=0,9
Станок новый: Кап.вложения (1000 руб.)
K2=50
Эксплуат. Расх. (1000 руб.)
C2=10
Производит. (шт.)
B2=3
Коэф. Использования
N2=0,8
Надежность
P2=0,9
Значения параметра помеченного *:
30
35
40
45
50

[Roof]

лови , вроде так

  const
  k2=50;  // это  капиталовложения
 // zn= 5;
var

k1: array[1..5] of real; // массив капиталовложений (*)
i, j, n, m: integer; //счетчики
c1, c2: real; // эксплуатационные расходы
b1, b2: real; // производительность
n1, n2: real;  //коэф. использования
p1, p2: real; //надежность

t, a: real; //коэффициенты
tok: real; //срок окупаемости

begin
writeln('Vvedite P1');
readln(p1);
writeln('Vvedite P2');
readln(p2);
writeln('Vvedite B1');
readln(b1);
writeln('Vvedite B2');
readln(b2);
writeln('Vvedite N1');
readln(n1);
writeln('Vvedite N2');
readln(n2);

k1[1]:= 30;
for i:= 2 to 5 do begin
  k1[i]:= k1[i-1]+5;
end;

t:= ln(1-p2)/ln(1-p1);
a:= ((b2*n2)/(b1*n1))*t;

for n:=1 to 5 do begin
   if ((a*k1[n]>k2) and (a*c1=c2)) or ((a*k1[n]=k2) and (a*c1>c2))
                             or ((a*k1[n]=k2) and (a*c1>c2))
   then begin
     writeln('Noviy Stanok effektiven pri k1= ', k1[n]:4:3);
   end;
 end;

if (a*c1-c2)=0 then begin

   for j:= 1 to 5 do begin
     if (k2< a*k1[j]) then
        writeln('Stanok effectiven pri proizvodstve pri k1= ', k1[j]:4:3);
     if (k2> a*k1[j]) then
        writeln('Stanok neeffectiven pri k1= ', k1[j]:4:3);
   end;
      end
else begin
   for m:= 1 to 5 do begin
    tok:= (k2 - a*k1[m])/(a*c1-c2);
    writeln('Tok= ', tok:4:3, 'pri k1= ', k1[m]:4:3);
   end;
end;
writeln('Znachenie T= ',t:4:3);
writeln('Znachenie A= ',a:4:3);
readln;


end.