Met die Turbo Pascal-programmeertaal kan u verskillende vorms op die skerm grafies teken. Enige grafiese voorwerp kan met behulp van punte, lyne, boë gekonstrueer word. Pascal gebruik 'n rastergrafiese modus met 'n skermresolusie van 640 x 480. Teken bestaan uit die koördinate van die begin- en eindpunte van die voorwerp wat aan die grafiese prosedures vertoon moet word. Die kleur van die voorwerp, die dikte van die lyne, sowel as hul styl, word ook as parameters van die grafiese prosedures gestel. Om met behulp van sagteware te teken, moet u die Pascal-grafika-module verbind.
Nodig
Turbo Pascal programmeringsomgewing
Instruksies
Stap 1
Demonteer die gespesifiseerde tekenvoorwerp in sy samestellende elemente. Kies individuele lyne, boë, sirkels, reghoeke en punte. Dit is die vorms wat met behulp van Turbo Pascal-prosedures geteken kan word.
Stap 2
Verbind die grafiese module heel aan die begin van die programkode. Om dit te doen, skryf 'n reël soos volg: gebruik grafiek. Skep vervolgens heelgetalveranderlikes om die grafiese modus te inisieer: var gdet, gm: integer.
Stap 3
Inisieer die veranderlikes in die hoofletter van die program, na die sleutelwoord begin, en gee een daarvan 'n nulwaarde en die tweede die waarde van opspoor. Dui dan die begin van die grafiese tekenmodus aan, voer 'n reël van die vorm in: initgraph (gdet, gm, ''). Maak die vertoningstoestel skoon: cleardevice.
Stap 4
Stel die agtergrondkleur vir teken en die lynkleur van die voorwerpe wat geteken moet word. Gebruik die prosedures SetBkColor (wit) en SetColor (8) hiervoor. Die kleur wat ingestel moet word, word tussen hakies aangedui. In totaal gebruik Pascal 16 kleure, en elkeen word gespesifiseer deur 'n nommer of deur 'n woord uit 'n spesiale kleurtabel.
Stap 5
Stel u 'n skermstrekkie voor met die x-as van links na regs en die y-as van bo na onder. Aan die begin van hierdie koördinaatstelsel, dit wil sê in die linkerbovenhoek van die skerm, is die koördinaat (0, 0). Bereken die koördinate van die gewenste posisie van die eerste grafiese voorwerp. Spesifiseer alle koördinate vir tekenfigure in hierdie spesifieke stelsel.
Stap 6
Trek 'n lyn met behulp van die prosedurelyn (x, y, x1, y1), waar koördinate x, y die beginpunt van die lyn is, en x1, y1 die einde daarvan is. Verander die lyndikte of tik indien nodig. Gebruik dit die SetLineStyle (0, 0, NormWidth) prosedure om dit te doen. Die eerste parameter van die prosedure kan die lyn verander deur dit 'n streep te maak of 'n stippellyn - verander hierdie getal in 1 of 2. Die derde parameter stel die dikte van die lyne in. Standaard word die NormWidth-parameter altyd gestel - dun lyne, vir dik lyne stel ThickWidth. Die gewysigde lyn sal getrek word nadat u hierdie prosedure aangeroep het.
Stap 7
Plaas 'n punt op die skerm met behulp van die PutPixel (x, y, kleur) prosedure, hier is x en y ook die koördinate van die punt, en kleur is die kleur daarvan. Voordat u 'n geslote vorm teken, kan u dit invul. Om dit te doen, skakel die SetFillStyle (EmptyFill, 0) prosedure, waar die eerste parameter die soliede vul van die vorm spesifiseer, en die tweede die vulkleur.
Stap 8
'N Reghoekige vorm word geteken met behulp van die prosedure Reghoek (x, y, x2, y2) - die koördinate stel die boonste linker- en regterhoek van die vorm in. Om 'n sirkel te teken, skryf die lyn Sirkel (x, y, R), waar x, y, R die koördinate van die middelpunt en die radius van die sirkel is, ook in pixels. Dit is moeiliker om 'n ellips te teken, baie meer parameters word hiervoor gebruik: Ellips (x, y, BegA, EndA, RX, RY). Hier is x, y dieselfde middelpunt van die ellips, en BegA en EndA dui die hoek aan waarop die elliptiese boog begin en eindig. Die veranderlikes RX, RY stel die radius van die ellips onderskeidelik langs die x- en y-as in.
Stap 9
As u 'n gegewe vorm het, wat die maklikste is om in aparte segmente te teken, gebruik dan die MoveTo- en LineTo-prosedures hiervoor. Beweeg eers die huidige wyser na die punt wat u wil hê: MoveTo (x, y). Trek dan 'n lyn daaruit na die volgende punt LineTo (x1, y1) en teken weer 'n reguit lyn LineTo (x2, y2) ensovoorts totdat u die oorspronklike vorm kry.
Stap 10
Sluit aan die einde van die programkode die grafiese modus met die lyn: closegraph. Sluit die inhoud van die program, soos gewoonlik, af met die woord einde. Nou kan die kode saamgestel word en uitgevoer word vir uitvoering.
