Анализ факторов, определяющих прибыль на транспортном предприятии на примере ОАО Автосила (стр. 11 из 11)

4 Кибернетическая часть

Алгоритм программы:

ТЕКСТ ПРОГРАММЫ:

Program Rent;

Uses Crt;

Var Rob,Kos,Kob:array[1..2] of real;

Prib,Obor,Osn,V:array[1..2] of longint; i:byte;

Begin

Clrscr;

for i:=1 to 2 do begin

Write('Введите балансовую прибыль за ',i,' период: '); Read(Prib[i]);

Write('Введите стоимость основного капитала за ',i,' период: '); Read(Osn[i]);

Write('Введите стоимость оборотного капитала за ',i,' период: '); Read(Obor[i]);

Write('Введите объем перевозок за ',i,' период: '); Read(V[i])

end;

for i:=1 to 2 do begin

Rob[i]:=Prib[i]/V[i];

Kos[i]:=Osn[i]/V[i];

Kob[i]:=Obor[i]/V[i]

end;

Writeln;

{Анализ рентабельности оборота}

Writeln('Изменение рентабельности оборота за счет изменения:');

Writeln(' объема реализации:');

Writeln('Rоб_V = ',(Prib[1]/V[2]-Rob[1])*100:6:2,' %');

Writeln(' прибыли:');

Writeln('Rоб_Приб = ',(Rob[2]-Prib[1]/V[2])*100:6:2,' %');

Writeln('Общее изменение рентабельности оборота: Rоб = ',(Rob[2]-Rob[1])*100:6:2,' %');

{Анализ общей рентабельности}

Writeln;

Writeln('Изменение общей рентабельности за счет изменения:');

Writeln(' капиталоемкости основного капитала:');

Writeln('R_Осн = ',(Rob[1]/(Kos[2]+Kob[1])-Rob[1]/(Kos[1]+Kob[1]))*100:6:2, ' %');

Writeln(' капиталоемкости оборотного капитала:');

Writeln('R_Обор = ',(Rob[1]/(Kos[2]+Kob[1])-Rob[1]/(Kos[2]+Kob[2]))*100: 6:2,' %');

Writeln(' рентабельности оборота:');

Writeln('R_Rоб = ',(Rob[2]/(Kos[2]+Kob[2])-Rob[1]/(Kos[2]+Kob[2]))*100:6:2, ' %');

Writeln('Общее изменение рентабельности оборота: ');

Writeln('R = ',(Rob[2]/(Kos[2]+Kob[2])-Rob[1]/(Kos[1]+Kob[1]))*100:6:2, ' %');

while not keypressed do begin end

End.