ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·ΡΠΊΠ° ΠΠ°ΡΠΊΠ°Π»Ρ
ΠΠ·Π²Π΅ΡΡΠ½ΠΎ, ΡΡΠΎ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ, Π°, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΈ ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΡ Π²ΡΠΏΡΡΠΊΠ°Π΅ΠΌΠΎΠΉ ΠΌΠ°ΡΠΈΠ½ΠΎΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡΠΌΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π² Π±ΠΎΠ»ΡΡΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ Π·Π°Π²ΠΈΡΡΡ ΠΎΡ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π½Π° ΡΡΠ°Π΄ΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π°. Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ°ΠΌ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΡΡΠ°Π»ΠΊΠΈΠ²Π°ΡΡΡΡ ΡΠΎ ΡΠ»ΠΎΠΆΠ½ΡΠΌΠΈ Π·Π°Π΄Π°ΡΠ°ΠΌΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ½ΠΎΠ³ΠΎ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ°, ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΡΡ … Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·ΡΠΊΠ° ΠΠ°ΡΠΊΠ°Π»Ρ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
ΠΠ·Π²Π΅ΡΡΠ½ΠΎ, ΡΡΠΎ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ, Π°, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΈ ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΡ Π²ΡΠΏΡΡΠΊΠ°Π΅ΠΌΠΎΠΉ ΠΌΠ°ΡΠΈΠ½ΠΎΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡΠΌΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π² Π±ΠΎΠ»ΡΡΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ Π·Π°Π²ΠΈΡΡΡ ΠΎΡ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π½Π° ΡΡΠ°Π΄ΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π°. Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ°ΠΌ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΡΡΠ°Π»ΠΊΠΈΠ²Π°ΡΡΡΡ ΡΠΎ ΡΠ»ΠΎΠΆΠ½ΡΠΌΠΈ Π·Π°Π΄Π°ΡΠ°ΠΌΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ½ΠΎΠ³ΠΎ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ°, ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΡΡ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ ΡΠ»ΡΡΠ°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² Π»ΠΈΠ±ΠΎ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π»ΠΈΠ±ΠΎ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. Π ΡΠ²ΡΠ·ΠΈ Ρ ΡΡΠ»ΠΎΠΆΠ½Π΅Π½ΠΈΠ΅ΠΌ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΠΈΠ·Π΄Π΅Π»ΠΈΠΉ ΠΈ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΈΡ Π½ΠΎΠΌΠ΅Π½ΠΊΠ»Π°ΡΡΡΡ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·Π½ΠΈΠΊΠ°ΡΡΠΈΡ Π·Π°Π΄Π°Ρ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π½ΠΎΠ²ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²ΡΠΈΠΊΠΎΠ², ΡΡΠΎ ΠΏΡΠΈΠ²Π΅Π»ΠΎ Π±Ρ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΊ Π±ΠΎΠ»ΡΡΠΈΠΌ Π·Π°ΡΡΠ°ΡΠ°ΠΌ. Π ΡΠ²ΡΠ·ΠΈ Ρ ΡΡΠΈΠΌ Π²Π΅ΡΡΠΌΠ° Π°ΠΊΡΡΠ°Π»ΡΠ½Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π°, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ: ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΈΠ°Π»ΡΠ½ΠΎ Π½ΠΎΠ²ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΠ½ΠΎΠ² ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ; ΡΠΈΡΠΎΠΊΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠΎ-ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ; Π²ΡΠ΅ΡΡΠΎΡΠΎΠ½Π½ΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΠΎΠ³ΠΎ ΡΡΡΠ΄Π°. Π‘ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΠΠ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΡΡΠ°Π»Π° ΡΠ΅Π°Π»ΡΠ½ΠΎΡΡΡΡ. ΠΠΎΡΠ²ΠΈΠ»ΠΎΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΈΡΡΠ΅ΠΌ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ (Π‘ΠΠΠ ), ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠ°ΠΌΠΈ ΠΈ Π΄Ρ. ΠΠΎΠ·Π½ΠΈΠΊΠ»ΠΈ Π½ΠΎΠ²ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ°ΠΊΠΈΡ Π·Π°Π΄Π°Ρ (Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ ), ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ Π² ΠΊΡΡΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ.
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·ΡΠΊΠ° ΠΠ°ΡΠΊΠ°Π»Ρ.
1. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ
1.1 Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ
Y = ,
c ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠΎΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ.
1.2 ΠΠ° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π΅Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Function1:
Function F (x:Tk):T (Π³Π΄Π΅ F — ΠΈΠΌΡ ΡΡΠ½ΠΊΡΠΈΠΈ; x — ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ; Tk — ΡΠΈΠΏ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°; T — ΡΠΈΠΏ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ΅Π»ΠΎΠ³ΠΎ, Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈ Π΄Ρ. ΡΠΈΠΏΠΎΠ²). ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π² ΠΏΡΠ°Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ F (X1, X2, Xk) (Π³Π΄Π΅ F — ΠΈΠΌΡ ΡΡΠ½ΠΊΡΠΈΠΈ; Xk — ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ).
Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ Π³ΠΈΠΏΠ΅ΡΠ±ΠΎΠ»ΠΈΡΠ΅ΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΡΠ°Π½Π³Π΅Π½Ρ Π² Π²ΠΈΠ΄Π΅ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Ρ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ X:
Fns (X) = Th (X) = (Exp (x) — Exp (-X)) / (Exp (X) + Exp (-X)).
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½Π° Π½Π° ΡΠΈΡ. 1.
Π ΠΈΡ. 1. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ Y = Th (x)/ - x2 :(Π°) — Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ; (Π±) — Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ Y.
1.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ:
Program GrTrFun;
uses graph, crt;
var ga, gm, error: integer;
X, Y, L, V: real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
const z=0;
function Myth (x:real):Real;
begin
Myth:=(Exp (x)-Exp (-x))/(Exp (x)+Exp (-x));
end;
begin
GA := DETECT;
GM := DETECT;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT;
END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
MY005 := ROUND (0.05 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2); SetColor (14);
OutTextXY (MX03−40, MY005, ' Y ');
OutTextXY (MX-40, MY09−25, ' X ');
SetTextStyle (0, 0, 1); SetColor (12);
MSY := ROUND (MY09 / 15);
Y := -1.0;
While Y <= 13.501 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y + 0.5;
END;
MSX := ROUND (MX09 / 6);
X := -1.8;
While X <= 4.401 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 0.2;
end;
SetColor (2);
X := -1.6;
While X <= 2.2 do
begin
L := Myth (X);
V := (x*x-z*z);
if V<=0 then
X := X + 0.0001 else
Y := (L/Sqrt (V)) + x*x;
if Y<=13 then
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
X := X + 0.0001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (15);
SetTextStyle (1, 0, 2);
OutTextXY (ROUND (0.4*MX), ROUND (0.5*MY), 'Y=Th (X)/Sqrt (x*x+z*z)+x*x');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.4 * MX), ROUND (0.4 * MY), 'Graphik function');
While not KeyPressed do;
CloseGraph;
end.
1.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΡΡΡΡΠ° ΠΏΡΠΈ z = 0:
ΠΏΡΠΈ Ρ = 0 Y=th (x) / - x2 = Π½Π΅Ρ ΠΊΠΎΡΠ½Π΅ΠΉ;
ΠΏΡΠΈ Ρ = 1 Y=th (x) / - x2 = 1.76;
ΠΏΡΠΈ Ρ = 2 Y=th (x) / - x2 = 4.48;
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ Π³ΡΠ°ΡΠΈΠΊΡ (ΡΠΌ. ΡΠΈΡ. 2).
1.5 ΠΡΠ²ΠΎΠ΄:
ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 0%.
Π ΠΈΡ.2
2. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ ΠΌΠ°ΡΡΠΈΡΠ°ΠΌΠΈ
2.1 Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ ΠΌΠ°ΡΡΠΈΡΠ°ΠΌΠΈ:
(Atij + Btij)Cik .
2.2 ΠΠ° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ Π΄Π»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Array1. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π·Π°ΠΏΠΈΡΡ Var A: Array [1.50] of Real ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π° ΡΠΎ, ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, Π ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΌΠ°ΡΡΠΈΠ², ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· 50 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ°ΠΏΠΈΡΡ Var C: Array [1.Imax, 1. Ymax] of Integer Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π‘, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΡΡ ΠΌΠ°ΡΡΠΈΡΡ, ΡΠΎΡΡΠΎΡΡΡΡ ΠΈΠ· Π ΡΡΡΠΎΠΊ ΠΈ N ΡΡΠΎΠ»Π±ΡΠΎΠ², ΠΏΡΠΈΡΡΠΌ Π = Imax ΠΈ N = Ymax. ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΡΡ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° (Integer).ΠΠ²ΠΎΠ΄ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Read ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² ΡΠΈΠΊΠ»Π° For. ΠΡΠ²ΠΎΠ΄ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ — Write, Writeln, For. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠΌ. Π½Π° ΡΡΡ.10−16.
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅:
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
ΠΠ°
2.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΡΡ:
Program MatrFun;
uses crt;
const L=2;
M=3;
N=3;
VAR
A:array[1.L, 1. M] of integer;
B:array[1.L, 1. M] of integer;
C:array[1.L, 1. M] of integer;
D:array[1.M, 1. L] of integer;
E:array[1.M, 1. L] of integer;
X:array[1.M, 1. L] of integer;
Y:array[1.M, 1. M] of integer;
i, j, k:integer;
begin
clrscr;
for i:=1 to L do
for j:=1 to M do
begin
write ('Vvedite element [', i,',', j,'] matricu A: A[', i,',', j,']= ');
read (A[i, j]);
end;
for i:=1 to L do
for j:=1 to M do
begin
write ('Vvedite element [', i,',', j,'] matricu B: B[', i,',', j,']= ');
read (B[i, j]);
end;
for i:=1 to L do
for j:=1 to M do
begin
write ('Vvedite element [', i,',', j,'] matricu C: C[', i,',', j,']= ');
read (C[i, j]);
end;
for i:=1 to L do
for j:=1 to M do
begin
D[j, i]: = A[i, j];
end;
for i:=1 to L do
for j:=1 to M do
begin
E[j, i]: = B[i, j];
end;
for i:=1 to L do
for j:=1 to M do
begin
X[j, i]: = D[j, i]+ E[j, i];
end;
for j:=1 to M do
for k:=1 to N do
Y[j, k]: =0;
for i:=1 to L do
for j:=1 to M do
for k:=1 to N do
begin
Y[j, k]: =Y[j, k]+(X[j, i]*C[i, k]);
end;
writeln;
writeln;
for j:=1 to M do
begin
for k:=1 to N do
write (' ', Y[j, k]);
writeln;
end;
readkey;
end.
2.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ°:
ΠΠ°Π½ΠΎ:
ΠΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ:
2.5 ΠΡΠ²ΠΎΠ΄:
ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 0%.
3. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ.
3.1 ΠΠ°ΠΉΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠ½Π΅ΠΉ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Y = 3(X — 1)4 — 3(X — 1)2, ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΏΠΎΠ»ΠΎΠ²ΠΈΠ½Π½ΠΎΠ³ΠΎ Π΄Π΅Π»Π΅Π½ΠΈΡ. ΠΡΠΎΡΠΌΠΈΡΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ.
3.2 Π‘ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΏΠΎΠ»ΠΎΠ²ΠΈΠ½Π½ΠΎΠ³ΠΎ Π΄Π΅Π»Π΅Π½ΠΈΡ1 Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠ½Ρ Π½Π° ΠΊΠ°ΠΊΠΎΠΌ-Π»ΠΈΠ±ΠΎ ΠΎΡΡΠ΅Π·ΠΊΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΎΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ. ΠΠΎΡΠ»Π΅ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠ½Ρ ΠΈΠ»ΠΈ ΠΎΡΡΠ΅Π·ΠΊΠ°, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΡΡΠΎΡ ΠΊΠΎΡΠ΅Π½Ρ, ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΠ°Π³ Π·Π° ΡΠ°Π³ΠΎΠΌ, ΡΡΠΎΡΠ½ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠ½Ρ. Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (ΡΠΌ. ΡΠΈΡ.3).
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅:
3.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ:
Program GrLinUravn;
uses graph, crt;
var ga, gm, error: integer;
X, Y, B, C, e, Fb, Fn, N: real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
Label 10,15;
begin
GA := DETECT;
GM := DETECT;
begin
clrscr;
Write ('Vvedite B: B= ');
read (B);
Write ('Vvedite C: C= ');
read (C);
Write ('Vvedite e: e= ');
Read (e);
Fb:= 3*Sqr (b-1)*Sqr (b-1)-3*Sqr (b-1);
10: N := (B+C)/2;
Fn:= (3*Sqr (n-1)*Sqr (n-1)) — 3*Sqr (n-1);
if (Abs (Fn) < e) then goto 15;
if (Fb*Fn) <= 0 then C:= N else
begin
B := N; Fb := Fn;
end;
if (Abs (B-C) >= e) then goto 10;
15: write ('N= ', N:5:3);
ReadKey;
KeyPressed;
end;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT;
END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
MY005 := ROUND (0.05 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2);
SetColor (14);
OutTextXY (MX03−40, MY005, 'Y');
OutTextXY (MX-40,MY09−25, 'X');
SetTextStyle (0, 0, 1);
SetColor (12);
MSY := Round (MY09/23);
Y:=-2;
While Y <= 20.001 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y +1.0;
end;
MSX := ROUND (MX09 / 10);
X := -3;
While X <= 7.801 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 1.0;
end;
SetColor (2);
X := -6;
While X <= 21.001 do
begin
Y := 3*Sqr (x-1)*Sqr (x-1)-3*Sqr (x-1);
if Y <= 20 THEN
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
x := x + 0.001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (15);
X := N;
begin
Y := 3*Sqr (x-1)*Sqr (x-1)-3*Sqr (x-1);
if Y <= 20 THEN
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
end;
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.4 * MX), ROUND (0.4 * MY), 'Graphik Lin. uravneniay');
While not KeyPressed do;
CloseGraph;
end.
3.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ°:
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ Π³ΡΠ°ΡΠΈΠΊΡ (ΡΠΌ. ΡΠΈΡ.4).
3.5 ΠΡΠ²ΠΎΠ΄:
ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 0%.
Π ΠΈΡ.4
4. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
4.1 Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°:
S = dx +, Π³Π΄Π΅ a=5, b=10, c=15.
Π§ΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π° ΠΏΡΠΈΠ½ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 10. ΠΠΎΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ.
4.2 ΠΠ°ΠΉΠ΄ΡΠΌ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²1. Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (ΡΠΌ. ΡΠΈΡ. 5)
ΠΠ»ΠΎΠΊ ΡΡ Π΅ΠΌΠ° ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅:
Π ΠΈΡ.5
4.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°:
Program GrIntegrFun;
uses graph, crt;
var ga, gm, error, i: integer;
X, Y, Z, k, S, S1, S2,h1,h2:real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
const n=10;
b=5;
c=10;
d=15;
begin
clrscr;
GA := DETECT;
GM := DETECT;
begin
x:=b; S1:= 0;
h1:= (c-b)/n;
for i:=1 to n do
begin
S1:= S1 + (X+1)/Sqrt (x);
x:=x+h1;
end;
begin
S1:= S1*h1;
writeln ('S1= ', S1:5:3);
end;
x:=c; S2:= 0;
h2:= (d-c)/n;
for i:=1 to n do
begin
S2:= S2 + 1/(1+Exp (x));
x:=x+h2;
end;
begin
S2:= S2*h2;
writeln ('S2= ', S2:5:3);
end;
S:= S1 + S2;
writeln ('S= ', S:5:3);
ReadKey;
KeyPressed;
end;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT;
END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
MY005 := ROUND (0.05 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2);
SetColor (14);
OutTextXY (MX03−40, MY005, 'Y');
OutTextXY (MX-40,MY09−25, 'X');
SetTextStyle (0, 0, 1);
SetColor (12);
MSY := Round (MY09/8);
Y:=-1.5;
While Y <= 7.001 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y + 0.5;
end;
MSX := ROUND (MX09 / 21);
X := -6.0;
While X <= 15.501 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 1.0;
end;
SetColor (2);
X := b;
While X <= c do
begin
Y := (x+1)/Sqrt (x);
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
x := x + 0.001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (15);
X := b;
While X < c do
begin
Y := 0;
While Y <= Z do
begin
Z := ((x+h1)+1)/Sqrt (x+h1);
PutPixel (Round (MX03 + MSX * X),
Round (MY09 — MSY * Y), 15);
Y := Y + 0.001;
end;
X := X + H1;
end;
SetColor (15);
X := c; Y := 0;
While Y <= Z do
begin
Z := (c+1)/Sqrt (c);
PutPixel (Round (MX03 + MSX * X),
Round (MY09 — MSY * Y), 15);
Y := Y + 0.001;
end;
SetColor (15);
X := b; k := (b+h1);
While k <=c do
begin
Y := (k+1)/Sqrt (k);
While X <= k do
begin
PutPixel (Round (MX03 + MSX * X),
Round (MY09 — MSY * Y), 15);
x := x + 0.001;
end;
k := k + h1;
end;
SetColor (2);
X := c;
While X <= d do
begin
Y := 1 / (1 + Exp (x));
PutPixel (Round (MX03 + MSX * X),
Round (MY09 — MSY * Y), 2);
x := x + 0.001;
If Abs (x) < 1E-8 Then X := 0;
end;
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.5 * MX), ROUND (0.4 * MY), 'Graphik Integrala');
readkey;
KeyPressed;
CloseGraph;
end.
4.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ°:
Π ΡΡΠ½ΠΎΠΉ ΡΡΡΡ:
ΠΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ:
S = 15.281, ΡΡΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π³ΡΠ°ΡΠΈΠΊΡ (ΡΠΌ. ΡΠΈΡ.6).
4.5 ΠΡΠ²ΠΎΠ΄:
ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 1.3%.
Π ΠΈΡ.6
ΠΏΠ°ΡΠΊΠ°Π»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅
5. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°Π΄Π°Ρ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ
5.1 Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π³ΠΎ ΠΈ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠ΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ y = 3(x — 1)4 — 3(x — 1)2, Π½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π΅ [a, b] = [0;2.5] .
5.2 Π Π΅ΡΠ°Π΅ΠΌ Π·Π°Π΄Π°ΡΡ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ°1, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΏΡΠΈ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ Ρ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΈΠΊΠ»ΠΎΠΌ Π·Π°Π΄Π°ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π·Π°Π²Π΅Π΄ΠΎΠΌΠΎ ΠΌΠ°Π»ΡΡ Π²Π΅Π»ΠΈΡΠΈΠ½Ρ ?, Π° Π²Π½ΡΡΡΠΈ ΡΠΈΠΊΠ»Π° Π½Π°Ρ ΠΎΠ΄ΡΡ ΡΠ΅ΠΊΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΏΡΠΈ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΡΡ :
ΠΡΠΈ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ Π²Π΅Π»ΠΈΡΠΈΠ½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π° Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π°Π²Π΅Π΄ΠΎΠΌΠΎ Π±ΠΎΠ»ΡΡΡΡ Π²Π΅Π»ΠΈΡΠΈΠ½Ρ, Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΡΠ°Π²Π½ΠΈΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Ρ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠΉ:
Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (ΡΠΌ. ΡΠΈΡ. 7).
Π ΠΈΡ.7
5.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π³ΠΎ ΠΈ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠ΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ:
Program GrOptimFun;
uses graph, crt;
var ga, gm, error: integer;
X, Y, h, Ymax, Ymin, Z, N, Nmin: real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
const b=0;
c=2.5;
Label 10;
begin
GA := DETECT;
GM := DETECT;
begin
clrscr;
write ('Vvedite h: h= ');
read (h);
Ymax := 3*Sqr (c-1)*Sqr (c-1)-3*Sqr (c-1);
Ymin := 3*Sqr (b-1)*Sqr (b-1)-3*Sqr (b-1);
N := b;
While N<=c do
begin
Z := 3*Sqr (N-1)*Sqr (N-1)-3*Sqr (N-1);
if Z > Ymax then Ymax := Z;
N := N + h;
end;
begin
Writeln ('Ymax = ', Ymax:5:3);
end;
begin
N := c;
While N >= B do
begin
Z := 3*Sqr (N-1)*Sqr (N-1)-3*Sqr (N-1);
if Z < Ymin then Ymin := Z;
N := N — h;
end;
begin
Writeln ('Ymin = ', Ymin:5:3);
end;
end;
readkey;
KeyPressed;
end;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT;
END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
MY005 := ROUND (0.05 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2);
SetColor (14);
OutTextXY (MX03−40, MY005, 'Y');
OutTextXY (MX-40,MY09−25, 'X');
SetTextStyle (0, 0, 1);
SetColor (12);
MSY := Round (MY09/23);
Y:=-2;
While Y <= 20.001 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y +1.0;
end;
MSX := ROUND (MX09 /10);
X := -3;
While X <= 7.801 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 1.0;
end;
SetColor (2);
X := -6;
While X <= 21.001 do
begin
Y := 3*(Sqr (x-1) * Sqr (x-1)) — 3*Sqr (x-1);
if Y <= 20 THEN
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
x := x + 0.001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (15);
x := 0.3; y:= Ymin;
begin
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
end;
SetColor (15);
x := 1.7; y:= Ymin;
begin
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
end;
SetColor (15);
x := 2.5; y:= Ymax;
begin
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
end;
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.4 * MX), ROUND (0.4 * MY), 'Graphik Optimizacii');
While not KeyPressed do;
CloseGraph;
end.
5.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ°:
ΠΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ: Ymax = 8.43; Ymin = - 0.750
ΠΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π³ΡΠ°ΡΠΈΠΊΡ (ΡΠΌ. ΡΠΈΡ.8).
5.5 ΠΡΠ²ΠΎΠ΄:
ΠΠ° Π³ΡΠ°ΡΠΈΠΊΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π²ΠΈΠ΄Π½ΠΎ, ΡΡΠΎ Ymax = 8.43; Ymin = - 0.75, ΡΡΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠΌΡ ΡΡΡΡΡ.
Π ΠΈΡ.8
6. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΡΡΠ΅ΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ
6.1 Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π΄ΠΈΡΡΠ΅ΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ y' = | (1-x)Π (1−2x)Π (1−3x) | .
6.2 Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΠΌ ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΠΉΠ»Π΅ΡΠ°1. ΠΠ΅ΡΠ²ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠΎΡΠΊΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π°ΠΌ ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½Π° Π½Π° ΡΠΈΡ. 9.
Π ΠΈΡ.9
6.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ Π΄ΠΈΡΡΠ΅ΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ:
Program GrDifFun;
uses graph, crt;
var ga, gm, error, i: integer;
X, Y, c, c0, ck, y0, h, Fc: real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
Label 5,15;
begin
clrscr;
GA := DETECT;
GM := DETECT;
begin
clrscr;
write ('Vvedite c0: c0 = ');
read (c0);
write ('Vvedite y0: y0 = ');
read (y0);
write ('Vvedite cK: cK = ');
read (cK);
write ('Vvedite h: h = ');
read (h);
C := c0;
Fc := y0;
5: Fc := Fc + h*Abs ((1-c)*(1−2*c)*(1−3*c));
writeln;
writeln;
writeln ('c = ', c:5:3,' ':3,'Fc = ', Fc:5:3);
c := c + h;
if c <= cK then goto 5;
readkey;
KeyPressed;
end;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT; END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
MY005 := ROUND (0.05 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2);
SetColor (14);
OutTextXY (MX03−40, MY005, 'Y');
OutTextXY (MX-40,MY09−25, 'X');
SetTextStyle (0, 0, 1);
SetColor (12);
MSY := Round (MY09/15);
Y:=-2;
While Y <= 13.001 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y +1.0;
end;
MSX := ROUND (MX09 / 8);
X := -2.4;
While X <= 5.801 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 0.2;
end;
SetColor (2);
X := -6;
While X <= 1.8 do
begin
Y := Abs ((1-X)*(1−2*X)*(1−3*X));
if Y<=13 then
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
x := x + 0.001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (15);
X := c0; Y := y0;
While x <= ck do
begin
Y := Y + h*Abs ((1-x)*(1−2*x)*(1−3*x));
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
x := x + h;
end;
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.4 * MX), ROUND (0.4 * MY), 'Graphik Dif. ravneniay');
While not KeyPressed do;
CloseGraph;
end.
6.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ°:
ΠΠ°Π½ΠΎ:
x0 = 0; y0 = 1; xk = 3; h = 0.5;
ΡΡΡΠ½ΠΎΠΉ ΡΡΡΡ: ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ:
Ρ1 = 0; Ρ1 = 1.5; Ρ1 = 0; Ρ1 = 1.5;
Ρ2 = 0.5; Ρ2 = 1.5; Ρ2 = 0.5; Ρ2 = 1.5;
Ρ3 = 1.0; Ρ3 = 1.5; Ρ3 = 1.0; Ρ3 = 1.5;
Ρ4 = 1.5; Ρ4 = 3.2; Ρ4 = 1.5; Ρ4 = 3.2;
Ρ5 = 2.0; Ρ5 = 10.75; Ρ5 = 2.0; Ρ5 = 10.75;
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠ° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ Π³ΡΠ°ΡΠΈΠΊΡ (ΡΠΌ. ΡΠΈΡ.10).
6.5 ΠΡΠ²ΠΎΠ΄: ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 0%.
Π ΠΈΡ.10
7. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΠΈ
7.1 ΠΠ°ΠΉΡΠΈ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΡΡΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Ρ ΠΎΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Ρ
0.1 | 0.2 | 0.3 | 0.4 | 0.5 | 0.6 | 0.7 | |
— 0,46 | — 0.69 | — 0.75 | — 0.69 | — 0.56 | — 0.40 | — 0.25 | |
ΠΠ½Π°ΡΠ΅Π½ΠΈΡ Ρ
0.8 | 0.9 | 1.0 | 1.1 | 1.2 | 1.3 | 1.4 | |
— 0.12 | — 0.03 | 0.00 | — 0.03 | — 0.12 | — 0.27 | — 0.30 | |
Π’Π°Π±. 7.1.
7.2 ΠΠ΅ΡΠΎΠ΄ ΡΠ΅ΡΠ΅Π½ΠΈΡ
Π Π΅ΡΠ°ΡΡ Π±ΡΠ΄Π΅ΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ²1:
Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (ΡΠΌ. ΡΠΈΡ. 11).
Π ΠΈΡ.11
ΠΠ΄Π΅ Π1 =, Π2 =, L1 =, L2 = .
7.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ:
Program GrAproksFun;
uses graph, crt;
const n=14;
var ga, gm, error, i: integer;
X, Y, K1,K2,L1,L2,A0,A1:real;
Z, W: Array[1.n] of real;
A, MX, MX03, MX09, MSX,
MY, MY09, MY005, MSY: INTEGER;
ST:string[4];
begin
GA := DETECT;
GM := DETECT;
begin
clrscr;
for i:= 1 to n do
begin
write ('Vvedite X[', i,']= ');
read (Z[i]);
end;
for i:=1 to n do
begin
write ('Vvedite Y[', i,']= ');
read (W[i]);
end;
K1:=0; K2:=0;
L1:=0; L2:=0;
for i:=1 to n do
begin
K1:=K1+Z[i];
K2:=K2+Z[i]*Z[i];
L1:=L1+W[i];
L2:=L2+W[i]*Z[i];
end;
A0:=(L2*K1-L1*K2)/(K1*K1-n*K2);
A1:=(K1*L1-n*L2)/(K1*K1-n*K2);
writeln;
writeln ('A0= ', A0:4:2, ' A1= ', A1:4:2);
ReadKey;
KeyPressed;
end;
INITGRAPH (GA, GM, 'C:TP7BGI');
ERROR := GRAPHRESULT;
IF ERROR <> GROK THEN
BEGIN
WRITELN ('OSHIBKA!!!', #10#13,GRAPHERRORMSG (ERROR)); HALT;
END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MX09 := ROUND (0.9 * MX);
MY := GetMaxY; MY09 := ROUND (0.7 * MY);
MY005 := ROUND (0.03 * MY);
SetColor (12);
Line (5, MY09, MX-10, MY09);
Line (MX03, MY005, MX03, MY-9);
Line (5, MY09, 15, MY09−3);
Line (5, MY09, 15, MY09+3);
Line (MX-20, MY09−3, MX-10, MY09);
Line (MX-20, MY09+3, MX-10, MY09);
Line (MX03, MY005, MX03−3, MY005+10);
Line (MX03, MY005, MX03+3, MY005+10);
SetTextStyle (0, 0, 2);
SetColor (14);
OutTextXY (MX03−40, MY005, 'Y');
OutTextXY (MX-40,MY09−25, 'X');
SetTextStyle (0, 0, 1);
SetColor (12);
MSY := Round (MY09/5);
Y := -2;
While Y <= 4.501 do
begin
STR (Y: 4: 1, ST);
A := ROUND (MY09 — MSY * Y);
Line (MX03 + 3, A, MX03 — 3, A);
OutTextXY (MX03 — 40, A — 3, ST);
Y:= Y +0.5;
end;
MSX := ROUND (MX09 / 2);
X := -6;
While X <= 1.401 do
begin
STR (X: 4: 1, ST);
A := ROUND (MX03 + MSX * X);
Line (A, MY09 + 3, A, MY09 — 3);
OutTextXY (A, MY + 15, ST);
X := X + 0.1;
end;
SetColor (2);
X := -0.6;
While X <= 1.4 do
begin
Y := A0*X + A1;
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 2);
x := x + 0.001;
IF ABS (X) < 1E-8 Then X := 0;
end;
SetColor (15);
X := Z[1]; Y := W[1];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[2]; Y := W[2];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[3]; Y := W[3];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[4]; Y := W[4];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[5]; Y := W[5];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[6]; Y := W[6];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[7]; Y := W[7];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[8]; Y := W[8];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[9]; Y := W[9];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[10]; Y := W[10];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[11]; Y := W[11];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[12]; Y := W[12];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[13]; Y := W[13];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (15);
X := Z[14]; Y := W[14];
PutPixel (ROUND (MX03 + MSX * X),
ROUND (MY09 — MSY * Y), 15);
SetColor (9);
SetTextStyle (1, 0, 4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.1 * MY),
'Grafic in Turbo Pascal');
SetColor (15);
SetTextStyle (1,0,4);
OutTextXY (ROUND (0.4 * MX), ROUND (0.2 * MY),
'Proect: Osadchuka S.N.');
SetColor (9);
SetTextStyle (0, 0, 2);
OutTextXY (ROUND (0.5 * MX), ROUND (0.4 * MY), 'Graphik Aproksimacii');
While not KeyPressed do;
CloseGraph;
End.
7.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΡΡΡ:
ΠΠΎΠ΄ΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ ΠΈ Ρ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ 7.1. (ΡΠΌ. ΡΡΡ.41).
Π0= - 0.68; Π1 =0.46.
ΠΡΠ°ΡΠΈΠΊ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΡΡΡΠ΅ΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π½Π° ΡΠΈΡ. 12.
Π ΡΡΠ½ΠΎΠΉ ΡΡΡΡ:
;
;
— 0.27 — 0.30 = - 4.67;
= - 2.451
Π0= - 0.68;
Π1= 0.46.
7.5 ΠΡΠ²ΠΎΠ΄ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ Π‘ΡΠ°Π²Π½ΠΈΠ²Π°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΠΈ ΡΡΡΠ½ΠΎΠ³ΠΎ ΡΡΡΡΠ°, ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ ΡΠΎΡΠ½ΠΎΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ ΡΠΈΡΠ΅Π».
Π ΠΈΡ.12
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΠΈΡΠΎΠΊΠΎΠΌ ΡΠΌΡΡΠ»Π΅ ΠΏΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΎΠΉ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΡΡ ΡΡΠ½Π΄Π°ΠΌΠ΅Π½ΡΠ°Π»ΡΠ½Π°Ρ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½Π°Ρ Π½Π°ΡΠΊΠ°, ΠΈΠ·ΡΡΠ°ΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅ΡΡΡ ΡΠ±ΠΎΡΠ°, Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΡ, ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. Π ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠ½ΠΎΠ³ΠΈΡ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ½ΡΡ ΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ. ΠΠ½Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· Π±Π°Π·ΠΎΠ²ΡΡ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ «Π‘ΠΠΠ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ², ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ ΡΡΠ°Π½ΠΊΠΎΠ²». Π Π½Π΅ΠΉ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠΎΠ΄Π΅Π»Π΅ΠΉ (Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΡΡΡΠ΄Π½ΠΎ ΡΠΎΡΠΌΠ°Π»ΠΈΠ·ΡΠ΅ΠΌΡΡ Π·Π°Π΄Π°Ρ), Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, Π° ΡΠ°ΠΊΠΆΠ΅ Π²ΠΎΠΏΡΠΎΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ.
1. ΠΠ°ΡΠ΅Π² Π. Π. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°: Π£ΡΠ΅Π±Π½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅. — Π£Π»ΡΡΠ½ΠΎΠ²ΡΠΊ: Π£Π»ΠΠ’Π£, 2006. — 104Ρ.
2. ΠΠ°ΡΠ΅Π² Π. Π. Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°. — Π£Π»ΡΡΠ½ΠΎΠ²ΡΠΊ: Π£Π»ΠΠ’Π£, 2006. — 52 Ρ.
3. ΠΠ»ΠΈΠΌΠΎΠ²Π° Π. Π. ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠΏΠΎΠ²ΡΡ Π·Π°Π΄Π°Ρ. — ΠΠΎΡΠΊΠ²Π°, 2008. — 526Ρ.