Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

информа / _Pascal10 / 08 / urok08p

.txt
Скачиваний:
8
Добавлен:
14.05.2015
Размер:
2.32 Кб
Скачать
-------------| ”г­ЄжЁЁ Ё Їа®жҐ¤гал, ўе®¤пйЁҐ |--------------
-------------| ў б®бв ў Ја дЁзҐбЄ®© ЎЁЎ«Ё®вҐЄЁ |--------------

Џ®¤Є«о祭ЁҐ Ја дЁЄЁ:
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;

Соседние файлы в папке 08
  • #
    14.05.20155.53 Кб7EGAVGA.BGI
  • #
    14.05.201533.47 Кб8GRAPH.TPU
  • #
    14.05.20152.32 Кб8urok08p.txt