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


const NormWidth = 1;{Қалыңдығы бір пиксел} ThickWidth = 3;{ Қалыңдығы үш пиксел} 183



бет105/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   101   102   103   104   105   106   107   108   ...   210
Байланысты:
boribaev-algoritmdeu

const
NormWidth = 1;{Қалыңдығы бір пиксел}
ThickWidth = 3;{ Қалыңдығы үш пиксел}


183

мұндағы процедура орнатқан түзу стилі (ағымдағы стиль) тік-бұрыш, көпбұрыш жəне басқада фигураларды салғанда қолда-нылады.
Келесі мысалда барлық стандартты стилдермен түзулер салынады, сонан кейін экранда үлгі аты шығады да, экран осы үлгідегі түзумен толтырылады (7.5-сурет). Программадан шығу үшін нөлді енгізіңіз.



7.5-сурет. Түзу сызықтар түрлері
Uses CRT, Graph;
const
style:array [0..4]of String[9]=(‘SolidLn’, ‘dottedLn’,’CenterLn’,’DashedLn’,’UserBitLn’); var
d,r,e,i,j,dx,dy: Integer;


  1. Word;

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

if e <> grOk then
WriteLn (GraphErrorMsg(e)) else

begin
{Түзу ығысуын есептейміз} dx:=GetMaxX div 6; dy:=GetMaxY div 10; {стандартты түзулерді шығарамыз}




184

for j:=0 to 1 do {Екі қалыңдық үшін} begin
for i:=0 to 3 do {Түзутің төрт типі} begin
SetLineStyle(i, 0, j*2+1); Line(0,(i+j*4+l)*dy,dx,(i+j*4+l)*dy);
OutTextXY(dx+10,(i+j*4+l)*dy,style [i]) end
end;
{Үлгіні енгізіп, түзу саламыз}
j:=0;
dy:=(GetMaxY+1) div 25;
repeat
OutTextXY(320,j*dy,’Pattern:’);
GotoXY(50,j+1);
ReadLn(p);
if p<> 0 then
begin
SetLineStyle(UserBitLn,p,NormWidth); Line(440,j*dy+4, 600, j*dy+4);
inc(j)
end
until p=0;
CloseGraph;
end
end.



Достарыңызбен бөлісу:
1   ...   101   102   103   104   105   106   107   108   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет