Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1

Сызу кезінде ағымдағы түс пен түзу стилі қолданылады. Осы процедураның көмегімен экранға синустың графигін саламыз:

0. 
   array [O..N+1] of Pointtype;k : Word;
   

begin
{Графиканы іске қосамыз} d:=Detect;InitGraph(d, r, ‘’); e:=GraphResult;

if e <> grOk then WriteLn(GraphErrorMsg(e))
else begin
{График координаталарын есептейміз}
for k:=0 to N do with m[k] do begin
x:=trunc(k*GetMaxX/N);
у:=trunc(GetMaxY*(-sin(2*Pi*k/N)+1)/2); end;
{Графикті түзу сызықпен аяқтаймыз}

Бұл мысалда, көлденең сызық сызу үшін сынық сызықтың бастапқы жəне соңғы нүктелерін біріктіреміз. Сыну нүктелері-нің саны N Word типті өрнек болғанымен, процедура ішінде бұл параметрге қолданылатын буфер жадысының көлеміне бай-ланысты шектеулер қойылады. Сіз бұны алдыңғы мысалдағы N өзгерту арқылы байқауыңызға болады: егер N=678 болса, онда график экранға шықпайды, ал GraphResult функциясына – 6 мəні қайтарылады (аудандарды көру үшін жады көлемі жетпейді). Сонымен, бұл программа үшін сыну нүктелерінің саны 679 аспауы кеек. Алайда, төмендегі программа үшін сыну нүктелерінің саны

0. 
   Бұл программада сынық сызық бірінің үстіне бірі бірнеше рет сызылатын диагональ түзулер түрінде берілген.
   

Uses Graph;