Pievienot darbus Atzīmētie0
Darbs ir veiksmīgi atzīmēts!

Atzīmētie darbi

Skatītie0

Skatītie darbi

Grozs0
Darbs ir sekmīgi pievienots grozam!

Grozs

Reģistrēties

interneta bibliotēka
Atlants.lv bibliotēka
Akcijas un īpašie piedāvājumi 2 Atvērt
4,99 € Ielikt grozā
Gribi lētāk?
Identifikators:984109
 
Autors:
Vērtējums:
Publicēts: 29.08.2005.
Valoda: Latviešu
Līmenis: Vidusskolas
Literatūras saraksts: Nav
Atsauces: Nav
SatursAizvērt
Nr. Sadaļas nosaukums  Lpp.
  Riņķa līnijas zīmēšana pa pikseļiem    2
  Elipses līnijas zīmēšana pa pikseļiem    4
  Kvadrāta zīmēšana pa pikseļiem    7
  Taisnās līnijas zīmēšana pa pikseļiem    8
Darba fragmentsAizvērt

procedure Aplis(xc,yc,r:integer);
var
x, y :integer;
p :real;
begin
x:=0;
y:=r;
p:=5/4-r;
Form1.Canvas.Pixels[x+xc,y+yc]:=0;
Form1.Canvas.Pixels[-x+xc,y+yc]:=0;
Form1.Canvas.Pixels[x+xc,-y+yc]:=0;
Form1.Canvas.Pixels[-x+xc,-y+yc]:=0;
Form1.Canvas.Pixels[y+xc,x+yc]:=0;
Form1.Canvas.Pixels[-y+xc,x+yc]:=0;
Form1.Canvas.Pixels[y+xc,-x+yc]:=0;
Form1.Canvas.Pixels[-y+xc,-x+yc]:=0;
while x<=y do begin
if p<0 then begin
x:=x+1;
p:=p+2*x+1;
end
else begin
x:=x+1; y:=y-1; p:=p+2*x-2*y+1;…

Autora komentārsAtvērt
Parādīt vairāk līdzīgos ...

Atlants

Izvēlies autorizēšanās veidu

E-pasts + parole

E-pasts + parole

Norādīta nepareiza e-pasta adrese vai parole!
Ienākt

Aizmirsi paroli?

Draugiem.pase
Facebook

Neesi reģistrējies?

Reģistrējies un saņem bez maksas!

Lai saņemtu bezmaksas darbus no Atlants.lv, ir nepieciešams reģistrēties. Tas ir vienkārši un aizņems vien dažas sekundes.

Ja Tu jau esi reģistrējies, vari vienkārši un varēsi saņemt bezmaksas darbus.

Atcelt Reģistrēties