विंडो नियंत्रण
विंडोज साइज सेट करा(w, h);
ग्राफिक्स विंडोचा आकार सेट करते
विंडोविड्थ सेट करा(w);
ग्राफिक्स विंडोची रुंदी सेट करते
विंडोउंची (एच) सेट करा;
ग्राफिक्स विंडोची उंची सेट करते
SetWindowTitle('शीर्षक');
विंडो शीर्षक बदला
खिडकी
क्लिअर विंडो;
पांढऱ्या रंगाने ग्राफिक्स विंडो साफ करते
ClearWindow(रंग);
निर्दिष्ट रंगासह ग्राफिक्स विंडो साफ करते.
ग्राफएबीसी वापरते;
सुरू
क्लिअर विंडो;
ClearWindow(clMoneyGreen);
शेवट
हिरव्या पैशाचा रंग ग्राफिक
आदिम
डॉट
ओळ
आयत
वर्तुळ
लंबवर्तुळाकार
क्षेत्र
चाप डॉट
सेटपिक्सेल(x,y,रंग);
निर्देशांकांसह एक पिक्सेल रंगवते (x,y)
रंग
ग्राफएबीसी वापरते;
सुरू
SetPixel(300,200,clred);
शेवट ओळी
LineTo(x,y);
वर्तमान पेन स्थितीपासून एका बिंदूवर एक रेषा काढते
(x,y)
पेन निर्देशांक देखील बनतात
(x,y) बरोबर
x,y
ग्राफएबीसी वापरते;
सुरू
LineTo(300,200);
शेवट ओळी
MoveTo(x,y);
वर्तमान रेखाचित्र स्थिती सेट करते
बिंदू (x,y)
x1,y1
x2,y2
ग्राफएबीसी वापरते;
सुरू
MoveTo(150,50);
LineTo(500,250);
शेवट ओळी
रेखा(x1,y1,x2,y2);
(x1,y1) पासून सुरू होणारा आणि शेवट होणारा रेषाखंड काढतो
बिंदूवर (x2,y2)
x1,y1
x2,y2
ग्राफएबीसी वापरते;
सुरू
ओळ(100,50,500,250);
शेवट रंग
clAquamarine
clBisque
cl निळा
clBurlyWood
cl चॉकलेट
कॉर्नसिल्क
cl गडद निळा
cl गडद राखाडी
clDarkMagenta
clDarkOrchid
clDarkSeagreen
clDarkViolet
clDeepSkyBlue
clAzure
cl काळा
clBlueViolet
clCadetBlue
clCoral
cl किरमिजी रंगाचा
clDarkCyan
गडद हिरवा
clDarkOliveGreen
clDarkRed
clDarkSlateBlue
clDeepPink
clDimGray
clBeige
clBlanched बदाम
clBrown
clChartreuse
कॉर्नफ्लॉवर निळा
clCyan
clDarkGoldenrod
clDarkKhaki
clDarkOrange
clDarkturquoise
clDarkSlateGray
clDarkSalmon
clDodgerBlue रंग
clFuchsia
clGold
cl हिरवा
clHotPink
clIvory
clLavenderBlush
हलका निळा
clGainsboro
cl गोल्डनरॉड
cl हिरवा पिवळा
clIndianRed
cl खाकी
क्लॉन हिरवा
cllightCoral
clGhostWhite
clग्रे
cl हनीड्यू
clIndigo
लॅव्हेंडर
clलेमन शिफॉन
cllightCyan
clLightGoldenrodYe
cl लाईटग्रे
क्ललाइट हिरवा
कमी
cLightPink
cllightSalmon
cllightSeagreen
clLightSkyBlue
clLightSlateGray
clLightSteelBlue
cl हलका पिवळा
clLime
clLimegreen
क्ललिनन
clMagenta
clमॅरून
clMediumAquamari
cl मध्यम निळा
clMediumOrcid
ne
cl मध्यम जांभळा
clMediumSeagreen clMediumSlateBlue
clMoneyGreen
clPlum
clMistyRose
clRandom - यादृच्छिक
संपूर्ण पॅलेटमधून रंग
पास्कल रंग रेषा रंग
SetPenColor(रंग);
पॅरामीटरने निर्दिष्ट केलेले पेन रंग सेट करते
रंग
ग्राफएबीसी वापरते;
सुरू
SetPenColor(clred);
ओळ(30,30,400,350);
शेवट ठिपके असलेली रेषा
SetPenStyle(<…>);
पेन शैली सेट करते
ग्राफएबीसी वापरते;
सुरू
setpencolor(clred);
SetPenWidth(4);
SetPenStyle(psSolid);(ठोस)
रेखा(10,75,350,75);
SetPenStyle(psDash);(डॅश)
रेखा(10,100,350,100);
SetPenStyle(psDot); (बिंदु असलेला)
रेखा(10,125,350,125);
SetPenStyle(psDashDot); (डॅश-डॉट)
रेखा(10,150,350,150);
SetPenStyle(psDashDotDot);
(पर्यायी डॅश लाइन)
रेखा(10,175,350,175);
शेवट रेषेची जाडी
SetPenWidth(n);
पेनची रुंदी (जाडी) n वर सेट करते
पिक्सेल
ग्राफएबीसी वापरते;
सुरू
setpenwidth(20);
setpencolor(clred);
ओळ(30,30,400,350);
शेवट त्रिकोण
रेखा(x1,y1,x2,y2);
LineTo(x,y);
ग्राफएबीसी वापरते;
सुरू
setpenwidth(20);
setpencolor(clred);
रेखा(300,100,500,300);
lineto(100,300);
lineto(300,100);
फ्लडफिल (300,200, clgreen);
शेवट आयत
आयत(x1,y1,x2,y2);
निर्देशांकांनी दिलेला आयत काढतो
विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2)
x1,y1
x2,y2
ग्राफएबीसी वापरते;
सुरू
आयत(50,50,200,200);
शेवट रंग भरणे
फ्लडफिल(x,y,रंग);
बिंदूपासून सुरू होणार्‍या समान रंगाचे क्षेत्र रंगाने भरते
(x,y)
x1,y1
x2,y2
ग्राफएबीसी वापरते;
सुरू
आयत(50,50,200,200);
फ्लडफिल(100,100,clBlue);
शेवट ब्रश भरा
सेटब्रशकलर(रंग);
ब्रश रंग सेट करते, बंद करण्यासाठी विस्तारित करते
सर्किट ज्याचे वर्णन स्थापना प्रक्रियेचे अनुसरण करते
ब्रशचे रंग
ग्राफएबीसी वापरते;
सुरू
सेटब्रशकलर(clGreen);
आयत(50,50,300,300);
शेवट ब्रश भरा
सेटब्रशस्टाईल(<…>);
ब्रश शैली प्रकार सेट करते
bs सॉलिड
सॉलिड ब्रश (नुसार
डीफॉल्ट)
bsClear
पारदर्शक ब्रश
bsHatch
लाइन ब्रश
bsग्रेडियंट
ग्रेडियंट ब्रश ब्रश भरा
ब्रश स्ट्रोक शैली गणना केलेल्या प्रकाराद्वारे निर्दिष्ट केल्या आहेत
सेटब्रशहॅच(<…>);
ब्रश स्ट्रोक शैलींसाठी स्थिरांक परिभाषित केले आहेत:
ग्राफएबीसी वापरते;
सुरू
SetBrushStyle(bsHatch);
द्वारे
डीफॉल्ट
शैली 0 वर सेट केली आहे -
घन
ओतणे
रंग.
सेटब्रशहॅच(bhHorizont
al);
आयत(10,10,100,100);
…
शेवट ब्रश भरा
स्ट्रोक ब्रशसाठी, आपण याव्यतिरिक्त सेट करू शकता
मालमत्ता:
SetHatchBrushBackgroundColor(clGold);
ग्राफएबीसी वापरते;
सुरू
SetBrushStyle(bsHatch);
द्वारे
डीफॉल्ट
शैली 0 वर सेट केली आहे -
SetHatchBrushBackgroundColor(cl
घन
ओतणे
सोने);
रंग.
सेटब्रशकलर(clCoral);
सेटब्रशहॅच(bhHorizontal); बाह्यरेखा रंग आणि जाडी
SetPenWidth(w);
SetPenColor(रंग);
ग्राफएबीसी वापरते;
सुरू
SetPenColor(clred);
SetPenWidth(20);
आयत(50,50,200,200);
फ्लडफिल(100,100,clBlue);
शेवट वर्तुळ
वर्तुळ(x,y,r);
(x,y) आणि केंद्रस्थानी वर्तुळ काढतो
त्रिज्या r
आर
x1,y1
ग्राफएबीसी वापरते;
सुरू
मंडळ(500,200,100);
फ्लडफिल(500,200, clred);
शेवट लंबवर्तुळाकार
लंबवर्तुळ(x1,y1,x2,y2);
वर्णन दिलेले लंबवर्तुळ काढते
विरुद्ध निर्देशांकांसह आयत
शिरोबिंदू (x1,y1) आणि (x2,y2).
x1,y
1
x1,y
1
ग्राफएबीसी वापरते;
सुरू
लंबवर्तुळ(50,50,200,350);
फ्लडफिल(50+100,50+100,clred);
लंबवर्तुळ(250,150,550,300);
फ्लडफिल(250+100,150+100,clBlue);
शेवट
x2,y
2
x2,y
2वर्तुळाची चाप
आर्क(x,y,r,a1,a2);
(x,y) आणि त्रिज्या r सह मध्यवर्ती वर्तुळाकार चाप काढतो,
a1 आणि a2 कोन बनवणाऱ्या दोन किरणांमध्ये बंदिस्त
OX अक्षासह (a1 आणि a2 वास्तविक आहेत, अंशांमध्ये निर्दिष्ट केलेले आणि
घड्याळाच्या उलट दिशेने मोजले)
आर
x,y
ग्राफएबीसी वापरते;
सुरू
SetPenWidth(10);
*
आर्क(३००,२५०,१५०,४५,१३५)
;
शेवट क्षेत्र
पाई (x,y,r,a1,a2);
कमानीने बांधलेल्या वर्तुळाचा सेक्टर काढतो (मापदंड
प्रक्रियेचा अर्थ चाप प्रमाणेच आहे)
ग्राफएबीसी वापरते;
सुरू
पाई(300,200,100,0,90);
फ्लडफिल(300+10,200-10,
clAquamarine);
शेवट मजकूर आउटपुट
TextOut(x,y,'string');
(x,y) स्थितीवर मजकूराची ओळ आउटपुट करते (बिंदू (x,y) निर्दिष्ट करते
आयताचा वरचा डावा कोपरा ज्यामध्ये असेल
मजकूर)
ग्राफएबीसी वापरते;
सुरू
टेक्स्टआउट(100,30,"स्क्वेअर");
आयत(50,50,200,200);
फ्लडफिल(५५,५५,सीएलब्लू);
शेवट फॉन्ट क्रिया
SetFontName('नाव');
फॉन्टचे नाव सेट करते
SetFontColor(रंग);
फॉन्ट रंग सेट करते
SetFontSize(sz);
बिंदूंमध्ये फॉन्ट आकार सेट करते
SetFontStyle(fs);
फॉन्ट शैली सेट करते फॉन्ट नाव
डीफॉल्ट फॉन्ट वर सेट केला आहे
MS Sans Serif नाव
सर्वात सामान्य फॉन्ट आहेत
टाइम्स न्यू रोमन, एरियल आणि कुरियर न्यू
फॉन्टचे नाव विचारात न घेता टाइप केले जाऊ शकते
नोंदणी करा
उदाहरणार्थ:
SetFontName('टाइम्स न्यू रोमन'); अक्षरशैली
fsNormal - सामान्य
नामांकित स्थिरांकांद्वारे निर्दिष्ट:
fsBold - ठळक
fsItalic - तिर्यक
fsBoldItalic - ठळक तिर्यक
fsUnderline - अधोरेखित
fsBoldUnderline - ठळक अधोरेखित
fsItalicUnderline - तिर्यक अधोरेखित
fsBoldItalicUnderline - ठळक तिर्यक अधोरेखित उदाहरणार्थ:
ग्राफएबीसी वापरते;
सुरू
SetFontName('Arial');
SetFontSize(20);
SetFontColor(clRed);
TextOut(10,10,'नियमित");
SetFontStyle(fsItalic);
SetFontColor(clBlue);
टेक्स्टआउट(10,50,'इटालिक');
SetFontStyle(fsBold);
SetFontColor(clRandom);
TextOut(10,90,'ठळक");
SetFontStyle(fsUnderline);
SetFontColor(clRandom);
TextOut(10,130,'अधोरेखित');
SetFontStyle(fsBoldItalicUnderline);
SetFontColor(clRandom);
TextOut(10,170,'ठळक, तिर्यक, अधोरेखित");
शेवट वापरले
रंग
फंक्शन वापरून रंग देखील सेट केला जाऊ शकतो
RGB(r,g,b) जिथे r, g आणि b पूर्णांक आहेत
0 ते 255 पर्यंत श्रेणी.
फंक्शन पूर्णांक मूल्य देते
रंग कोड ज्यात लाल, हिरवा आणि
r, g आणि b तीव्रतेसह निळे घटक
अनुक्रमे (0 किमान शी संबंधित आहे
तीव्रता, 255 - कमाल).
RGB(255,255,255) - जुळते
पांढरा रंग.
RGB(0,0,0) - काळ्या रंगाशी संबंधित आहे. उदाहरणार्थ:
ग्राफएबीसी वापरते;
सुरू
clearwindow(rgb(200,150,250));
टेक्स्टआउट(93,30, "स्क्वेअर");
आयत(50,50,200,200);
फ्लडफिल(55,55,clRed);
TextOut(275,30,"Elipse");
लंबवर्तुळ(250,50,350,200);
फ्लडफिल(250+50,50+50,क्लपिवळा);
सेरोगोडस्काया एन.आय. GBOU शाळा №118 SWAO
ग्राफिक्स मोड
माहितीशास्त्र शिक्षक GBOU शाळा №118 SWAO
सेरोगोडस्काया एन.आय.
मॉस्को शहर
धडा #1
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
गोल
ट्यूटोरियल:
पास्कलमधील प्रोग्रामच्या संरचनेसह पास्कल एबीसी सॉफ्टवेअर वातावरणासह विद्यार्थ्यांना परिचित करण्यासाठी;
अभ्यास केलेल्या सामग्रीच्या वापरावर विद्यार्थ्यांचे प्राथमिक ज्ञान तयार करणे.
विकसनशील:
विश्लेषण, सामान्यीकरण आणि पद्धतशीर करणे शिकवण्यासाठी;
विद्यार्थ्यांचे शब्दसंग्रह समृद्ध करा.
शैक्षणिक:
विकसित करणे माहिती संस्कृतीविद्यार्थी, स्वतंत्र आणि सामूहिक क्रियाकलाप करण्याची क्षमता, प्रतिबिंब.
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
- विद्यार्थ्यांना माहित असावे:
- ग्राफपास्कल एबीसी वातावरणातील मूलभूत आज्ञा आणि कार्ये;
- प्रोग्रामच्या डिझाइन आणि ऑपरेशनसाठी नियम;
- विद्यार्थी सक्षम असावेत:
- ग्राफिक आदिम चित्र काढण्यासाठी कार्यक्रम विकसित करा;
- प्रोग्रामसह आवश्यक क्रिया करा;
- वस्तू रेखाटण्यासाठी पॅरामीटर्ससह आणि त्याशिवाय प्रक्रिया विकसित करा;
- ठराविक अल्गोरिदम बांधकामांवर आधारित कार्यक्रम विकसित करा;
- याव्यतिरिक्त:अधिक जटिल ग्राफिक्स समस्या सोडवा
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ग्राफिक्स मोडमध्ये कार्य करण्यासाठी, आपल्याला मॉड्यूल कनेक्ट करणे आवश्यक आहे ग्राफएबीसी :
PascalABC ग्राफिक स्क्रीनमध्ये समाविष्ट आहे 640 द्वारे गुण क्षैतिज आणि 400गुण अनुलंब
कृपया लक्षात घ्या की मूळ हा स्क्रीनचा वरचा डावा कोपरा आहे, गणितातील समन्वय अक्षांच्या विरूद्ध
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
स्क्रीन नियंत्रण
विंडोविड्थ(w) सेट करा - ग्राफिक्स विंडोची रुंदी सेट करते;
विंडोउंची (ता) सेट करा - ग्राफिक्स विंडोची उंची सेट करते;
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
क्लिअर विंडो; - पांढऱ्या रंगाने ग्राफिक्स विंडो साफ करते.
ClearWindow(clरंगाचे नाव ); - निर्दिष्ट रंगासह ग्राफिक्स विंडो साफ करते.
ClearWindow(clMoneyGreen);
हिरव्या पैशाचा रंग
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ग्राफिक्स आदिम
- डॉट
- ओळ
- आयत
- वर्तुळ
- लंबवर्तुळाकार
- क्षेत्र
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
SetPixel(x,y,clरंगाचे नाव ) - एका रंगाने निर्देशांक (x,y,) वर एक पिक्सेल रंगवतो
SetPixel(300,200,clred);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
लाइनटू(x,y) - वर्तमान पेन स्थितीपासून बिंदू (x,y) पर्यंत एक खंड काढतो; पेन निर्देशांक देखील (x,y) च्या समान होतात.
beginLineTo(300,200);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ओळी
रेखा(x1,y1,x2,y2) - बिंदू (x1,y1) वर सुरूवातीस आणि बिंदूवर (x2,y2) शेवट असलेला एक खंड काढतो.
ओळ(100,50,500,250);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
रंग वापरले
cl काळा - काळा cl जांभळा - जांभळा cl पांढरा - पांढरा clMaroon - गडद लाल clRed - लाल clNavy - गडद निळा cl हिरवा - हिरवा clBrown - तपकिरी cl निळा - निळा clSkyBlue - निळा पिवळा - पिवळा clCream - मलई
clAqua - पिरोजा ऑलिव्ह - ऑलिव्ह clFuchsia - लिलाक clTeal - निळा हिरवा clग्रे - गडद राखाडी clLime - चमकदार हिरवा clMoneyGreen - हिरव्या पैशाचा रंग clLtग्रे - हलका राखाडी clDkग्रे - गडद राखाडी clMedGray - राखाडी cl चांदी - चांदी
यादृच्छिक (16777215) - संपूर्ण पास्कल रंग पॅलेटमधून एक यादृच्छिक रंग
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
रेषा रंग
SetPenColor(रंग) - पॅरामीटरने निर्दिष्ट केलेला पेन रंग सेट करते रंग .
setpencolor(clred);
ओळ(30,30,400,350);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ठिपके असलेली रेषा
SetPenStyle(); -
क्रमांकाने निर्दिष्ट केलेली पेन शैली सेट करते.
setpencolor(clred);
SetPenStyle(1); (1 - लांब स्ट्रोक)
रेखा(10,100,350,100);
SetPenStyle(2); (2 - लहान स्ट्रोक)
रेखा(10,125,350,125);
SetPenStyle(3); (३ - डॅश-डॉटेड लाइन)
रेखा(10,150,350,150);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
रेषेची जाडी
SetPenWidth(n) - पेनची रुंदी (जाडी) n पिक्सेलवर सेट करते.
setpenwidth(20);
setpencolor(clred);
ओळ(30,30,400,350);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
त्रिकोण
कार्यपद्धती द्वारे काढलेले
रेखा(x1,y1,x2,y2); LineTo(x,y);
कार्यक्रम treugolnik;
setpenwidth(20);
setpencolor(cl जांभळा);
रेखा(300,100,500,300);
lineto(100,300);
lineto(300,100);
फ्लडफिल(300,200, clSkyBlue);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
आयत
आयत(x1,y1,x2,y2) - विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2) च्या समन्वयाने दिलेला आयत काढतो).
कार्यक्रम pryamougolnik;
आयत(50,50,200,200);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
रंग भरणे
फ्लडफिल(x,y,रंग) - (x,y) पासून सुरू होणारे समान रंगाचे क्षेत्र रंगाने भरते.
कार्यक्रम pryamougolnik;
आयत(50,50,200,200);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ब्रश भरा
सेटब्रशकलर(रंग) - ब्रशचा रंग सेट करते.
ब्रश फिल पर्यंत विस्तारित आहे बंद लूप , ज्याचे वर्णन ब्रश रंग सेट करण्याच्या प्रक्रियेचे अनुसरण करते.
कार्यक्रम zalivka_kist;
सेटब्रशकलर( clMoneyGreen);
आयत(50,50,300,300);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ब्रश भरा
SetBrushStyle(0 ते 7 पर्यंतची संख्या किंवा नाव) - ब्रशची शैली सेट करते, संख्या किंवा प्रतीकात्मक स्थिरांकाने दिलेली.
कार्यक्रम p12_filling;
ग्राफएबीसी वापरते;
सेटब्रशकलर(clAqua);
सेटब्रशस्टाईल(1);
आयत(10,10,100,100);
सेटब्रशकलर(clRed);
सेटब्रशस्टाईल(2);
आयत(110,10,200,100);
सेटब्रशकलर(clBlue);
सेटब्रशस्टाईल(3);
आयत(210,10,300,100);
सेटब्रशकलर(clGreen);
सेटब्रशस्टाईल(4);
आयत(10,110,100,210);
सेटब्रशकलर(क्लपिवळा);
सेटब्रशस्टाईल(5);
आयत(110,110,200,210);
सेटब्रशकलर(clBlack);
सेटब्रशस्टाईल(6);
आयत(210,110,300,210);
डीफॉल्ट शैली 0 - घन रंग भरणे आहे.
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
ब्रश भरा
ब्रश पिक्चर सेट करा('नाव') -
फाइल fname मध्ये संग्रहित नमुना ब्रश नमुना म्हणून सेट करते,पेंटिंग करताना ब्रशच्या वर्तमान रंगाकडे दुर्लक्ष केले जाते.
Brush SetBrushPicture("brush4.bmp"); लंबवर्तुळ(0,0,640,400);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
बाह्यरेखा रंग आणि जाडी
प्रक्रियेद्वारे सेट SetPenWidth(w); SetPenColor(रंग);
कार्यक्रम pryamougolnik;
SetPenColor(clred);
SetPenWidth(20);
आयत(50,50,200,200);
फ्लडफिल(100,100, clSkyBlue);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
वर्तुळ
वर्तुळ(x,y,r) - त्रिज्या r सह (x,y) वर केंद्रीत वर्तुळ काढतो .
मंडळ(500,200,100);
फ्लडफिल(५००,२००, cl हिरवा);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
लंबवर्तुळाकार
लंबवर्तुळ(x1,y1,x2,y2) - विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2) च्या समन्वयांसह त्याच्या परिमित आयताद्वारे दिलेला लंबवर्तुळ काढतो.
लंबवर्तुळ(50,50,200,350);
फ्लडफिल(50+100,50+100,clred);
लंबवर्तुळ(250,150,550,300);
फ्लडफिल(250+100,150+100,clBlue);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
वर्तुळाची चाप
आर्क(x,y,r,a1,a2)- बिंदू (x,y) वर केंद्रीत असलेल्या वर्तुळाचा चाप काढतो आणि त्रिज्या r दोन किरणांमध्ये बंद केलेले कोन a1 आणि a2 OX अक्षासह काढतो (a1 आणि a2 वास्तविक आहेत, अंशांमध्ये निर्दिष्ट केले आहेत आणि घड्याळाच्या उलट दिशेने मोजले जातात).
SetPenWidth(10);
आर्क(३००,२५०,१५०,४५,१३५);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
क्षेत्र
पाई(x,y,r,a1,a2) - चापने बांधलेले वर्तुळ क्षेत्र काढते (प्रक्रिया पॅरामीटर्सचा अर्थ आर्क प्रक्रियेप्रमाणेच असतो).
पाई(300,200,100,0,90);
फ्लडफिल(300+10,200-10,clAqua);
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
संदर्भग्रंथ
- फेडोरेंको यू. टर्बो पास्कल मधील अल्गोरिदम आणि प्रोग्राम .
- फारोनोव व्ही.व्ही. टर्बो पास्कल 7.0. अभ्यासक्रम सुरू. - ज्ञान, 1998. -620 पी.
- Gryzlov V.I., Gryzlova T.P. टर्बो पास्कल 7.0. - एम.: "डीएमके", 2000. - 416 पी.
- झुएव ई.ए. टर्बो पास्कल 6.0 प्रोग्रामिंग भाषा. - एम.: युनिटेक, 1992. - 298s., आजारी.
- झुएव ई.ए. टर्बोपास्कल. व्यावहारिक प्रोग्रामिंग .
सेरोगोडस्काया एन.आय. GBOU माध्यमिक शाळा क्रमांक 1 इमारत 2
आपण लक्ष दिल्याबद्दल धन्यवाद!
प्रोग्रामिंग वातावरणात ग्राफिक्स
टर्बोपास्कल
EADC शिक्षक: Neverova I.Yu.
धडा योजना:
- टर्बो पास्कल प्रोग्रामिंग वातावरणात ग्राफिक्स मोड कनेक्ट करण्याची वैशिष्ट्ये
- कार्यक्रमाची रचना तयार करणे
- प्रक्रियेसाठी निर्देशांकांची गणना
- समोच्च सह रेखाचित्र आणि रंग भरणे वैशिष्ट्ये
- नमुना कार्यक्रमांचे पुनरावलोकन
आय.जी. सेमाकिन, ए.पी. शेस्ताकोव्ह. प्रोग्रामिंगची मूलभूत तत्त्वे, pp.88-98, 398-409.
टर्बो पास्कल भाषेची ग्राफिकल वैशिष्ट्ये - आलेख लायब्ररी
- ग्राफिक लायब्ररीचे कनेक्शन प्रोग्राममध्ये प्रक्रियेद्वारे निर्धारित केले आहे:
- स्क्रीनचा ग्राफिक्स मोड सेट करण्यासाठी, प्रक्रिया वापरा:
InitGraph(Var ड्रायव्हर, मोड: पूर्णांक, पथ: स्ट्रिंग);
ग्राफिक्स लायब्ररीचा मार्ग
ड्रायव्हर मोड
ड्रायव्हर कोड
ग्राफिक्स प्रोग्रामचे ऑपरेटिंग मोड
- मजकूर मोड. प्रोग्राम लिहिण्यासाठी वापरला जातो. प्रोग्राम टेक्स्ट मोडमधून ग्राफिकल प्रोग्राम एक्झिक्यूशन मोडमध्ये संक्रमण RUN प्रक्रियेद्वारे किंवा Ctrl+F9 दाबून केले जाते.
- ग्राफिक मोड. प्रतिमा वैयक्तिक ठिपके (पिक्सेल) पासून तयार केली गेली आहे. VGAHI ग्राफिक्स ड्रायव्हरचा ऑपरेटिंग मोड 640x480 पिक्सेलच्या ग्राफिक्स ग्रिडशी संबंधित आहे, ज्यामध्ये 16 रंगांचे पॅलेट, स्वयंचलित ड्रायव्हर प्रकार शोधणे आणि ग्राफिक्स मोड सेटिंग आहे. एंटर की सह प्रोग्राम टेक्स्ट मोडवर प्रोग्राममधून बाहेर पडा.
कार्यक्रमाची रचना
कार्यक्रम ricunok; (कार्यक्रमाचे शीर्षक)
आलेख वापरा; (ग्राफिक्स लायब्ररी कनेक्शन)
Var Dr , Md: पूर्णांक ; (ड्रायव्हर व्हेरिएबल्सचे वर्णन)
प्रारंभ (कार्यक्रमाच्या मुख्य भागाची सुरुवात)
डॉ:= शोधा; (ड्रायव्हर प्रकार)
InitGraph(डॉ , Md , ‘C:\ TP 70\ BGI’); (यासह ग्राफिक्स सक्रिय करणे
आलेख लायब्ररी)
Readln; (कार्यक्रमाला विलंब)
शेवट (कार्यक्रमाचा शेवट)
भौमितिक आकार आउटपुट प्रक्रियेसाठी निर्देशांकांची गणना
बार(५०,१००,१५०,१५०)
फिलेलिप्स(250,125,25,25)
VGA प्रकार मॉनिटर
ग्राफिक प्रक्रिया वापरणे
मध्यभागी लाल वर्तुळासह पांढऱ्या रंगात जपानी ध्वज प्रदर्शित करणारा कार्यक्रम
पिरोजा स्क्रीनच्या पार्श्वभूमीवर.
VarDr, Md: पूर्णांक;
InitGraph(Dr, Md, 'C:\TP70\BGI');
ClearView पोर्ट; (स्क्रीन पार्श्वभूमी सेट करण्यासाठी स्क्रीन साफ करणे)
SetBkColor(निळसर); (स्क्रीन पार्श्वभूमीचा रंग निळसर वर सेट करा)
SetFillStyle(1, 15); (पॅटर्न आणि रंगानुसार आयताकृती रंग भरणे)
बार(10, 10, 410, 210); (कोऑर्डिनेटद्वारे भरलेला आयत काढणे)
setcolor(4); (वर्तुळ ओळींचा रंग सेट करणे)
मंडळ(210, 110, 30); (केंद्र समन्वय आणि त्रिज्या असलेले वर्तुळ काढणे)
SetFillStyle(1, 4); (पॅटर्न आणि रंगानुसार वर्तुळ भरा रंग)
फ्लडफिल(200, 100, 4); (सीमांवरील समन्वयाभोवती बंद आकृतीचा रंग भरणे)
Readln; (कार्यक्रमाला विलंब)
आलेख बंद करा; (ग्राफिक्स मोडमधून बाहेर पडा)
शेवट (कार्यक्रमाचा शेवट)
फ्लोचार्ट प्रदर्शित करणारा प्रोग्राम
vardr,md:पूर्णांक;
dr:=detect सुरू करा;
सेटलाइन शैली(0,1,3);
लंबवर्तुळ(320,40,0,360,50,10);
ओळ(320,50,320,70);
ओळ(270,70,390,70); ओळ(390,70,370,100); ओळ(370,100,250,100); ओळ(250,100,270,70); ओळ(320,100,320,120);
आयत(260,120,380,150);
ओळ(320,150,320,170); रेखा(320,170,400,190); ओळ(400,190,320,210); ओळ(320,210,240,190); रेखा(240,190,320,170);
रेखा(240,190,200,190); रेखा(200,190,200,210);
आयत(140,210,260,240);
रेखा(200,240,200,260);
आयत(140,260,260,290);
ओळ(200,290,200,310);
रेखा(140,310,260,310); रेखा(260,310,240,340); रेखा(240,340,120,340); रेखा(120,340,140,310); रेखा(200,340,200,360);
रेखा(200,360,100,360); ओळ(100,360,100,170); ओळ(100,170,320,170); रेखा(400,190,440,190);
रेखा(440,190,440,380); रेखा(440,380,320,380); रेखा(320,380,320,400);
लंबवर्तुळ(320,410,0,360,50,10);
settextstyle(7,0,2);
outtextXY(300,75,'F"); outtextXY(300,125,"N:=0"); outtextXY(292,178,'N
कार्यक्रमाच्या अंमलबजावणीचा परिणाम
खालील आकृती दाखवणारा प्रोग्राम लिहा
कार्यक्रम paravoz;
vardr,md:पूर्णांक;
dr:=detect सुरू करा;
initgraph(dr,md,"C:\tp70\bgi");
SetFillStyle(1, 2);
बार(150,30,250,225);
SetFillStyle(1, 1);
बार(180,55,220,115);
SetFillStyle(1, 2);
बार(250,120,450,225);
रेखा(350,65,390,65);
रेखा(350,65,360,120);
रेखा(390,65,380,120);
रेखा(380,120,360,120);
SetFillStyle(1,1);
क्षेत्र(420,245,0,360,20,20);
क्षेत्र(300,245,0,360,20,20);
क्षेत्र(185,245,0,360,20,20);
SetFillStyle(1,7);
क्षेत्र(400,50,0,360,30,10);
क्षेत्र(425,25,0,360,20,10);
क्षेत्र(445,5,0,360,10,5);
गृहपाठ
वर्कबुक्स विषय क्रमांक 4 मध्ये, ग्राफिक प्रक्रियेच्या वापरावर कार्य 1 आणि 2 पूर्ण करा.
परिशिष्ट 4 मधील मूलभूत ग्राफिक प्रक्रियेची सारणी.
स्लाइड 2
प्रत्येक पिक्सेल (बिंदू) मध्ये दोन निर्देशांक असतात: x आणि y. पिक्सेलचे भौमितिक परिमाण मॉनिटरच्या रिझोल्यूशनद्वारे निर्धारित केले जातात.
स्लाइड 3
उदाहरण 1. GraphAbc प्रोग्राम tochka मॉड्यूल कनेक्ट करण्याचे प्रात्यक्षिक; graphabc वापरते; (GraphAbc मॉड्यूल कनेक्ट करत आहे) सेटविंडोसाइज (640,480); (ग्राफिक्स विंडोचा आकार सेट करते) सेटपिक्सेल (100,120, clBlack); (पेनचा रंग काळ्यावर सेट करतो आणि निर्देशांक (100,120)) शेवटी एक बिंदू काढतो. एटी हे उदाहरणआम्ही विशिष्ट प्रकरणात सेटपिक्सेल कमांडचा वापर पाहिला आहे. एटी सामान्य दृश्यही कमांड यासारखी दिसते: सेटपिक्सेल (x: पूर्णांक, y: पूर्णांक, c: रंग) - रंग c सह निर्देशांक (x, y) सह बिंदू काढतो. cl काळा - काळा cl जांभळा - जांभळा clWhite - पांढरा clRed - लाल clGreen - हिरवा clBrown - तपकिरी clBlue - निळा clSkyBlue - निळा clपिवळा - पिवळा
स्लाइड 4
दोन बिंदूंना समन्वय (120,150) आणि (150,80) लाल पेन रंगाने जोडणारी रेषा काढण्याचा कार्यक्रम कदाचित यासारखा दिसू शकतो: उदाहरण 2. रेखाचित्र रेखाटण्याचा कार्यक्रम Linii; graphabc वापरते; startsetwindowsize(640,480); setpencolor(clred); (पेनचा रंग लाल वर सेट करते) रेखा(120,150,300,100); (120,150) ते (300,100)) टोकापर्यंत एक खंड काढतो.
स्लाइड 5
उदाहरण 3. वेगवेगळ्या पेन कलर प्रोग्राम ट्रेउगोल्निकसह रेखाचित्र रेखाटण्याचे प्रात्यक्षिक; graphabc वापरते; startsetwindowsize(640,480); सेटपेनविड्थ(5); (वर्तमान पेनची रुंदी सेट करते. रेषेची रुंदी बनवणाऱ्या पिक्सेलची संख्या कंसात दर्शविली जाते) setpencolor(clred); (पेनचा रंग लाल वर सेट करते) रेखा(100,200,170,70); (कोऑर्डिनेट्स (100,200) सह बिंदूपासून निर्देशांकासह (170,70)) सेटपेनकलर (clGreen) सह बिंदूपर्यंत एक खंड काढतो; (पेनचा रंग हिरव्यावर सेट करते) रेखा(170,70,250,200); (बिंदू(170,70) ते बिंदू (250,200)) सेटपेनकलर(clBlue) पर्यंत एक रेषा काढतो; (पेनचा रंग निळ्यावर सेट करते) रेषा(250,200,100,200);(बिंदू(250,200) पासून बिंदू(100,200) पर्यंत एक रेषा काढते) (विविध रंगांच्या बाजू असलेल्या त्रिकोणामध्ये परिणाम) समाप्त.
स्लाइड 6
हे लक्षात ठेवणे महत्त्वाचे आहे: 1. रेषा काढताना, तुम्ही त्याचा आकार (त्याच्या टोकांचे निर्देशांक), रंग, रुंदी (जाडी) आणि शैली सेट करू शकता. 2. GraphAbc मॉड्यूलमध्ये रेखा शैली सेट करण्यासाठी, एक SetPenStyle (शैली) प्रक्रिया आहे, जेथे शैली ही पेन शैली स्थिरांक आहे (धडा 3 चे परिशिष्ट पहा). 3. रेखा घन, ठिपके, डॅश-डॉटेड, डॅश असू शकते. बंद आकृत्या वर पेंट केले जाऊ शकतात.
स्लाइड 7
उदाहरण 4. रेषा वापरून बंद आकार काढण्याचे प्रात्यक्षिक आणि त्यांना चित्रित करणे Program treug_zakrash; graphabc वापरते; startsetwindowsize(640,480); clearwindow(clWhite); (ग्राफिक्स विंडो पांढरी साफ करते) setpenwidth(3); (वर्तमान पेनची रुंदी सेट करते) setpenstyle(pssolid); (रेखा शैलीला ठोस रेषेवर सेट करते) setpencolor(clgreen);(पेनचा रंग हिरव्यावर सेट करते) लाइन(100,200,170,70); (हिरव्या रंगात रेषा काढतो) रेषा(170,70,250,200); ओळ(250,200,100,200); फ्लडफिल (440,120, clred); (पेंट्स त्रिकोण लाल) शेवट.
स्लाइड 8
प्रोग्रामच्या अंमलबजावणीच्या परिणामी, ग्राफिक्स विंडोमध्ये मॉनिटर स्क्रीनवर हिरव्या रंगात काढलेला आणि लाल रंगात भरलेला त्रिकोण दिसेल. 2. फ्लडफिल(x,y,c) प्रक्रियेमध्ये, बिंदू (x,y) चे समन्वय निर्दिष्ट करा, जे भरलेल्या आकृतीच्या आतील भागात असणे आवश्यक आहे.
स्लाइड 9
आयत (x1,y1,x2,y2) आणि वर्तुळ(x,y,r) आदेशांचा वापर करून आयत आणि वर्तुळे काढता येतात. हे कसे करायचे, आयत आणि वर्तुळ काढणाऱ्या प्रोग्रामचे उदाहरण विचारात घ्या. उदाहरण 5. आयत आणि वर्तुळ कार्यक्रम भूमिती काढण्याचे प्रात्यक्षिक; graphabc वापरते; startsetwindowsize(640,480); setpencolor(clBlue); (आयताची बाह्यरेषा निळ्यावर काढण्यासाठी पेनचा रंग सेट करते) सेटपेनविड्थ(6); (पेनची रुंदी सेट करते) आयत(50,50,250,150); (विपरीत शिरोबिंदू निर्देशांकाने दिलेला आयत काढतो) सेटपेनकलर(क्लर्ड); (वर्तुळाची बाह्यरेखा लाल करण्यासाठी पेनचा रंग सेट करते) वर्तुळ(350,100,60); (350,100) मध्यभागी असलेले वर्तुळ 60 त्रिज्या) टोकासह काढते.
स्लाइड 10
आयत आणि वर्तुळ भरण्याचे प्रात्यक्षिक आणि त्यांचे शिलालेख कार्यक्रम भूमिती3; graphabc वापरते; startsetwindowsize(640,480); क्लिअरविंडो(clyellow); (पार्श्वभूमीचा रंग पिवळा वर सेट करते) setpencolor(clteal); (पेनचा निळा-हिरवा रंग सेट करते) सेटपेनविड्थ(5); (रेषेची रुंदी सेट करते) सेटब्रशकलर(क्लोलिव्ह); (ब्रशचा रंग ऑलिव्ह सेट करते) आयत(100,100,300,200); (ऑलिव्ह रंगाचा आयत काढतो) सेटब्रशकलर(clblue); (ब्रशचा रंग निळ्यावर सेट करतो) वर्तुळ(400,150,50); (निळ्या रंगाने भरलेले वर्तुळ काढते) सेटफॉन्टस्टाइल(एफएसबोल्ड);(फॉन्ट शैली सेट करते) सेटफॉन्टसाइज(15);(फॉन्ट आकार सेट करते) सेटब्रशकलर(क्लव्हाइट);(ब्रशचा रंग पांढरा वर सेट करते) सेटफॉन्टकलर(क्लोलिव्ह);(सेट फॉन्ट रंग ते ऑलिव्ह) टेक्स्टआउट (100,220,"आयत"); (एक शिलालेख बनवते) सेटफॉन्टकलर(clblue); (फॉन्टचा रंग निळ्यावर सेट करतो) टेक्स्टआउट(380,220,"वर्तुळ"); (एक शिलालेख बनवते) समाप्त.
स्लाइड 11
ग्राफिकल प्रक्रिया एबीसी पास्कल: 1. सेटपिक्सेल(x,y,रंग: पूर्णांक); - एक पिक्सेल निर्देशांक (x,y) सह रंगीत रंगाने रंगवतो. 2. रेखा(x1,y1,x2,y2: पूर्णांक); - बिंदू (x1,y1) पासून बिंदू (x2,y2) पर्यंत एक खंड काढतो. 3. वर्तुळ(x,y,r: पूर्णांक); - त्रिज्या r सह (x,y) वर केंद्रीत वर्तुळ काढतो. 4. आयत(x1,y1,x2,y2: पूर्णांक); - विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2) च्या समन्वयाने दिलेला आयत काढतो. 5. TextOut(x,y: पूर्णांक; s: स्ट्रिंग); - स्ट्रिंग s ची स्थिती (x,y) वर मुद्रित करते (बिंदू (x,y) आयताच्या वरच्या डाव्या कोपऱ्याला निर्दिष्ट करते ज्यामध्ये स्ट्रिंग s मधील मजकूर असेल). 6. फ्लडफिल(x,y,रंग: पूर्णांक); - बिंदू (x, y) पासून सुरू होणार्‍या रंगाच्या रंगाने समान रंगाचे क्षेत्र भरते. 7. FillRect(x1,y1,x2,y2: पूर्णांक); - वर्तमान ब्रशच्या रंगाने विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2) च्या समन्वयाने निर्दिष्ट केलेला आयत भरतो.
स्लाइड 12
या प्रोग्राम्सच्या अंमलबजावणीच्या परिणामी मॉनिटर स्क्रीनवर काय प्रदर्शित केले जाईल? प्रोग्राम ग्राफिक्स 1; graphabc वापरते; आरंभ सेटपेनविड्थ(10); setpencolor(clred); रेखा(100,100,270,90); शेवट प्रोग्राम ग्राफिका 2; graphabc वापरते; आरंभ सेटपेनविड्थ(8); setpencolor(clblue); मंडळ(200,150,50); शेवट
स्लाइड 13
नोटबुकमध्ये पुन्हा लिहा: विषय: प्रोग्रामिंग भाषेची ग्राफिक वैशिष्ट्ये. 1. रेखा(x1,y1,x2,y2; - (x1,y1) पासून (x2,y2) पर्यंतचा विभाग. 2. वर्तुळ(x, y, r); - (x,y) आणि त्रिज्या वर केंद्र असलेले वर्तुळ r. 3. आयत(x1,y1,x2,y2) - विरुद्ध शिरोबिंदू (x1,y1) आणि (x2,y2) 4. FloodFill(x, y, रंग) - चे क्षेत्रफळ भरते बिंदू (x,y) पासून सुरू होणारा समान रंगाचा रंग.
सर्व स्लाइड्स पहा