Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π»ΠΈΡΡΠΈΠ½Π³ Π³ΡΠ°ΡΠΈΠΊ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΡ ΠΡΠΎΠΉΠ΄Ρ ΠΊΡΡΡ ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅ «ΠΠΠΠ Π» (Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°) Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΡΡΠ΅Π΄Π΅ Turbo Pascal ΠΏΠΎ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° ΠΏΡΡΠΌΠΎΠΉ Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ. Π‘Π°ΠΌ Π³ΡΠ°ΡΠΈΠΊ Ρ ΠΏΠΎΡΡΡΠΎΠΈΠ» Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΎΡΠΌΡΠ» ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ Graph. Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ²Π°, Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ²Π° «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Turbo Pascal 7.0». — Π… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
— 19 ;
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΈ ΠΏΡΡΠΌΠΎΠΉ Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ.
Π’Π°Π±Π»ΠΈΡΠ° ΡΡΠ½ΠΊΡΠΈΠΈ
x | 1,1 | 1,1 | 1,3 | 1,4 | 1,4 | 1,6 | 1,7 | 1,8 | 1,8 | |
y | ||||||||||
ΠΠ»ΠΎΠΊ — ΡΡ Π΅ΠΌΠ°
— 19 ;
— 19 ;
— 19 ;
— 19 ;
— 19 ;
— 19 ;
— 19 ;
— 19 ;
— 19 ;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ΅ inicializ
— 19 ;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ΅ tit_list
— 19 ;
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
PROGRAM kyrs;
USES Crt, Graph;
VAR a: array [1.9] of real;
b:array [1.9] of real;
s1, s2, s3, s4, b0, b1, x1, y1, x2, y2, x, y, mx, my: real;
mx01, mx08, my09, mx07, mx05, my005, my04, my2, my1, z: integer;
Ga, Gm, i, n, msx, msy: integer;
st:string;
PROCEDURE inicializ;
BEGIN
Ga:=detect;
Gm:=detect;
initgraph (Ga, Gm, 'C:Pascalbgi');
END;
PROCEDURE tit_list;
BEGIN
Setbkcolor (1);
Setcolor (14);
Settextstyle (3,0,1);
outtextxy (0,5,'****************************************************');
outtextxy (50,20,'KUZNECKII INSTITYT INFORMACIONNIH I UPRAVLENCESKIH TEHNOLOGII');
outtextxy (250,32,'FILIAL PGU');
outtextxy (200,155,'KURSOVAJA RABOTA');
outtextxy (198,163,'*****************');
outtextxy (85,200,'NA TEMY «RAZRABOTKA PROGRAMMI POSTROENIA GRAFIKA ');
outtextxy (180,223,'EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII" ');
outtextxy (380,310,'VIPOLNIL: STYDENT GRYPPI 04KM1');
outtextxy (460,325,'DVORNIKOV ANDREI ANATOLEVIH.');
outtextxy (380,343,'PROWERIL: STARSHII PREPODAVATEL ENiTD');
outtextxy (434,358,'ASTAHOVA JYLIA NIKOLAEVNA.');
outtextxy (260,425,'KYZNECK, 2005');
setcolor (14);
settextstyle (7,0,3);
END;
BEGIN
Clrscr;
inicializ;
tit_list;
readkey;
n:=9;
a[1]: =1.1; a[2]: =1.1; a[3]: =1.3; a[4]: =1.4; a[5]: =1.4;
a[6]:=1.6; a[7]: =1.7; a[8]: =1.8; a[9]: =1.8;
b[1]:=32; b[2]: =29; b[3]: =30; b[4]: =36; b[5]: =38;
b[6]:=40; b[7]: =39; b[8]: =43; b[9]: =45;
FOR i:=1 TO n DO
BEGIN
s1:=s1+a[i]; s2:=s2+b[i]; s3:=s3+a[i]*b[i]; s4:=s4+sqr (a[i]);
END;
writeln (s1:7:3); writeln (s2:7:3); writeln (s3:7:3); writeln (s4:7:3);
b1:=((s1*s2) — n*s3)/(sqr (s1) — n*s4);
b0:=(1/n)*(s2-b1*s1);
Writeln ('b1=', b1:10:5); Writeln ('b0=', b0:10:5);
x1:=1.0; y1:=b1*x1+b0;
Writeln ('y1=', y1:10:5);
x2:=1.8; y2:=b1*x2+b0;
Writeln ('y2=', y2:10:5);
inicializ;
mx:= GetmaxX;
mx01:= Round (0.1*mx);
mx07:=Round (0.7*mx);
mx08:= Round (0.8*mx);
my:= GetmaxY;
my09:= Round (0.9*my);
my1:= Round (1*my);
my005:=Round (0.05*my);
my2:= Round (2*my);
my04:= Round (0.4*my);
msx:=Round (mx07/10);
msy:=Round (my1/1);
Setlinestyle (0,0,1);
x:=x1; y:=y1;
moveto (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));
x:=x2; y:=y2;
Setcolor (2);
lineto (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));
Setcolor (14);
Setlinestyle (0,0,1);
Line (mx01, my09, mx01, my04);
Line (mx01, my09, mx08, my09);
Setcolor (14);
Line (mx01, my04, mx01−5, my04+5);
Line (mx01, my04, mx01+5, my04+5);
Line (mx08, my09, mx08−5, my09−5);
Line (mx08, my09, mx08−5, my09+5);
y:=0;
WHILE y<=45 DO
BEGIN
str (y:4:0, st);
z:=Round (my09-msy*y/100);
Line (mx01+3, z, mx01−3, z);
OuttextXY (mx01−40, z, st);
y:=y+5;
END;
x:=1;
WHILE x<=1.9 DO
BEGIN
str (x:4:1, st);
z:=Round (msx*x*10+mx01-msx*9);
Line (z, my09+3, z, my09−3);
OuttextXY (z-25, my09+15, st);
x:=x+0.1;
END;
Setcolor (15);
SetLineStyle (3,0,1);
y:=5;
WHILE y<=45 DO
BEGIN
z:=Round (my09-msy*y/100);
Line (mx01+5, z, mx01+440, z);
y:=y+5;
END;
x:=1;
WHILE x<=1.9 DO
BEGIN
z:=Round (mx01+msx*x*10-msx*9);
Line (z, my09−5, z, my09−230);
x:=x+0.1;
END;
OuttextXY (mx01−15, my04,'Y');
OuttextXY (mx08+15, my09,'X');
Setcolor (4);
SetLineStyle (1,0,3);
SettextStyle (0,0,0);
x:=1.1; y:=32;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.1; y:=29;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.3; y:=30;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.4; y:=36;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.4; y:=38;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.6; y:=40;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.7; y:=39;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.8; y:=43;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=1.8; y:=45;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
Setcolor (1);
x:=x1; y:=y1;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
x:=x2; y:=y2;
Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);
setfillstyle (1,1);
Bar (2,2,637,170);
Setlinestyle (0,0,3);
Setcolor (14);
Rectangle (1,1,638,171);
OuttextXY (120,175,'GRAFIK EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII');
OuttextXY (20,60,'b1=19.11 111');
OuttextXY (20,70,'b0= 8.85 926');
OuttextXY (20,90,'y (x)=b1*x+b0');
OuttextXY (20,110,'x1=1.0 y1=27.97 037');
OuttextXY (20,120,'x2=1.8 y2=43.25 926');
OuttextXY (310,20,'ZNACENIA EXPERIMENTALNIH TOCEK.');
OuttextXY (270,50,'X 1.1 1.1 1.3 1.4 1.4 1.6 1.7 1.8 1.8');
OuttextXY (270,70,'Y 32 29 30 36 38 40 39 43 45');
Readkey;
END.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π»ΠΈΡΡΠΈΠ½Π³ Π³ΡΠ°ΡΠΈΠΊ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΡ ΠΡΠΎΠΉΠ΄Ρ ΠΊΡΡΡ ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅ «ΠΠΠΠ Π» (Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°) Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΡΡΠ΅Π΄Π΅ Turbo Pascal ΠΏΠΎ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° ΠΏΡΡΠΌΠΎΠΉ Π»ΠΈΠ½ΠΈΠΈ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΈ. Π‘Π°ΠΌ Π³ΡΠ°ΡΠΈΠΊ Ρ ΠΏΠΎΡΡΡΠΎΠΈΠ» Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΎΡΠΌΡΠ» ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ Graph.
1. Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ²Π°, Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ²Π° «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Turbo Pascal 7.0». — Π: «ΠΠΈΠ°Π»ΠΎΠ³-ΠΠΠ€Π», 2008
2. Π. Π. ΠΠΎΠ»ΠΊΠΎΠ² «Π§ΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ»
3. Π. Π. Π‘Π°ΠΌΠ°ΡΡΠΊΠΈΠΉ «ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ»