Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

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(' капиталоемкости оборотного капитала:');

Рекомендуем скачать другие рефераты по теме: доклад по обж, сочинения по картинам.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки