Программа диагностики рентабельности предприятия

Размещено на http://www.allbest.ru/

Введение

Как известно вычислительная техника облегчает жизнь человеку и её применение в различных сферах жизни и деятельности людей уже не новинка. Заданием для данной курсовой работы я выбрала программу диагностики рентабельности предприятия. Для создания программы я использовала язык программирования "Си". Для работы программы подходит любой компьютер, поддерживающий операционную систему DOS, либо её эмуляцию (как в ОС Windows).

Язык "Cи" - это универсальный язык программирования, для которого характерны экономичность выражения, современный поток управления и структуры данных, богатый набор операторов. Язык "Cи" не является ни языком "очень высокого уровня", ни "большим" языком, и не предназначается для некоторой специальной области применения, но отсутствие ограничений и общность языка делают его более удобным и эффективным для многих задач, чем языки, предположительно более мощные. Язык "Cи", первоначально предназначавшийся для написания операционной системы "UNIX" на ЭВМ DEC PDP-11, был разработан и реализован на этой системе Деннисом Ричи. Операционная система, компилятор с языка "Cи" и по существу все прикладные программы системы "UNIX" (включая все программное обеспечение, использованное при подготовке этой книги) написаны на "Cи". Коммерческие компиляторы с языка "Cи" существуют также на некоторых других ЭВМ, включая IBM SYSTEM/370, HONEYWELL 6000, INTERDATA 8/32. Язык "C", однако, не связан с какими-либо определенными аппаратными средствами или системами, и на нем легко писать программы, которые можно пропускать без изменений на любой ЭВМ, имеющей "Cи"-компилятор.



1. Постановка задачи

Написать программу диагностики рентабельности предприятия.

Исходные данные: перечень предприятий, показатели деятельности предприятий (выручка от реализации продукции, переменные затраты, постоянные затраты, собственный капитал, долгосрочные кредиты, краткосрочные кредиты, средняя расчетная ставка процента, ставка налогообложения). Реализуемые функции: расчет рентабельности каждого из предприятий на основании показателей деятельности; выделение предприятий с наилучшей и наихудшей рентабельностью.

2. Теоретическая часть

Рентабельность (нем. rentabel - доходный, прибыльный) - относительный показатель экономической эффективности. Рентабельность комплексно отражает степень эффективности использования материальных, трудовых и денежных ресурсов, а также природных богатств.

Основными функциями рентабельности являются: учетная, оценочная, стимулирующая.

Виды рентабельности и их назначение заключается в оценке эффективности работы предприятия. Это относительные показатели, с помощью которых можно увидеть доходность предприятия относительно всех затрат, которые необходимы для получения этого дохода. Выражаются показатели чаще всего в процентах.

Если предприятие работает рентабельно (в нормальных условиях хозяйствования), то это свидетельствует о том, что покупатель, приобретая товар именно в этом магазине (или этого производителя), получает удовлетворение от покупки (когда у него есть выбор), а государство (общество) может за счет налогов на рентабельность поддерживать убыточные объекты, решать приоритетные социальные задачи.

Важнейшими факторами, определяющими рентабельность, являются:

- внедрение нововведений;

- отсутствие страха перед рисками (риск как источник рентабельности);

- рациональное использование средств;

- достижение оптимальных объемов деятельности (т. е. выбор такого масштаба предприятия, который позволяет обеспечить оптимальную рентабельность).

В плане рентабельности крупные предприятия не всегда самые лучшие. Рентабельность растет до тех пор, пока процентная ставка по банковским кредитам будет ниже нормы рентабельности на вложенный капитал; наличие задолженности, допустимо, даже во многих случаях она способствует получению рентабельности.

Рентабельность выполняет следующие четыре функции:

1) ожидаемая рентабельность является основой принятия инвестиционных решений;

2) полученная рентабельность выступает измерителем результатов деятельности предприятия;

3) часть полученной рентабельности является источником самофинансирования предприятия;

4) часть рентабельности поступает в качестве вознаграждения владельцам капитала (в условиях акционерной формы собственности).

С переходом к рыночной экономике показатель рентабельности капитала становится одним из важнейших коэффициентов, характеризующих эффективность основных элементов ресурсов предприятия.

3. Описание метода решения

Требуется с помощью имеющихся данных (Выручка от реализации продукта «В», переменные затраты «Зпер», постоянные затраты «Зпост», собственный капитал «СК», долгосрочные кредиты «ДК», краткосрочные кредиты «КК», средняя расчетная ставка процента «СРСК», ставка налогообложения «СН») найти рентабельность собственного и совокупного капитала.

Сначала рассчитываем прибыль до налогообложения «П»:

П=В-(Зпост-Зпер)

Сумма заемного капитала «ЗК»:

ЗК=ДК+КК

Сумма всего капитала «К»:

К=СК+ЗК

Рентабельность собственного капитала Рск:

Рск=П*100/СК

Рентабельность совокупного капитала Ра:

Ра=П*100/К

4. Алгоритм решения задачи

Алгоритм решения задачи

Из файла rent1.txt считывается в структуру baza[30] все данные о предприятиях. По выше описанным формулам проходит расчет рентабельности. В файл rent2.txt записывается название, рентабельность предприятия и название предприятия с наивысшей рентабельностью.

В файле (рис. 1) информация о предприятия записана построчно, в следующем порядке:

Имя предприятия

Выручка от реализации продукта (В).

Переменные затраты (Зпер).

Постоянные затраты (Зпост).

Собственный капитал (СК).

Долгосрочные кредиты (ДК).

Краткосрочные кредиты (КК).

Средняя расчетная ставка процента (СРСК).

Ставка налогообложения (СН).

Рис. 1

Графическое описание метода решения задачи представлено на рис. 2.

Конструирование алгоритма.



Рис. 2 - Структурная схема алгоритма

Описание программной реализации. Программа рассчитывает показатели рентабельности предприятия. Переменные, нужные для реализации программы описаны в табл. 1.



Таблица 1 - Описание глобальных переменных

Название переменной	Тип	Описание переменной
vor,sk,dk,kk,sn,srsk,perz,posz	Int	Данные о предприятии
P,ZK,K,Rsk,Ra	Float	Переменные для расчетов
name[20]	Массив char	Имя предприятия
i,j,m	int	Счетчики
f1	File	Файловая переменная

Функции, используемые описаны в табл. 2.

Таблица 2 - Описание функций

№ п/п	Наименование функции	Назначение
1	menu()	Рисует меню

5. Описание программы

Назначение программы

Данная программа может использоваться в расчетах рентабельности предприятий.

Системные требования:

Минимальный набор технических средств:

- процессор, начиная с 486XT;

-оперативная память не менее 2 Мбайт:

-монитор VGA, SVGA;

-видеоадаптер VGA,SVGA с памятью не менее 512 Кбайт;

-наличие НЖМД или НГМД;

-наличие ОС MS-DOS 6.22 (или более поздние версии) или Windows 95/98/XP (или Windows NT с поддержкой русского языкового драйвера)

-стандартная клавиатура.



6. Контрольный пример

программа рентабельность предприятие диагностика

Запишем в файл rent1.txt данные о двух предприятиях (рекомендуется записывать именно в таком порядке: имя, В, Зпер, Зпос, СК, ДК, КК, СРСК, СН).

Запустим программу. Она считает данные, выведет их на экран и посчитает рентабельность первого предприятия …

…И второго...



Откроем файл rent2.txt в котором записана рентабельность всех предприятий и предприятие с наивысшей рентабельностью.



Заключение

В ходе выполнения данной курсовой работы была разработана программа, реализующая, в соответствии с полученным заданием, диагностику рентабельности предприятия. Результаты многочисленных проведённых тестов указывают на то, что программа работает верно.

Программа предназначена для использования в качестве простого и быстрого расчета рентабельности предприятий.

В этой работе я попытался учесть все возможные ситуации и возможные ошибки. Полученная задача и цель были выполнены. Но все возможности языка еще предстоит изучить и понять.



Список используемой литературы

1. Логанчук М.Л. Лекции I курса по предмету “Программирование на языках высокого уровня”.

2. Стенли Б. Липпман “Язык программирования С++”.

3. Б. Керниган, Д. Ритчи “Язык программирования Си ++”.

4. В.П. Грузинов, В.Д. Грибов “Экономика предприятия”.



Приложение

Листинг программы

#include <iostream.h>

#include <conio.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <graphics.h>

struct Baza{

int vor,sk,dk,kk,sn,srsk,perz,posz;

float P,ZK,K,Rsk,Ra;

char name[20];

}baza[30];

int i,j,m;

FILE *f1;

float max;

void menu()

{

/* request auto detection */

int gdriver = DETECT, gmode, errorcode;

int midx, midy;

/* initialize graphics and local variables */

initgraph(&gdriver, &gmode, "");

/* read result of initialization */

errorcode = graphresult();

if (errorcode != grOk) /* an error occurred */

{

printf("Graphics error: %s\n", grapherrormsg(errorcode));

printf("Press any key to halt:");

getch();

exit(1); /* terminate with an error code */

}

char q;

int i;

setfillstyle(0, 2);

bar(0,0,getmaxx(),getmaxy());

/* setfillstyle(1, 9);

bar(0,0,getmaxx(),50);

*/

bar(0,0,50,getmaxy());

bar(getmaxx()-50,50,getmaxx(),getmaxy());

bar(50,getmaxy()-50,getmaxx(),getmaxy());

setcolor(4);

/*rectangle(50,50,getmaxx()-50,getmaxy()-50); */

setcolor(9);

settextstyle(3,0,5);

outtextxy(180,60,"KURSOVAYA");

setcolor(4);

settextstyle(1,0,2);

outtextxy(getmaxx()/2-50,getmaxy()/2-50,"PUSK");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2-10,"HELP");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2+30,"EXIT");

i=0;

do

{

q=getch();

if(q=='P')

if(i!=2)i++;

if(q=='H')

if(i!=0)i--;

if(i==0)

{

setcolor(4);

outtextxy(getmaxx()/2-50,getmaxy()/2-50,"PUSK");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2-10,"HELP");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2+30,"EXIT");

}

if(i==1)

{

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2-50,"PUSK");

setcolor(4);

outtextxy(getmaxx()/2-50,getmaxy()/2-10,"HELP");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2+30,"EXIT");

}

if(i==2)

{

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2-50,"PUSK");

setcolor(1);

outtextxy(getmaxx()/2-50,getmaxy()/2-10,"HELP");

setcolor(4);

outtextxy(getmaxx()/2-50,getmaxy()/2+30,"EXIT");

}

}while(q!=' ');

if(i==1)

{

setfillstyle(0, 3);

bar(0,0,getmaxx(),getmaxy());

setfillstyle(9, 9);

bar(0,0,getmaxx(),50);

bar(0,0,50,getmaxy());

bar(getmaxx()-50,50,getmaxx(),getmaxy());

bar(50,getmaxy()-50,getmaxx(),getmaxy());

setcolor(4);

settextstyle(0,0,0);

outtextxy(getmaxx()/2-200,getmaxy()/2-120,"Programma diagnostiki rentabelnosti predpriyatiya");

outtextxy(getmaxx()/2-200,getmaxy()/2-90,"Dannuyu programmu razrabotala ");

outtextxy(getmaxx()/2-200,getmaxy()/2-70,"studentka 1go kursa gruppi 4b Proskurina V.A.");

getch();

menu();

}

if(i==2) abort();

closegraph();

}

void main()

{

menu();

i=0;

clrscr();

cout<<"Tema kursovoy: Programma diagnostiki rentabelnosti predpriyatiya";

cout<<"\nPokazateli Znacheniya\n";

f1=fopen("rent1.txt", "r");

fseek(f1,0,0);

while(!feof(f1))

{

fscanf(f1,"%s%d%d%d%d%d%d%d%d",&baza[i].name,&baza[i].vor,&baza[i].perz,&baza[i].posz,&baza[i].sk,&baza[i].dk,&baza[i].kk,&baza[i].srsk,&baza[i].sn);

cout<<"Viruchka ot realizacii produkcii ";

cout<<baza[i].vor;

cout<<"\nPeremenniye zatrati ";

cout<<baza[i].perz;

cout<<"\nPostoyannie zatrati ";

cout<<baza[i].posz;

cout<<"\nSobstvenniy kapital ";

cout<<baza[i].sk;

cout<<"\nDolgosrochnie krediti ";

cout<<baza[i].dk;

cout<<"\nKratkosrochnie krediti ";

cout<<baza[i].kk;

cout<<"\nSrednyaya raschetnaya stavka procenta ";

cout<<baza[i].srsk;

cout<<"\nStavka nalogooblojeniya ";

cout<<baza[i].sn;

cout<<"\nRachitaem pribil do nalogooblajeniya. Dlya etogo iz viruchki ot ";

cout<<"\nrealizacii produkcii vichetaem summu postoyannih i peremennih zatrat:";

baza[i].P=baza[i].vor-(baza[i].perz+baza[i].posz);

cout<<"\nP= "<<baza[i].P;

cout<<"\nsumma zaemnogo kapitala skladivatsya iz summ dolgosrochnih i kratkosrochnih kreditov:";

baza[i].ZK=baza[i].dk+baza[i].kk;

cout<<"\nZK= "<<baza[i].ZK;

cout<<"\nsumma vsego kapitala predpriyatiya skladivaetsya iz summ sobstvennogo i zaemnogo kapitalov:";

baza[i].K=baza[i].sk+baza[i].ZK;

cout<<"\nK= "<<baza[i].K<<"\n";

cout<<"rentabelnost sobstvennogo kapitala-eto otnoshenie pribili do nalogooblozheniya\n";

cout<<"k srednegodovoy summe sobstvennogo kapitala, virazhennogo v %\n";

baza[i].Rsk=baza[i].P*100/baza[i].sk;

cout<<"Rsk= "<<baza[i].Rsk;

cout<<"\nRentabelnost sovokupnogo kapitala(aktivov) - eto otnoshenie pribili do\n";

cout<<"nalogooblazheniya k srednegodovoy summe vsego kapitala, virazhennoe v %\n";

baza[i].Ra=baza[i].P*100/baza[i].K;

cout<<"Ra= "<<baza[i].Ra;

getche();

i++;

}

fclose(f1);

max=0;

for(j=0;j<i;j++)

if(baza[j].Ra > max)

{

max=baza[j].Ra;

m=j;

}

cout<<"naibolshaya rentabelnost u "<<baza[m].name;

char s[20];

f1=fopen("rent2.txt","w");

for(j=0;j<i;j++)

{

fputs(baza[j].name,f1);

fseek(f1,1,1);

sprintf(s,"%f",baza[j].Rsk);

fputs(s,f1);

fseek(f1,1,1);

sprintf(s,"%f",baza[j].Ra);

strcat(s,"\n");

fputs(s,f1);

}

fputs("maksimalnaya rentabelnost u ",f1);

fputs(baza[m].name,f1);

fclose(f1);

getche();

}

Размещено на Allbest.ru

...