У вас вопросы?
У нас ответы:) SamZan.net

Автосила [2.html

Работа добавлена на сайт samzan.net: 2016-01-17

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

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.




1. о бухучете 4ПБУ 1 8 учетная политика 5ПБУ 5 1 учет ТМЦ Источники информации- 1первичные документ
2. реферат дисертації на здобуття наукового ступеня кандидата медичних наук Київ 2007 Дис
3. Элементная база радиоэлектронной аппаратуры-1
4. При Петре I мореплавателей называли навигаторами
5. лекция ISBN 50400S7539 Viktor E
6. Тема Die lte deutsche Stdt
7. выпячивание слизистой
8. Теоретичні відомості Спектральна ефективність різних видів кодування Перетворення повідом
9. ЛАБОРАТОРНАЯ РАБОТА 2
10. Роль PR в искусственном создании коалиций широких масс