Procedūras

1. programma

Uzrakstīsim procedūras tipa apakšprogrammu, kas zīmē galvu: 

uses Graph;
var x,y:integer;
procedure galva(x,y,k:integer);
begin
  setColor(k);
  circle(x,y,40);
  circle(x-20,y-10,5);
  circle(x+20,y-10,5);
  line(x,y-15,x,y+10);
  line(x-15,y+20,x+15,y+20);
end;
begin
  InitGraph(x,y,'');
  galva(100,100,1);
  galva(200,100,4);
  readln;
  CloseGraph;
end.
 
 		 
 







 		Procedūras tipa apakšprogramma
 





 		 

Apakšprogrammas tiek rakstītas programmas aprakstošajā daļā (pirms begin)
3. Procedūra sākas ar atslēgas vārdu procedure, tālāk seko procedūras nosaukums un iekavās - formālie parametri: x,y-galvas centra koordinātas, k-krāsas numurs.
4. Procedūras galvenās daļas sākums. Pirms tam var būt definēti procedūras mainīgie sadaļā var.
5. Tiek uzstādīta zīmēšnas k-tā krāsa.
6. Lielā riņķa centrs būs punktā (x;y) un rādiuss - 40.
7. Kreisās acs centrs būs 20 punktus pa kreisi un 10 punktus uz augšu no lielā riņķa centra. Acs rādiuss - 5.
8. Labās acs centrs būs 20 punktus pa labi no lielās riņķa līnijas centra un tādā pat augstumā kā kreisajai acij.
9. Deguns.
10.Mute.
11.Apakšprogrammas beigas. Ievērosim, ka aiz end jāliek semikols.
12.Galvenās programmas pamatdaļas sākums.
14.Tā liek izpildīt procedūru, t.i., uzzīmēt galvu 1. krāsā ar centru punktā (100;100).
15.Uzzīmēt galvu 4. krāsā ar centru punktā (200;100).
Programmas izpildes rezultātā ir uzzīmētas divas galvas.

Apakšprogrammas lieto lai:

Uzdevumi

  1. Uzrakstīt procedūru rl(r), kas uzzīmē riņķa līniju ar centru ekrāna centrā un rādiusu r. Izmantojot šo procedūru uzzīmēt vairākas riņķa līnijas ar dažādiem rādiusiem.
  2. Uzrakstīt proceduru auseklis(x,y,h,k), kas zīmē auseklīti un, izmantojot šo procedūru, uzzīmēt vairākus dažāda lieluma un dažādas krāsas auseklīšus. (x,y - punkta A koordinātas, h - auseklīša augstums un platums, k - aizpildījuma krāsa)