4.2 Кінцевий текст програми

uses crt,dos;

var D,S,Lam,n,mp,msh,mo,mk,w,ma,fi,afi,pg,pia,pa,b,q,r,fp:real;

p:array[1..72] of real;

fi2:array[1..72] of real;

procedure showdir(mask:pathstr);

var sr:searchrec;

begin

findfirst(mask,anyfile,sr);

while(doserror=0) do begin

write(sr.name:16);

findnext(sr);

end;

writeln;

end;

procedure id;

var f:text;

name1:string;

name:string[5];

begin

repeat

clrscr;

writeln('Spisoc failov i ishodnuh dannuh:');

showdir('*.dat');

writeln('Vvedite imja faila:');

readln(name1);

assign(f,name1);

reset(f);

readln(f,name1);

writeln(name1);

readln(f,name,d); writeln(name,d:10:4);

readln(f,name,s); writeln(name,s:10:4);

readln(f,name,Lam); writeln(name,Lam:10:4);

readln(f,name,n); writeln(name,n:8:0);

readln(f,name,mp); writeln(name,mp:10:4);

readln(f,name,msh); writeln(name,msh:10:4);

readln(f,name,mo); writeln(name,mo:10:4);

readln(f,name,mk); writeln(name,mk:10:4);

close(f);

writeln('Ystralvaet(y/n)?');

readln(name);

until name='y';

end;

procedure ind;

var i:integer;

f:text;

k,m:string;

begin

repeat

clrscr;

writeln('Spisok failov indicatornoi tablicu:');

showdir('*.ind');

writeln('Vvedite imja faila:');

readln(m);

assign(f,m);

reset(f);

for i:=1 to 72 do begin

readln(f,fi2[i],p[i]);

writeln(fi2[i]:6,p[i]:10:2);

end;

close (f);

writeln('Ystralvaet (y/n)?');

readln(k);

until k='y';

end;

procedure rez;

var i:integer;

f:text;

name:string;

begin

clrscr;

writeln('Spisok failov rezultatov:');

showdir('*.rez');

writeln('Vvedite imja faila:');

readln(name);

assign(f,name);

rewrite(f);

ma:=mp+mo*msh; r:=s/2; w:=pi*n/30;fp:=pi*d*d*s/4;

writeln(f,'fi2', 'pg', 'N', 'q');

for i:=1 to 72 do begin

fi:=fi2[i]*pi/180;

afi:=r*w*w*cos(fi)+Lam*cos(2*fi);

pg:=(p[i]-0.1)*fp*1000000;

pia:=-ma*afi;

pa:=pg+pia;

b:=lam*sin(fi)/(sqrt(1-lam*sin(fi)*lam*sin(fi)));

N:=pa*(sin(b)/cos(b));

q:=pa/cos(b);

writeln(f,fi2[i]:3:0,pg:12:4,N:13:5,q:12:5);

end;

close (f);

end;

var k:string;

begin

repeat

id;

ind;

rez;

writeln('povtorit raschet y/n?');

readln(k);

until k='y';

end.

Результати розрахунків

За розрахунками програми які приведені в додатку було збудовано графік, який зображений нижче:

Графік залежності сил P_г , T , Q від кута повороту колінчастого валу

(Варіюємий параметр – λ _кр = 0,26 (вихідний параметр))

2. Графік залежності сил P_г , T , Q від кута повороту колінчастого валу

(Варіюємий параметр – λ _кр =0,285(λ _кр +10% ) )

3. Графік залежності сил P_г , N , Q від кута повороту колінчатого валу

(Варіюємий параметр – λ _кр =0,234(λ _кр +10% ) )

ВИСНОВОК

В данній курсовій роботі я навчився користуватися процедурою «showdir» ( процедура пошуку файлів).

Знайшов значення сили тиску газів на поршень Р_г, силу що діє вздовж шатуна Q та температури Т, що діє перпендикулярно осі циліндра двигуна, залежно від кута повороту колінчастого вала.

Варіюємий параметр λ (кінематичний параметр) не так суттєво впливає на побудовані графічні залежності.

СПИСОК ДЖЕРЕЛ ІНФОРМАЦІЇ

1. Методичні вказівки до виконання курсової роботи «Розв’язання інженерної задачі за допомогою комплексу програмних засобів» з дисципліни «Інформатика» для студентів спеціальності 6.090210 – «Двигуни внутрішнього згоряння» / Затвердили : В.О. Пильов, О.Ю. Ліньков, С.В. Коваленко. – Харків: НТУ «ХПІ», 2005р.

2. Поляков Д.Б. , Круглов И.Ю. «Программирование в среде Турбо Паскаль». Учебное пособие. – М.:МАИ, 1992. – 576с.

3. Руденко В.Д. , Макарчук А.П. , Патланжоглу М.А. «Курс информатики» под ред. Мадзигона В.Н. – К.:Феникс , 1998. – 386с.

ДОДАТОК

А1 Файл вихідних даних з розширенням *.dat

TM48B_1

Двигун GAZ 24 (Дані студента Білоуса O.М. група TM-48б)

d= 0.092

s= 0.092

lam= 0.26

n= 4800

mp= 0.60

msh= 0.98

mo= 0.27

mk= 3.7

TM48B_2

Двигун GAZ 24 (Дані студента Білоуса O.М. група TM-48б)

d= 0.092

s= 0.092

lam= 0.285 (+10%)

n= 4800

mp= 0.60

msh= 0.98

mo= 0.27

mk= 3.7

TM48B_3

Двигун GAZ 24 (Дані студента Білоуса O.М. група TM-48б)

d= 0.092

s= 0.092

lam= 0.234 (-10%)

n= 4800

mp= 0.60

msh= 0.98

mo= 0.27

mk= 3.7