Использование графических операторов в Borland Paskal
Курсовая работа, 26 Ноября 2011, автор: e********@yahoo.fr
Описание работы
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
Работа содержит 1 файл
Курсач.docx
— 561.36 Кб (Скачать)Параметрами x,y задаються координати лівого нижнього краю капелюшка. Параметром d задається діаметр капелюшка. Усі параметри цілого типу.
1.3.5 Процедура яка креслить осьову лінію
Midline(x,y,l,d:
Параметрами x,y задаються координати лівого нижнього краю деталі , для якої креслиться осьова лінія. Параметри l,d допоміжні. Усі параметри цілого типу.
1.3.6 Процедура яка креслить дві з’єднанні деталі
Detal(x,y:
Параметрами x,y задаються координати лівого нижнього краю деталі. Усі параметри цілого типу.
1.3.7 Процедура що показує відстань між центрами двох шпильок
razm(x1,x2,y:
Параметрами x1, x2 задаються іксові координати осьових ліній шпильок. Параметром у задається висота розмірної лінії.
1.4 Результат роботи програми
Програма виконує креслення двох деталей з’єднаних двома шпильками та болтом.
2 Знаходження коренів нелінійного рівняння
2.1 Знаходження коренів нелінійного рівняння графічним методом
2.1.1 Текст програми для розрахунку з функції
uses crt;
var x,y:real;f:text;
begin
clrscr;
assign(f,'123.
rewrite(f);
x:=0;
repeat
y:=sin(x)-x+0.15;
x:=x+0.1;
writeln(f,x:4:3,' ',y:4:3);
until x>2;
close(f);
readkey;
end.
2.1.2 Результат роботи програми
| X | Y |
| 0,100 | 0,150 |
| 0,200 | 0,149 |
| 0,300 | 0,146 |
| 0,400 | 0,139 |
| 0,500 | 0,129 |
| 0,600 | 0,115 |
| 0,700 | 0,094 |
| 0,800 | 0,067 |
| 0,900 | 0,033 |
| 1,000 | -0,009 |
| 1,100 | -0,059 |
| 1,200 | -0,118 |
| 1,300 | -0,186 |
| 1,400 | -0,265 |
| 1,500 | -0,353 |
2.1.3 Побудова графіка функції за допомогою “Grapher ”
Чорна точка на графіку – корінь рівняння (перетин графіка з віссю Х), згідно з графіком X≈0.9
2.2 Знаходження коренів нелінійного рівняння методом порозрядного наближення
Метод порозрядного наближення. Перевага цього методу полягає у можливості пошуку усіх коренів відрізка [а,в] він дозволяє відмовитись від підготовчого етапу знаходження та відсіювання коренів.
2.2.1 Текст програми
uses crt;
const r=4;eps=1e-5;h=100*eps;x_end=
var c,x,y:real;i,n,k,w:integer;
function sign(x:real):integer;
begin
sign:=0;
if x>0
then sign:=1
else if x<0 then sign:=-1;
end;
function f(x:real):real;
begin
f:= SIN(x)-x+0,15;
end;
{++++++++++++++++
begin
clrscr;
x:=-10;
c:=h;
w:=sign(f(x));
repeat
repeat
x:=x+c;
if f(x)*w/c<0
then c:=-c/r;
if x>x_end
then
begin
readkey;
exit;
end;
until (abs(c)<eps/r);
c:=h;
w:=sign(f(x));
writeln('root=',x:8:5);
until false;
readkey;
end.
Результатом роботи програми
є знайдений корінь , який дорівнює
Х=0.980
2.3 Знаходження коренів нелінійного рівняння за допомогою MS Office Excel
Вводимо початкове значення Х пошуку в комірку А2, формулу записуємо у комірку В2.
| A2 | B2 | |
| 0,6 | = SIN(A2)-A2+0,15 |
Коренем рівняння є значення
в комірці А2 у випадку, коли у комірці
В2 значення функції буде дорівнювати
0. Для знаходження кореня використовуємо
пункт меню Сервіс->Підбір параметра.
| A2 | B2 | |
| 0,980 | 0 |
| Х | У |
| 0,820 | 0,061 |
| 0,840 | 0,055 |
| 0,860 | 0,048 |
| 0,880 | 0,041 |
| 0,900 | 0,033 |
| 0,920 | 0,026 |
| 0,940 | 0,018 |
| 0,960 | 0,009 |
| 0,980 | 0,000 |
| 1,000 | -0,009 |
| 1,020 | -0,018 |
Корінь рівняння можна побачити у комірці А2.
Список джерел
1. Фаронов В.В. Turbo Pascal. Курс для начинающих. М.-2005.
2. Поляков, Круглов. Язык программирования Turbo Pascal.-М.:МАИ, 1992.
3. Абрамов, Трифонов, Трифонова.
Введение в язык Паскаль.-М.:
4. Фурунжиев В.И., Бабушкин
Ф.М. Применение
5. Численные методы: Учеб.
для техникумов /Под ред. Н.И.
Данилина.-М.: Высш.шк.,1976.