Turbo Pascal програмчлалын хэл нь дэлгэцэн дээр янз бүрийн дүрсийг графикаар зурах боломжийг олгодог. Аливаа график объектыг цэг, шугам, нум ашиглан хийж болно. Паскаль нь 640 х 480 хэмжээтэй дэлгэцийн нарийвчлалтай растер график горимыг ашигладаг. Зураг нь график процедурт харуулах объектын эхлэх ба төгсгөлийн цэгүүдийн координатыг тохируулахаас бүрдэнэ. Объектын өнгө, шугамын зузаан, тэдгээрийн хэв маягийг график процедурын параметр болгон тохируулдаг. Програм ашиглан зураг зурахын тулд Паскаль график модулийг холбох хэрэгтэй.
Шаардлагатай
Turbo Pascal програмчлалын орчин
Зааварчилгаа
1-р алхам
Тодорхой зурсан объектыг бүрэлдэхүүн хэсгүүд болгон задлах. Шулуун, нуман, тойрог, тэгш өнцөгт, цэгийг сонгоно уу. Эдгээр нь Turbo Pascal процедурыг ашиглан зурж болох дүрс юм.
Алхам 2
Програмын кодын эхэнд график модулийг холбоно уу. Үүнийг хийхийн тулд дараахь мөрийг бичнэ үү: график ашигладаг. Дараа нь график горимыг эхлүүлэхийн тулд бүхэл тоон хувьсагчуудыг үүсгээрэй: var gdet, gm: integer.
Алхам 3
Програмын үндсэн хэсэгт эхлэх түлхүүр үгийн дараа хувьсагчдыг эхлүүлж, тэдгээрийн нэгийг нь тэг утга, хоёр дахь нь илрүүлэх утгыг олгоно. Дараа нь график зургийн горим эхэлж байгааг зааж, маягтын мөрийг оруулна уу: initgraph (gdet, gm, ''). Дэлгэцийн төхөөрөмжийг цэвэрлэ: cleardevice.
Алхам 4
Зургийн дэвсгэр өнгө, зурах объектын мөрийн өнгийг тохируулна уу. Үүний тулд SetBkColor (цагаан) ба SetColor (8) процедурыг ашиглана уу. Тохируулах өнгийг хаалтанд зааж өгсөн болно. Нийтдээ Паскаль нь 16 өнгийг ашигладаг бөгөөд тус бүрийг тусгай өнгөт хүснэгтээс тоогоор эсвэл үгээр тодорхойлдог.
Алхам 5
Х тэнхлэгээ зүүнээс баруун тийш, y тэнхлэгийг дээрээс доошоо харуулсан дэлгэцийн гратикулыг төсөөлөөд үз дээ. Энэ координатын системийн гарал үүсэл, өөрөөр хэлбэл дэлгэцийн зүүн дээд буланд координат (0, 0) байрладаг. Эхний график объектын хүссэн байрлалын координатыг тооцоол. Энэ системд зураг зурах бүх координатыг зааж өгнө үү.
Алхам 6
Процедурын мөрийг (x, y, x1, y1) ашиглан мөрийг зур, x, y координатууд нь шугамын эхлэл цэг, x1, y1 нь түүний төгсгөл болно. Шаардлагатай бол шугамын зузааныг эсвэл төрлийг өөрчил. Үүнийг хийхийн тулд SetLineStyle (0, 0, NormWidth) процедурыг ашиглана уу. Процедурын эхний параметр нь зураас, эсвэл тасархай болгож мөрийг өөрчилж болно - энэ тоог 1 эсвэл 2 болгоно. Гурав дахь параметр нь шугамын зузааныг тохируулна. Анхдагчаар NormWidth параметрийг үргэлж тохируулдаг - зузаан шугаманд ThickWidth-ийг нарийн шугамаар тохируулдаг. Энэ процедурыг дуудсаны дараа өөрчлөгдсөн мөрийн төрлийг зурах болно.
Алхам 7
PutPixel (x, y, color) процедурыг ашиглан дэлгэцэн дээр цэг байрлуул, энд x ба y нь цэгийн координат бөгөөд өнгө нь түүний өнгө юм. Хаалттай хэлбэр дүрслэхээс өмнө түүний дүүргэлтийг тохируулж болно. Үүнийг хийхийн тулд SetFillStyle (EmptyFill, 0) процедурыг дуудах хэрэгтэй бөгөөд үүнд эхний параметр нь хэлбэрийн хатуу дүүргэлт, нөгөө нь дүүргэх өнгийг зааж өгнө.
Алхам 8
Тэгш өнцөгт хэлбэрийг Rectangle (x, y, x2, y2) процедур ашиглан зурдаг - координатууд нь дүрсний зүүн дээд ба баруун доод булангуудыг тогтоодог. Тойрог зурахын тулд Circle (x, y, R) гэсэн мөрийг бич, үүнд x, y, R нь төвийн координат ба тойргийн радиус мөн пикселээр бичигдэнэ. Эллипс зурахад илүү төвөгтэй байдаг, үүнд илүү олон параметрүүдийг ашигладаг: Эллипс (x, y, BegA, EndA, RX, RY). Энд x, y нь эллипсийн ижил төв бөгөөд BegA ба EndA нь эллипсийн нумыг эхлүүлж, дуусгах өнцгийг заана. RX, RY хувьсагчууд нь эллипсийн радиусыг x ба y тэнхлэгийн дагуу тохируулна.
Алхам 9
Хэрэв танд өгөгдсөн хэлбэр байгаа бол тусдаа хэсэгт хуваах нь хамгийн хялбар бол үүнийг хийхийн тулд MoveTo ба LineTo процедурыг ашиглана уу. Нэгдүгээрт, одоо байгаа курсороо хүссэн цэг рүү шилжүүлээрэй: MoveTo (x, y). Дараа нь үүнээс дараагийн цэг LineTo (x1, y1) хүртэл шугам зураад дахин анхны хэлбэртэй болтол LineTo (x2, y2) шулуун шугамыг зур.
Алхам 10
Програмын кодыг зурж дууссаны дараа график горимыг дараахь мөрөөр хаах хэрэгтэй. Хөтөлбөрийн үндсэн хэсгийг ердийн адил төгсгөл гэсэн үгээр төгсгө. Одоо кодыг хөрвүүлж, ажиллуулахаар ажиллуулж болно.
