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

Izdevīgi: šodien akcijas cena!

Parastā cena:
3,49
Ietaupījums:
0,45 (13%)
Cena ar atlaidi*:
3,04
Pirkt
Identifikators:885500
Autors:
Vērtējums:
Publicēts: 03.09.2010.
Valoda: Latviešu
Līmenis: Augstskolas
Literatūras saraksts: Nav
Atsauces: Nav
Darba fragmentsAizvērt

procedure zimet_rinkis(r:integer);

var
x,y,p,x1,y1:integer;
const
x_centrs=140;
y_centrs=140;
begin
x:=0;
y:=r;
p:=1-r;
while y>x do
begin
if p<0 then
begin
x:=x+1;
y:=y;
p:=p+2*x+1;
end
else
begin
x:=x+1;
y:=y-1;
p:=p+2*x+1-2*y;
end;
Form1.Canvas.Pixels[x_centrs+x,y_centrs+y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs+y,x_centrs+x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs-x,y_centrs+y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs-y,x_centrs+x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs+x,y_centrs-y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs+y,x_centrs-x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs-x,y_centrs-y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs-y,x_centrs-x]:=CLBLACK;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
begin
r:=StrToInt(Edit1.text);

zimet_rinkis(r);
end;
end.

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

Nosūtīt darbu e-pastā

Tavs vārds:

E-pasta adrese, uz kuru nosūtīt darba saiti:

Sveiks!
{Tavs vārds} iesaka Tev apskatīties interneta bibliotēkas Atlants.lv darbu par tēmu „Datorgrafika un attēlu apstrādes pamati. 3.mājas darbs”.

Saite uz darbu:
https://www.atlants.lv/w/885500

Sūtīt

E-pasts ir nosūtīts.

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
Twitter

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