Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
-------------| ”гЄжЁЁ Ё Їа®жҐ¤гал, ўе®¤пйЁҐ |--------------
-------------| ў б®бв ў Ја дЁзҐбЄ®© ЎЁЎ«Ё®вҐЄЁ |--------------
Џ®¤Є«о票Ґ Ја дЁЄЁ:
uses Graph;
InitGraph - Їа®жҐ¤га ЁЁжЁ «Ё§ жЁЁ Ја дЁзҐбЄ®Ј® ०Ё¬ .
„«п Ї®¤Є«озҐЁп Ја дЁЄЁ ¬®¦® ЁбЇ®«м§®ў вм б«Ґ¤гойго Їа®жҐ¤гаг:
Procedure GraphCHK;
Begin
Gd:=VGA; { ѓа дЁзҐбЄЁ© ¤ ЇвҐа - VGA }
Gm:=VGAHi; { ѓа дЁзҐбЄЁ© ०Ё¬ VGAHi (640x480) }
InitGraph (Gd,Gm,''); { ‚Є«о票Ґ Ја дЁзҐбЄ®Ј® ०Ё¬ }
If GraphResult<>grOk then
begin
write('ЋиЁЎЄ ');
halt(1)
end;
end;
Џ®б«Ґ а Ў®вл б Ја дЁзҐбЄ®© ЎЁЎ«Ё®вҐЄ®© Ґ®Ўе®¤Ё¬® ўлЈаг§Ёвм Ё§
Ї ¬пвЁ ¤а ©ўҐа Ї®¤Є«озҐле Ја дЁзҐбЄЁе ¤ ЇвҐа®ў ( ЇаЁ¬Ґа, VGA),
Їа®¬Ґ¦гв®злҐ ¤ лҐ, Ё ўҐагвмбп ў ⥪бв®ўл© аҐ¦Ё¬.
„«п нв®Ј® ¤®бв в®з® ў Є®жҐ Їа®Ја ¬¬л ўбв ўЁвм дгЄжЁо CloseGraph !!!
‚ ЇаЁ¬ҐаҐ (Їа®жҐ¤га GraphCHK) ЁбЇ®«м§гҐвбп ०Ё¬ VGA.
ЏаЁ н⮬ а §аҐиҐЁҐ ¬®Ёв®а : 640x480 в®зҐЄ.
ДДДДДДДДДДДДДДДДДДД>x 0...639 (Ќ з «м п Є®®а¤Ё в = (0,0) -«Ґўл©
| ўҐаеЁ© гЈ®«)
|
|y 0...479
x,y : integer;
GetmaxX, GetmaxY - ў®§ўа й ов § зҐЁп ¬ ЄбЁ¬г¬®ў Є®®а¤Ё в.
ЏаЁ¬Ґа: x:=getmaxX;
GetX, GetY - ®ЇаҐ¤Ґ«пов Ї®«®¦ҐЁҐ ⥪г饣® гЄ § ⥫п
(в.Ґ. Є®®а¤Ё вл ў ¤ л© ¬®¬Ґв ўаҐ¬ҐЁ).
MoveTo(x,y) - ЇҐаҐ¬Ґй Ґв ⥪гйЁ© гЄ § вҐ«м ў в®зЄг
б Є®®а¤Ё в ¬Ё x,y.
MoveRel(dx,dy) - ЇҐаҐ¬Ґй Ґв ⥪гйЁ© гЄ § ⥫м dx Ё dy в®зҐЄ
®в®бЁвҐ«м® Є®®а¤Ё в ⥪г饣® гЄ § ⥫п(!).
Line(x,y,x1,y1) - аЁб®ў ЁҐ «ЁЁЁ Ё§ в®зЄЁ б (x,y) ў в®зЄг б (x1,y1).
OutText('⥪бв') - ўлў®¤ ⥪бв нЄа ў Ја дЁзҐбЄ®¬ ०Ё¬Ґ.
OutTextXY(x,y,'⥪бв') - ўлў®¤ ⥪бв нЄа , зЁ п б в®зЄЁ
б Є®®а¤Ё в ¬Ё (x,y).
PutPixel(x,y,color) - ®в®Ўа ¦ҐЁҐ в®зЄЁ 梥в (color) нЄа Ґ.
SetColor(color), SetBkColor(color) - гбв ®ўЄ ⥪г饣® 梥в
®в®Ўа ¦ҐЁп Ја дЁзҐбЄЁе ®ЎкҐЄв®ў Ё д® .
color = 0...15
__________________________________________________________
‡ ¤ ЁҐ:
1. Ќ ЇЁб вм Їа®Ја ¬¬г аЁб®ў Ёп Ја дЁЄ дгЄжЁЁ. ‘а ўЁвм б Ја дЁЄ®¬ дгЄжЁЁ,
Ї®бва®Ґл¬ ў MS Excel.
. y=x*x+3;
Ў. y=sin(2*x)
ў. y=x*^3+2*x;
Ј. y=x-2*x^4;
¤. y=5*x*x/2;
Ґ. y=x^3+6*x-2;
с. y=3*cos(x*x);
¦. y=ln(x+5);
§. y=-x*x+8*x^3;
Ё. y=exp(x^(1/2))-x^5;
-------------| ў б®бв ў Ја дЁзҐбЄ®© ЎЁЎ«Ё®вҐЄЁ |--------------
Џ®¤Є«о票Ґ Ја дЁЄЁ:
uses Graph;
InitGraph - Їа®жҐ¤га ЁЁжЁ «Ё§ жЁЁ Ја дЁзҐбЄ®Ј® ०Ё¬ .
„«п Ї®¤Є«озҐЁп Ја дЁЄЁ ¬®¦® ЁбЇ®«м§®ў вм б«Ґ¤гойго Їа®жҐ¤гаг:
Procedure GraphCHK;
Begin
Gd:=VGA; { ѓа дЁзҐбЄЁ© ¤ ЇвҐа - VGA }
Gm:=VGAHi; { ѓа дЁзҐбЄЁ© ०Ё¬ VGAHi (640x480) }
InitGraph (Gd,Gm,''); { ‚Є«о票Ґ Ја дЁзҐбЄ®Ј® ०Ё¬ }
If GraphResult<>grOk then
begin
write('ЋиЁЎЄ ');
halt(1)
end;
end;
Џ®б«Ґ а Ў®вл б Ја дЁзҐбЄ®© ЎЁЎ«Ё®вҐЄ®© Ґ®Ўе®¤Ё¬® ўлЈаг§Ёвм Ё§
Ї ¬пвЁ ¤а ©ўҐа Ї®¤Є«озҐле Ја дЁзҐбЄЁе ¤ ЇвҐа®ў ( ЇаЁ¬Ґа, VGA),
Їа®¬Ґ¦гв®злҐ ¤ лҐ, Ё ўҐагвмбп ў ⥪бв®ўл© аҐ¦Ё¬.
„«п нв®Ј® ¤®бв в®з® ў Є®жҐ Їа®Ја ¬¬л ўбв ўЁвм дгЄжЁо CloseGraph !!!
‚ ЇаЁ¬ҐаҐ (Їа®жҐ¤га GraphCHK) ЁбЇ®«м§гҐвбп ०Ё¬ VGA.
ЏаЁ н⮬ а §аҐиҐЁҐ ¬®Ёв®а : 640x480 в®зҐЄ.
ДДДДДДДДДДДДДДДДДДД>x 0...639 (Ќ з «м п Є®®а¤Ё в = (0,0) -«Ґўл©
| ўҐаеЁ© гЈ®«)
|
|y 0...479
x,y : integer;
GetmaxX, GetmaxY - ў®§ўа й ов § зҐЁп ¬ ЄбЁ¬г¬®ў Є®®а¤Ё в.
ЏаЁ¬Ґа: x:=getmaxX;
GetX, GetY - ®ЇаҐ¤Ґ«пов Ї®«®¦ҐЁҐ ⥪г饣® гЄ § ⥫п
(в.Ґ. Є®®а¤Ё вл ў ¤ л© ¬®¬Ґв ўаҐ¬ҐЁ).
MoveTo(x,y) - ЇҐаҐ¬Ґй Ґв ⥪гйЁ© гЄ § вҐ«м ў в®зЄг
б Є®®а¤Ё в ¬Ё x,y.
MoveRel(dx,dy) - ЇҐаҐ¬Ґй Ґв ⥪гйЁ© гЄ § ⥫м dx Ё dy в®зҐЄ
®в®бЁвҐ«м® Є®®а¤Ё в ⥪г饣® гЄ § ⥫п(!).
Line(x,y,x1,y1) - аЁб®ў ЁҐ «ЁЁЁ Ё§ в®зЄЁ б (x,y) ў в®зЄг б (x1,y1).
OutText('⥪бв') - ўлў®¤ ⥪бв нЄа ў Ја дЁзҐбЄ®¬ ०Ё¬Ґ.
OutTextXY(x,y,'⥪бв') - ўлў®¤ ⥪бв нЄа , зЁ п б в®зЄЁ
б Є®®а¤Ё в ¬Ё (x,y).
PutPixel(x,y,color) - ®в®Ўа ¦ҐЁҐ в®зЄЁ 梥в (color) нЄа Ґ.
SetColor(color), SetBkColor(color) - гбв ®ўЄ ⥪г饣® 梥в
®в®Ўа ¦ҐЁп Ја дЁзҐбЄЁе ®ЎкҐЄв®ў Ё д® .
color = 0...15
__________________________________________________________
‡ ¤ ЁҐ:
1. Ќ ЇЁб вм Їа®Ја ¬¬г аЁб®ў Ёп Ја дЁЄ дгЄжЁЁ. ‘а ўЁвм б Ја дЁЄ®¬ дгЄжЁЁ,
Ї®бва®Ґл¬ ў MS Excel.
. y=x*x+3;
Ў. y=sin(2*x)
ў. y=x*^3+2*x;
Ј. y=x-2*x^4;
¤. y=5*x*x/2;
Ґ. y=x^3+6*x-2;
с. y=3*cos(x*x);
¦. y=ln(x+5);
§. y=-x*x+8*x^3;
Ё. y=exp(x^(1/2))-x^5;