3. Федеральный фонд обеспечения медицинского страхования - 5,1 %

ФФОМС= ЗП общ*5,1%/100% (15)

ФФОМС=34578*5,1%/100%=1763,5 руб.

ФСС+ПФР+ФФОМС=10373,36руб.

3.4 Расчет расходов на содержание и эксплуатацию ПЭВМ

Расходы на содержание и эксплуатацию ПЭВМ рассчитываются по следующим статьям:

1) Основная ЗП работников, обеспечивающих функционирование ПВЭМ.

Для системных программистов: Нобсл=25, Кт=2,02 , Х=31067,4руб

ЗПосн.год.=((Х*Кт/Нобсл.)*(1+П/100))*12 (16)

ЗПосн.год=(31067,4руб *2,02/25)*(1+40%/100%)*12мес=42172руб

2) Дополнительная ЗП обслуживающего персонала - 11,3% от основной заработной платы

ЗПдоп=42172*11,3%/100%=4765,4 руб.(за год)

Общая ЗП будет равна сумме основной и дополнительной:

ЗПобщая=ЗПосн+ЗПдоп (17)

ЗПобщ.год=42172+4765,4 =46937,4 руб.

3)Начисления на ЗП обслуживающего персонала (30%):

Нзп=ЗПгод.о.п*30% (18)

Нзп. год.= 46937,4 *0,3=14081,22руб.

4) Социальные отчисление с заработной платы вспомогательного персонала (30% от общей заработной платы)

Совп. год=(ЗПобщая год + Нзп год)*30%= 46937,4 *0,3=14081,22 руб.(19)

5) Амортизационные отчисления определяются в размере 25% от балансовой стоимости ПВЭМ (Кб)(исходные данные).

А=Кб*25 (20)

Балансовая стоимость ЭВМ равна 30000 руб. (в том числе: системный блок-22000 руб.; монитор-6000 руб.; комплектующие изделия-2000 руб.)

А= 30000*25%/100%=7500 руб. (моральный износ ЭВМ)

6)Затраты на электроэнергию:

Зс.эн(осв)=Фэф * Цэ * P (21)

Фэф - эффективный годовой фонд работы ПЭВМ в часах (исходные данные 2016 час)

Цэ - стоимость 1кВт/ч. (определяется самостоятельно исходя из рыночной стоимости)

P - мощность ПЭВМ с периферией в кВт/ч.

P= 0,7-1,2- в зависимости от периферии (определяется самостоятельно)

Зс.эн(осн)=2016час*3,65*1,0*0,8=5886,72 руб.

7) Расходы на профилактику составляют 2% от балансовой стоимости ПВЭМ с периферией.

Зпроф.=Кб*2% (22)

Зпроф=30000*0,02=600 руб.

8) Прочие производственные расходы берутся в размере 30% от основной ЗП работников, обеспечивающих функционирование ПВЭМ.

Ппр=42172*0,3=12651,6руб.

Зобщ.год=46937,4+12651,6+10373,3+5886,72+600+14081,22=90530,24 руб.

Сложив все компоненты, определяем годовые расходы на содержание и эксплуатацию 1-ой ПЭВМ.

Далее определяем себестоимость 1-го машино-часа работы ПВЭМ, которая определяется по формуле:

Смч .= (Зобщ/12мес*30дн*8час)*Т (23)

Смч=(90530,24 /12*30*8) 227,6 =7154,4руб.

3.5 Расчет себестоимости программного продукта

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

В себестоимость программного продукта входят следующие элементы:

1) Основная ЗП исполнителя работ по созданию программного продукта;

2) Дополнительная ЗП исполнителя работ по созданию программного продукта;

3) Начисления на ЗП:

4) Расходы на содержание и эксплуатацию ПВЭМ, относящихся к данному программному продукту;

5) Прочие расходы.

Первые 4 элемента уже известны, а прочие расходы составляют 10% от суммы первых 4-х элементов.

Структуру себестоимости программного продукта опишите в таблице № 5

Таблица 5

№	Элементы себестоимости	Сумма (руб.)	% в общей сумме себестоимости
1	Основная ЗП исполнителя	31067,4	52%
2	Доп. ЗП исполнителя	3510,6	6%
3	Начисления на ЗП	10373,36	17%
4	РС и ПЭВМ	600	2%
5	Прочие расходы (1+2+3+4)*10%	4555,1	23%
	Итого:	54661,56	100%

3.6 Расчет цены программного продукта

Цена - это денежное выражение стоимости продукции.

Цена складывается из нескольких компонентов:

Ц=С+П+НДС (24)

где

С - себестоимость программного продукта

П - прибыль, которую берем в размере 40% от себестоимости

НДС- налог на добавленную стоимость, который берется в размере 18% от суммы себестоимости и прибыли.

П=54661,56*40%/100%=21864,6 руб.

НДС=(54661,56+21864,6)*0,18=13774,7 руб.

Ц=54661,56+21864,6 +13774,7 =90300,86 руб.

3.7 Расчет экономической эффективности

Эффективность это результативность т.е. получение результата с учетом затрат - более того с минимальными затратами трудовых, материальных, финансовых средств труда.

 (более 15 %) (25)

? ПР = приблизительный рост прибыли за два года

? ПР= Пр отч.год - Пр прош.год

КВ - капитальные вложения = себестоимость программного продукта

Во втором году планируется увеличение прибыли с 40% до 65%, следовательно, планируемая прибыль за второй год составляет Ппр=54661,56*0,65=35530руб.

? П=35530-21864,6 =13665,4 руб.

Эа=13665,4 /54661,56=0,25=25%

Вывод: В экономической части ДП произведен расчет себестоимости и цены программного продукта «разработка базы банных строительной компании «Красногорскстрой» ».

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

Создание программного продукта считается эффективным.

Заключение

Тема дипломного проекта была выбрана в соответствии с заданием, выданном руководителем преддипломной практики.

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

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

В третьей главе выполнены следующие задачи, а именно:

Составленная смета затрат на программный продукт.

Подводя итоги выполненного задания, следует отметить, что в нём были достигнуты поставленная цель и задачи.

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

1. ГОСТ 19.402 - 78. Описание программы.

2. ГОСТ 19.503 - 79. Руководство системного программиста. Требования к содержанию и оформлению.

3. ГОСТ 19.505 - 79. Руководство оператора. Требования к содержанию и оформлению.

4. ГОСТ 24.207 - 80. Требования к содержанию документов по программному обеспечению

5. Род Стивенс. Delphi. Готвые алгоритмы г. Санткт Петербург: издательство «Питер», 2004г. - 384с.

6. Галисеев Г. В. Программирование в среде Delphi . Самоучитель;

7.Жуков А. В. Изучаем Delphi. г. Санкт-Петербург: издательство «Питер», 2001 г. - 352 с.;

8. Фаронов В. В. Delphi. Программирование на языке высокого уровня г. Санкт-Перетбург: издательство «Питер», 2007 г. - 640 с.;

9. Бобровский С.И. Delphi - Учебный курс. г. Санкт-Петербург: издательство «Питер», 2004 г. - 736 с.;

10. www.edelphi.ru/ (интернет -источник)

11. www.delphi.int.ru/ (интернет -источник)

12. www.delphiexpert.ru/ (интернет -источник)

Приложение. Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, DB, StdCtrls, Grids, ComObj, DBGrids, ADODB, ExtCtrls, DBCtrls,

ComCtrls, jpeg;

type

TForm1 = class(TForm)

con1: TADOConnection;

qry1: TADOQuery;

mm1: TMainMenu;

btn1: TButton;

btn2: TButton;

btn3: TButton;

btn4: TButton;

ds: TDataSource;

File1: TMenuItem;

Exit1: TMenuItem;

N1: TMenuItem;

Print1: TMenuItem;

N2: TMenuItem;

Save1: TMenuItem;

dlgOpen1: TOpenDialog;

dlgSave1: TSaveDialog;

N3: TMenuItem;

dlgPnt1: TPrintDialog;

Button1: TButton;

MonthCalendar1: TMonthCalendar;

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Print1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit2, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

form5.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from jilie');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

form6.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from mun');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

form7.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from sluj');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

form8.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from soc');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

XL: Variant;

AppLocation:string;

begin

try XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта

except

ShowMessage('Cannot start MS Excel.');

end;

GetDir(0,AppLocation); // Возвращает текущий каталог диска

XL.WorkBooks.Open(AppLocation +'\Test.xls');

XL.visible := true;

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

case MessageBox(0,'Выйти из программы?','Выход из программы', MB_YESNO) of

IDYES:

begin

Form1.Close;

end;

IDNO:

end;

form2.Close;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form2.close;

end;

procedure TForm1.N3Click(Sender: TObject);

var

PathToDb:string;

begin

con1.Connected:=false;

If dlgOpen1.Execute then

PathToDb:=dlgOpen1.FileName

else ShowMessage('Ошибка');

begin

con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +PathToDb+';Persist Security Info=False';

con1.LoginPrompt := False;

con1.Connected:=true;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

var fn: string;

begin

if dlgsave1.Execute then

begin

fn := dlgsave1.FileName;

Case Form1.dlgsave1.FilterIndex of

1 : fn:=ChangeFileExt(fn,'.txt');

end;

end;

end;

procedure TForm1.Print1Click(Sender: TObject);

begin

dlgpnt1.execute;

end;

procedure TForm1.Save1Click(Sender: TObject);

begin

if not dlgsave1.Execute then exit;

if CopyFile(Pchar(dlgopen1.FileName),Pchar(dlgsave1.FileName+'.mdb'),true)

then ShowMessage('Фаил сохранен')

else ShowMessage('Ошибка сохранения');

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Caption:=timetostr(time);

end;

end.

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