Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
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.