Введение в информатику. Курсовая работа по дисциплине "Введение в информатику"

• Название: Курсовая работа по дисциплине "Введение в информатику"
• Анкор: Введение в информатику
• Дата: 30.11.2022
• Размер: 5.6 Mb.
• Имя файла: 477658.rtf
• Тип: Курсовая; #821284
• страница: 2 из 3

4. Характеристика даннях и их условные обозначения

№ п/п	Наименование данных	Обозначение в б/с	Обозначение в программе	Тип переменной
1.	Ширина обрабатываемой поверхности, мм	B	B	real
2.	Длина обрабатываемой поверхности, мм	L	L	real
3.	Глубина резания, мм	t	t	real
4.	Шероховатость поверхности, мм	Ra	Ra	real
5.	Радиус при вершине резца, мм	r	rf,rc	real
6.	Передний угол резца, град	ɣ	Y	real
7.	Число оборотов режущего инструмента, мин-1	Nр пасп	Nrnac	real
8.	Подача на зуб, мм/зуб	Szp	Szr	real
9.	Подача на зуб пасп., мм/зуб	Sz пасп	Szpas	real
10.	Подача S(мм),обеспечивающая заданную шероховатость поверхности при строгании	S	Sc	real
11.	Врезание фрезы, мм	L1	L1	real
12.	Длина перегиба фрезы, мм	L2	L2	real
13.	Длина обрабатываемой поверхности, мм	Lо	Lo	real
14.	Длина рабочей подачи(мм) стола станка	L	L	real
15.	Суммарное поперечное перемещение стола станка при чистовом строгании, мм	B1	B1	real
16.	Число двойных ходов в минуту, мин-1	Nx	Nx	real
17.	Паспортное, мин-1	Nxпасп	Nxpas	real
18.	Минутная подача, мм/мин	Sm	Sm	real
19.	Паспортная, м/мин	Vc пасп	Vcpas	real
20.	Значение подачи, мм	S	S	real
21.	Машинное время фрезерования, мин(С)	tмф	Tmf	real
22.	Машинное время строгания,мин (С)	tмс	Tmс	real

.Программа решения задачи
program kursovaya;;=160;Vmax=44;Vc=22;z=6;:array[1..12] of real=(10,14.1,28.2,40,56.4,80,112.8,160,225.6,320,451.2,640);:array[1..12] of real=(0.1,0.14,0.28,0.4,0.56,0.8,1.12,1.6,2.25,3.2,4.5,6.4);=3.14;,g,y,i,j:integer;,Sc,Bn,B,Bk,dB,rc,Nxpas,rf,L,t,Ra,Yf,Yc,L0,L0n,L0k,dL0,Nr,Szr,Sm,Szpas,Nrpas,L1,L2,Tmf,Tmc,B1,Nx:real;;('Bn=');read(Bn);write('Bk=');read(Bk);write('dB=');read(dB);('L0n=');read(L0n);write('L0k=');read(L0k);write('dL0=');read(dL0);('rc=');read(rc);('t=');read(t);('Ra=');read(Ra);('Yf=');read(Yf);('rf=');read(rf);('Yc=');read(Yc);:=(1000*Vmax)/(pi*d);:=(0.007*exp(0.59*ln(Ra))*exp(0.73*ln(Vmax))*exp(0.08*ln(rf))*exp(0.27*ln(Yf))/exp(0.09*ln(t)));:=trunc((L0k-L0n)/dL0)+1;:=trunc((Bk-Bn)/dB)+1;;(' BxL Rf Rc Tmf Tmc Tmin');i:=1 to k do:=L0n+(i-1)*dL0;:=1000*Vc/(2.5*L0);y:=1 to 12 don[y]

6. Программный интерфейс




Рисунок 1 - Вид проекта при введенных начальных данных


Рисунок 2 - Вывод результатов

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

алгоритм программа обработка поверхность

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

1. Открыть папку «Курсовая»;

2. Открыть файл «Kursovaya.Pas»;

3. Запустить программу с помощью кнопки “Run”, которая находится на панели инструментов Debug;

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

5. Нажав кнопку “Расчет”, в таблице выведутся значения;

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

. Нажав кнопку “Очистка” - произойдет очистка всех зон

формы и программа будет готова к вводу новых исходных данных

и новых расчетов;

7. Затем, нажав кнопку “Выход” программа завершит свою работу.

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

Uses, CRT - раздел описания модулей, содержит имена подключаемых модулей (библиотек) как входящих в состав системы Turbo Pascal, так и написанных пользователем. Раздел описания модулей должен быть первым среди разделов описаний;

ClrScr- функция очистки экрана;

Сonst- раздел описания констант позволяющий использовать имена как синонимы констант;

Var -