Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

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. на тему- ' Аварийноспасательные средства сверхзвуковых самолетов' Работу выполнил ст
2. АбрисД Дольник В
3. Столыпин ПА1
4. тема З яких компонентів вона складається Що таке програма Як працює комп~ютер Які функції викон.
5. Деньги.html
6. групп Вопросы отборочной анкеты S1Работаете ли вы или члены Вашей семьи в Возможно неско
7. 24 декабря 2013 года ’ 4607 Положение о проведении конкурса на разработку концепции идентичности Ста.html
8. Управление финансовыми результатами (на примере государственного унитарного предприятия Главного управления исполнения наказаний Министерства Юстиции Российской Федерации по Свердловской области)
9. тематика Специальность 240 01 01 Программное обеспечение информационных технологий Группа Препод
10. Анализ товароведных характеристик текстильных товаров льняных тканей
11. Демонтаж, монтаж и регулировка сцепления
12. Донецке. Она родилась здоровым ребёнком с нормальным весом и ростом
13. ОБОГОМОЛЬЦЯ ldquo;Затвердженоrdquo; на методичній нараді кафедра факультетсь
14. одно из важнейших явлений человека поскольку порождает такие феномены как обмен информацией восприятие л
15. В то время семья ехала на отдых в Россию
16. века роль русской православной церкви в объединении Руси
17. Прогнозирование и планирование Фамилия Имя
18. Розовая Наименование сырья Расход сырья г Мука
19. Диоксин суперэкотоксикант XXI века
20. 2000 года МЕТОДИЧЕСКОЕ ПОСОБИЕ Для проведения занятий по боевой подготовке разде