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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ

ГОСУДАРСТВЕННОЕ ВЫСШЕЕ УЧЕБНОЕ ЗАВЕДЕНИЕ

ДОНЕЦКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КУРСОВАЯ РАБОТА

Тема работы: Расчет технико-экономических показателей выбора наиболее рационального метода получения заготовок по себестоимости детали

По дисциплине “Введение в информатику”

Донецк 2010

Сранить метод М₃ и М₁₀. Исходные значения для припусков в М₃ принять равными Z_c3=3-7, ДZ_c3=1; Z_d3=3-5, ДZ_d3=0.5(мм); в М₃ принять равными Z_c10=4-13, ДZ_c10=1.2; Z_d10=13-4, ДZ_d10=-1.2(мм).

Исходные данные:

Наименования	Обозначения	Единицы измерения	Величина
Годовой выпуск деталей	N	шт	20000
Стоимость единицы массы заготовки	CМ	грн./кг	0.19;0.26;
Коэффициент, который учитывает транспортно-заготовительные расходы	KТЗ		1,06
Коэффициент, который учитывает средний процент выполнения норм	КВВ		1,18
Коэффициент, который учитывает выполнение норм	КПР		1,3
Стоимость отходов(стружка)	Со		18,4

Реферат

Объектом исследования является метод получения заготовок.

Цель работы:

1) разработка алгоритма и составление программы на языке Delphi, предназначенной для выбора наиболее рационального метода получения заготовок по себестоимости детали;

2) выбора наиболее рационального метода получения заготовок по себестоимости с помощью табличного процессора.

В пояснительной записке представлены:

- блок-схема и описание алгоритма выбора наиболее рационального метода получения заготовок по себестоимости детали;

- текст программы и результаты ее работы;

- приведен контрольный расчет в табличном виде;

-выполнено сравнение и анализ результатов программы и контрольного расчета.

Содержание

• ВВЕДЕНИЕ
• 1. ПОСТАНОВКА ЗАДАЧИ
• 2. КОНТРОЛЬНЫЙ ПРИМЕР
• 3. БЛОК-СХЕМА АЛГОРИТМА
• 4. ОПИСАНИЕ АЛГОРИТМА
• 5. ХАРАКТЕРИСТИКА ДАННЫХ И ИХ УСЛОВНЫЕ ОБОЗНАЧЕНИЯ
• 6. ТЕКСТ ПРОГРАММЫ
• 7. ОПИСАНИЕ ПРОГРАММЫ
• 8. ОКНО РАБОТЫ ПРОГРАММЫ
• 9. ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ
• ЗАКЛЮЧЕНИЕ
• СПИСОК ЛИТЕРАТУРЫ

введение

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

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

Штамповка. Заготовки, получаемые штамповкой, имеют наименьший припуск на механическую обработку. Форма штамповки максимально приближена к форме детали. Это обеспечивает минимальные затраты на материал и механическую обработку. Но при этом необходимы затраты на эксплуатацию кузнечного оборудования и затраты на дорогую индивидуальную для каждой детали технологическую оснастку - штампы. Стоимость штампов условно разделяют на всю годовую программу выпуска деталей. Поэтому стоимость получения одной заготовки зависит от этой величины.

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

Заготовки из проката. Для этого вида заготовок применяются круглый прокат. Форма заготовки при механической обработке уходит в отходы. Поэтому затраты на материалы и механическую обработку максимальные по сравниваемым методам. Другие затраты отсутствуют. Стоимость такой заготовки также не зависит от программы выпуска.

алгоритм заготовка деталь себестоимость

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

Расчет технико-экономических показателей выбора наиболее рационального метода получения заготовок по себестоимости детали

Таблица 1

Наименование	Обозначение	Единица измерения	Значение
Длина	L1, L2,L3	м	0,05; 0,03; 0,08
Диаметр	d1, d2,d3	м	0,05; 0,03; 0,08
Плотность материала		кг/м3	7800
Методы обработки: базовый новый	М3 М10

Заготовку изготовляют различными методами:

М₃ - ковка свободная;

М₁₀ - штамповка на механических прессах.

При сравнении методов один считается базовым, то есть используется в настоящий момент на производстве, а второй новым. Новый метод - это метод, которым предлагают заменить базовый. На первом этапе базовый и новый варианты подвергаются предварительной оценке, с вычислением следующий показателей:

Коэффициент использования материала:

К_и.м. = G_д/G_з,

где G_д, G_з - масса детали и заготовки, кг.

Трудоемкость изготовления (или штучное время на выполнение указанной операции) детали для нового варианта, мин:

t_Н = t_б (G_Н/G_б)

где t_б - трудоемкость изготовления детали по базовому варианту, нормо-ч. или нормо-штучного времени, мин;

G_Н, G_б - масса заготовки при новом и базовом вариантах кг.

Снижение материалоемкости, кг:

G = (G_б - G_Н)N_г

где N_г - годовой объем выпуска деталей, шт.

Себестоимость изготовления детали, которая на 80% определяется затратами на материалы и заработную плату, то есть:

где М₀ - затраты на основные материалы, руб.;

З₀ - заработная плата основных рабочих, руб.

Стоимость основных материалов:

М₀ = С_зС_мk_т.з. - g₀C₀10^-3

где С_з - масса заготовки, кг;

С_м - стоимость единицы массы заготовки, руб/кг;

k_т.з. - коэффициент, учитывающий транспортно-заготовительные расходы;

g₀ - масса отходов на одну деталь, кг;

С₀ - стоимость отходов, руб/т.

Заработная плата основных рабочих вычисляется по отношению:

З₀ = 1,25 k_в.в. k_пр

где k_в.в - коэффициент, учитывающий средний процент выполнения норм;

k_пр - коэффициент, учитывающий премии и другие доплаты;

t_шi - штучное время на выполнения i-й операции, мин.;

C_тi - часовая тарифная ставка работы, выполняемой на i-й операции, руб.

Себестоимость изготовления детали вычисляется по приведенным формулам и для базового варианта С_б, и для нового С_н.

Экономия по себестоимости определяется по формуле:

С = (С_б - С_н) N_г

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

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

Рисунок 1 - Эскиз детали

2. контрольный пример

Рабочий лист с исходными данными:

Рисунок 2 - Расчеты в MS Excel



Рисунок 3 - Формулы в MS Excel

3. БЛОК-СХЕМА АЛГОРИТМА

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



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

4. ОПИСАНИЕ АЛГОРИТМА

Представленный алгоритм реализует циклический вычислительный процесс с известным числом повторений по параметру i (кол-во методов сравнения) и включает в себя следующие блоки:

1. Начало алгоритма.

2. Ввод исходных данных.

3. Расчет массы детали, инициализация начальных параметров цикла

4. Блок организации цикла по параметру i (где i - шаг по припуску Zc3).

5. Расчет начального значения Zd3.

6. Блок организации цикла по параметру j (где j - шаг по припуску Zd3).

7. Расчет начального значения Zc10.

8. Блок организации цикла по параметру l (где j - шаг по припуску Zc10).

9. Расчет начального значения Zd10.

10. Блок организации цикла по параметру f (где j - шаг по припуску Zd10).

11. Расчет массы заготовки G и массы отходов на одну деталь G₀.

12. Расчет штучного времени ti для М3 и М10.

13. Расчет стоимости основных материалов М₀ для метода М₃.

14. Расчет заработной платы З₀ для для метода М₃.

15. Расчет себестоимости изготовления детали С для для метода М₃.

16. Расчет стоимости основных материалов М₀ для метода М₁₀.

17. Расчет заработной платы З₀ для для метода М₁₀.

18. Расчет себестоимости изготовления детали С для для метода М₁₀.

19. Расчет экономии по себестоимости ДC для метода М₁₀.

20. Вывод результатов.

21-23.формирование цикла для нахождение оптимального метода по себестоимости

24.Увеличение значения Z_d10.

25,Увеличение значения Z_с10.

26,Увеличение значения Z_d3.

27.Увеличение значения Z_с3.

28.Конец алгоритма.

5. ХАРАКТЕРИСТИКА ДАННЫХ И ИХ УСЛОВНЫЕ ОБОЗНАЧЕНИЯ

Таблица 2

№ п/п	Наименование	Обозначение в алгоритме	Обозначение в программе	Тип данных
1	Масса заготовки	G	G	Real
2	Годовой выпуск деталей	Nг	Ng	Real
3	Стоимость единицы массы заготовки	Cm	Cm	Real
4	Коэффициент, учитывающий транспортно-заготовительные расходы	Кт.з	k_tz	Real
5	Масса отходов на одну деталь	G0	G0	Real
6	Стоимость отходов	C0	C0	Real
7	Коэффициент, учитывающий средний процент выполнения норм	Квв	k_vv	Real
9	Коэффициент, учитывающий премии и другие доплаты	Кпр	k_pr	Real
10	Штучное время на выполнение операции	Tб Tн	Tb_3 Tb_10	Real
11	Часовая тарифная ставка токаря, руб	Cтi	Ct	Real
12	Снижение материалоемкости	ДG	dG	Real
13	Стоимость основных материалов	M0	M0	Real
14	Заработная плата основных рабочих	Зо	Zо	Real
15	Себестоимость изготовления деталей	C	C	Real
16	Эконом.по себестоимости	ДС	dC	Real
17	Длина	L1,L2,L3	L1,L2,L3	Real
18	Диаметры	D1,D2,D3	D1,D2,D3	Real
19	Плотность	с	po	Real

6. ТЕКСТ ПРОГРАММЫ

unit KURS;

interface

uses

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

Dialogs, StdCtrls, Grids, ExtCtrls, Math;

type

TForm1 = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label6: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

Label9: TLabel;

StringGrid5: TStringGrid;

Button1: TButton;

Button2: TButton;

Edit7: TEdit;

Label16: TLabel;

Edit21: TEdit;

Label8: TLabel;

Edit3: TEdit;

Label2: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Label4: TLabel;

Edit8: TEdit;

Edit10: TEdit;

Edit13: TEdit;

Label17: TLabel;

Edit15: TEdit;

Label18: TLabel;

Label19: TLabel;

Edit17: TEdit;

Edit18: TEdit;

Edit19: TEdit;

Label20: TLabel;

Edit22: TEdit;

Edit23: TEdit;

Edit24: TEdit;

Label10: TLabel;

Edit25: TEdit;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Edit11: TEdit;

Edit12: TEdit;

Edit14: TEdit;

Edit16: TEdit;

Edit26: TEdit;

Edit27: TEdit;

Label14: TLabel;

Image1: TImage;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

arr = array [1..2] of real;

const k_tz=1.06;

k_vv=1.18;

k_pr=1.3;

var

Form1: TForm1;

Cm : arr;

Ng,C0,Ct,

l1,l2,l3,

d1,d2,d3,

po,m,G_3,G0_3,G_10,G0_10,

Zcn_3,Zck_3,dZc_3,Zc_3,

Zdn_3,Zdk_3,dZd_3,Zd_3,

Zcn_10,Zck_10,dZc_10,Zc_10,

Zdn_10,Zdk_10,dZd_10,Zd_10,

M0_3,Z0_3,C_3,M0_10,Z0_10,C_10,dC : real;

n1,n2,m1,m2,i,j,l,f,k : integer;

tb_3,tb_10:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j,k : integer;

begin

l1:=strtofloat(edit5.Text); l2:=strtofloat(edit4.Text); l3:=strtofloat(edit6.Text);

d1:=strtofloat(edit10.Text); d2:=strtofloat(edit8.Text); d3:=strtofloat(edit13.Text);

po:=strtofloat(edit15.Text);

m:=pi*po*(sqr(d1/2)*l1+sqr(d2/2)*l2+sqr(d3/2)*l3);

edit25.Text:=floattostrf(m,fffixed,9,3);

Zcn_3:=strtofloat(edit18.Text); Zck_3:=strtofloat(edit17.Text); dZc_3:=strtofloat(edit19.Text);

Zdn_3:=strtofloat(edit23.Text); Zdk_3:=strtofloat(edit22.Text); dZd_3:=strtofloat(edit24.Text);

Zcn_10:=strtofloat(edit12.Text); Zck_10:=strtofloat(edit11.Text); dZc_10:=strtofloat(edit14.Text);

Zdn_10:=strtofloat(edit26.Text); Zdk_10:=strtofloat(edit16.Text); dZd_10:=strtofloat(edit27.Text);

Cm[1]:=strtofloat(edit7.Text); Cm[2]:=strtofloat(edit21.Text);

Ng:=strtofloat(edit1.Text);

C0:=strtofloat(edit2.Text);

Ct:=strtofloat(edit3.Text);

n1:=round((Zck_3-Zcn_3)/dZc_3)+1;

n2:=round((Zdk_3-Zdn_3)/dZd_3)+1;

m1:=round((Zck_10-Zcn_10)/dZc_10);

m2:=round((Zdk_10-Zdn_10)/dZd_10);

StringGrid5.Cells[0,0]:='#';

StringGrid5.Cells[1,0]:='Zc3';

StringGrid5.Cells[2,0]:='Zd3';

StringGrid5.Cells[3,0]:='Масса заготоки';

StringGrid5.Cells[4,0]:='Масса отходов';

StringGrid5.Cells[5,0]:='Zc10';

StringGrid5.Cells[6,0]:='Zd10';

StringGrid5.Cells[7,0]:='Масса заготоки';

StringGrid5.Cells[8,0]:='Масса отходов';

StringGrid5.Cells[9,0]:='M3';

StringGrid5.Cells[10,0]:='M10';

StringGrid5.Cells[11,0]:='Разница';

StringGrid5.Cells[12,0] := 'Выгоднее';

Zc_3:=Zcn_3;

k:=1;

for i:=1 to n1 do

begin

Zd_3:=Zdn_3;

for j:=1 to n2 do

begin

Zc_10:=Zcn_10;

for l:=1 to m1 do

begin

Zd_10:=Zdn_10;

for f:=1 to m2 do

begin

G_3:=pi*po*(sqr(d1/2+Zc_3)*(l1+Zd_3)+sqr(d2/2+Zc_3)*l2+sqr(d3/2+Zc_3)*(l3+Zd_3));

G0_3:=G_3-m;

G_10:=pi*po*(sqr(d1/2+Zc_10)*(l1+Zd_10)+sqr(d2/2+Zc_10)*l2+sqr(d3/2+Zc_10)*(l3+Zd_10));

G0_10:=G_10-m;

tb_3:=5.4*power(G_3, 2/3)/60;

tb_10:=G_10/G_3*tb_3;

M0_3:=G_3*Cm[1]*k_tz-G0_3*C0/1000;

Z0_3:=1.25*k_vv*k_pr*tb_3*Ct;

C_3:=80/100*(M0_3+Z0_3);

M0_10:=G_10*Cm[2]*k_tz-G0_10*C0/1000;

Z0_10:=1.25*k_vv*k_pr*tb_10*Ct;

C_10:=80/100*(M0_10+Z0_10);

dC:=(C_3-C_10)*Ng;

StringGrid5.Cells[0,k]:=inttostr(k);

StringGrid5.Cells[1,k]:=floattostrf(Zc_3,fffixed,9,4);r

StringGrid5.Cells[2,k]:=floattostrf(Zd_3,fffixed,9,5);

StringGrid5.Cells[3,k]:=floattostrf(G_3,fffixed,9,3);

StringGrid5.Cells[4,k]:=floattostrf(G0_3,fffixed,9,3);

StringGrid5.Cells[5,k]:=floattostrf(Zc_10,fffixed,9,4);

StringGrid5.Cells[6,k]:=floattostrf(Zd_10,fffixed,9,5);

StringGrid5.Cells[7,k]:=floattostrf(G_10,fffixed,9,3);

StringGrid5.Cells[8,k]:=floattostrf(G0_10,fffixed,9,3);

StringGrid5.Cells[9,k]:=floattostrf(C_3,fffixed,9,3);

StringGrid5.Cells[10,k]:=floattostrf(C_10,fffixed,9,3);

StringGrid5.Cells[11,k]:=floattostrf(dC,fffixed,9,0);

if C_3 < C_10

then StringGrid5.Cells[12,k] := 'M3 выгоднее'

else StringGrid5.Cells[12,k] := 'M10 выгоднее';

k:=k+1;

Zd_10:=Zd_10+dZd_10;

end;

Zc_10:=Zc_10+dZc_10;

end;

Zd_3:=Zd_3+dZd_3;

end;

Zc_3:=Zc_3+dZc_3;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i:integer;

begin

Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:='';

Edit6.Text:=''; Edit7.Text:=''; Edit8.Text:='';

Edit11.Text:=''; Edit12.Text:=''; Edit13.Text:=''; Edit14.Text:=''; Edit15.Text:='';

Edit16.Text:=''; Edit17.Text:=''; Edit18.Text:=''; Edit19.Text:=''; Edit10.Text:='';

Edit21.Text:=''; Edit22.Text:=''; Edit23.Text:='';Edit24.Text:='';Edit25.Text:='';Edit26.Text:='';Edit27.Text:='';

StringGrid5.RowCount := 2;

for i:= 1 to 12 do

StringGrid5.cells[i,1]:= ' ' ;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;

end;

end.

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

Программа состоит из 3 процедур:

1) Procedure Button1Click(Sender: TObject) - предназначена для выполнения вычислений ,

2) Procedure Button2Click(Sender: TObject) - предназначена для очистки окон вывода результатов расчетов.

3) Procedure Button3Click(Sender: TObject) - предназначена для завершения работы приложения

Программа реализует алгоритм, состоящий из элементов циклической структуры.

Ввод исходных данных выполняется с помощью элементов Edit, вывод выполняется на экран в таблицах StringGrid.

В разделе описания констант заданы значения постоянных параметров, приведенные в постановке задачи, а также табличные значения, приведенные в приложениях.

Перед запуском решения задачи возможно изменение исходных данных, решение запускается с помощью кнопки «РЕШЕНИЕ». После получения решения возможна очистка с помощью кнопки «ОЧИСТИТЬ» и ввести новые исходные данные и пересчитать задачу.

Выход из программы осуществляется с помощью одноименной кнопки «ВЫХОД».

StringGrid-таблица для создания массива.

Begin-начало операции;

End-конец операции;

Var-Раздел переменных;

Integer - целочисленное значение.

Real-дробное значение.

For-оператор повтора,реализует алгоритм циклической структуры с заданым числом повторений.

If-оператор проверки условия

Round-фунция округляет вещественное число до ближайшего целого

8. ОКНО РАБОТЫ ПРОГРАММЫ

Рисунок 4 - Окно работы программы

9. описание работы программы

Программа работает следующим образом.

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

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

Ознакомившись с результатами расчетов, можно ввести новые исходные данные, нажать кнопку «Решение» и получить новые данные.



Рисунок 5-Вывод значений в таблицу

ЗАКЛЮЧЕНИЕ

На основании выполненных расчетов можно сделать вывод: наиболее рациональным методом получения заготовок по себестоимости детали является метод М3 (ковка свободная). Себестоимость изготовления детали при этом равна 1,040 руб.

Лучший метод является базовым. Экономия по себестоимости при его использовании по сравнению с новым составляет -10838 руб.

Результаты расчетов с помощью программы и в табличном процессоре совпадают.

В результате выполнения курсовой работы получены следующие результаты:

- разработан алгоритм и составлена программа для расчета технико-экономических показателей выбора наиболее рационального метода по себестоимости детали;

- рассчитана себестоимость использования методов с помощью табличного процессора;

- выполнено сравнение и анализ результатов программы и контрольного расчета.

Были закреплены теоретические значения и практические навыки по основам алгоритмизации и проведению инженерных расчетов на компьютере.

СПИСОК ЛИТЕРАТУРЫ

1. Руденко В.Д. Курс информатики. - К.: Феникс, 2000. - 368 с.

2. Г.И. Светозарова, Е.В. Сигитов. Практикум по программированию на алгоритмических языках. М, 1980.

3. Марченко А.И., Марченко Л.А. Программирование, 1999.

4. DelphiHelp http://www.delphihelp.ogr

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

...