Использование графических операторов в Borland Paskal

program IIInuJLbka;

uses crt,graph;

var

gd,gm:integer; df,dr,dx,dy,dd,dp:integer;

procedure Shp(x,y,l,d:integer);

begin

dr:= y+l+round(d*0.2);

df:= round(d*0.1);

setcolor(15);

bar(x,y,x+d,y+L);{Zakrashivayushiy pryamougolnik}

rectangle(x,y,x+d,y+L);{OSNOVA SHPILKI}

line(x,y,x+df,y-round(d*0.2));{Granb V tr l}

line(x+d,y,x+d-df,y-round(d*0.2));{Granb v tr p}

1 Використання графічних операторів у Borland Pascal 3

1.1 Деталь накреслена в Microsoft Office Visio 3

1.2 Текст програми , що креслить з’єднання деталей , написаної в середі програмування Turbo Pascal 3

1.3 Список підпрограм 8

1.3.1 Процедура яка креслить шпильку 8

1.3.2 Процедура яка креслить верхню гайку із шайбою 9

1.3.3 Процедура яка креслить нижню гайку із шайбою 9

1.3.4 Процедура яка креслить капелюшок болта 10

1.3.5 Процедура яка креслить осьову лінію 10

1.3.6 Процедура яка креслить дві з’єднанні деталі 10

1.3.7 Процедура що показує відстань між центрами двох шпильок 11

1.4 Результат роботи програми 11

2 Знаходження коренів нелінійного рівняння 12

2.1 Знаходження коренів нелінійного рівняння графічним методом 12

2.1.1 Текст програми для розрахунку з функції 12

2.1.2 Результат роботи програми 13

2.1.3 Побудова графіка функції за допомогою “Grapher ” 13

2.2 Знаходження коренів нелінійного рівняння методом порозрядного наближення 14

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

2.3 Знаходження коренів нелінійного рівняння за допомогою MS Office Excel 16

Список джерел 17