Текст програми

6. ПЕРЕВАГИ ТА НЕДОЛІКИ.

Основна перевага ударного-поворотного буріння - можливість бурити породи будь-якої міцності (f =6-14).

До недоліків варто віднести періодичність впливу інструмента на породу, при чому час, що затрачається на удар t_уд = 0,003, у десятки разів менше часу на прямування інструмента у напрямку до забою, відскок і поворот.

7. ВИСНОВКИ ТА РЕКОМЕНДАЦІЇ.

Перфоратори є машинами ударно-поворотної дії, що класифікуються по таких ознаках: за умовами застосування, по частоті ударів, по способам пилеподавлення, по способам зменшення вібрації і по способам зменшення шуму.

Вітчизняні перфоратори мають масу 26,5-60 кг; витрата повітря - 0,07-0,17 м³/сек; число ударів у секунду - 26,7-46,7 Гц;

робота удару - 39,2-78,4 Дж.

 

 

 

Практична робота №2

Тема: Лінійний обчислювальний процес в Delphi 7

Мета: Закріпити теоретичні знання і одержати практичні навики роботи програмування в середовищі Delphi 7 і рішення на комп'ютері завдань з лінійним обчислювальним процесом.

 

Завдання 1

Варіант	Вид функції	Початкові дані
X	Y	Z
		1.321	-	0.56
		0.56	0.25	-
		0.121	0.26	0.15
		0.5	0.05	0.3
		0.28	0.2	0.12
		0.56	0.4	0.11
		0.7	0.15	1.3
		1.2	0.7	0.31
		0.18	1.62	1.56
		1.61	0.17	0.2
		1.2	1.08	1.3
		0.15	2.63	0.98
		0.6	0.15	3.8
		0.25	0.8	0.9
		0.568	-1.2	-
		2.161	1.35	-1.68
		2.368	-	0.15
		1.379	0.21	0.138
		0.613	2.793	0.5
		0.523	0.26	1.3
		3.816	0.153	-
		-8.217	1.561	0.23
		0.24	0.12	0.672
		2.374	-	-0.352
		1.615	-0.31	0.21
		3.189	-1.256	-
		-	-	0.562
		1.272	0.36	-
		0.532	0.056	0.2
		0.612	0.151	0.56

 

Приклад

Створити теку, модуль і проект в Delphi, створити блок схему алгоритму, діалогове вікно і програму для обчислення функції.

 

a=0.6, b=1.3, x=0.3, y=0.26,z=1.4

 

Блок-схема алгоритму

 

Діалогове вікно «Лінійне завдання»

Рисунок 1 Діалогове вікно «Лінійне завдання»

 

 

Текст програми

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(Tform)

Label1: Tlabel;

Label2: Tlabel;

Label3: Tlabel;

Label4: Tlabel;

Label5: Tlabel;

Label6: Tlabel;

Edit1: Tedit;

Edit2: Tedit;

Edit3: Tedit;

Edit4: Tedit;

Edit5: Tedit;

Label7: Tlabel;

Label8: Tlabel;

Button1: Tbutton;

procedure Button1Click(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.Button1Click(Sender: Tobject);

var

а,b,x,y,z,s:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

x:=StrToFloat(Edit3.Text);

y:=StrToFloat(Edit4.Text);

z:=StrToFloat(Edit5.Text);

s:=abs(z-3*b*sqr(x))+sqr(cos(a*x))+exp(abs(z*sin(b*y)));

s:=s/(sqrt(3*sqr(x)+y+b*z)+arctan(2/z)+sqr(sin(x*y) /cos(x*y)));

Label8.Font.color:=clblack;

Label8.Caption:=’Результат:’+#13+’Значение функції S’+#13+’S=’+floatToStr(s);

end;

end.