Pascal ABC

 

ÃËÀÂÍÀß
ÓÑÒÀÍÎÂÊÀ
ÎÊÍÎ ÏÐÎÃÐÀÌÌÛ
ËÈÍÅÉÍÛÅ ÀËÃÎÐÈÒÌÛ
×ÅÐÒ¨ÆÍÈÊ
GraphABC
    ÐÎÁÎÒ
ÀËÃÎÐÈÒÌÛ Ñ ÂÅÒÂËÅÍÈßÌÈ
ÀËÃÎÐÈÒÌÛ Ñ ÏÎÂÒÎÐÅÍÈßÌÈ
ÏÐÎÖÅÄÓÐÛ È ÔÓÍÊÖÈÈ
ÒÅÑÒÛ
ÒÂÎÐ×ÅÑÊÈÅ ÐÀÁÎÒÛ
ÎËÈÌÏÈÀÄÍÛÅ ÇÀÄÀÍÈß
 
 

 

 

 

 

ÒÂÎÐ×ÅÑÊÈÅ ÐÀÁÎÒÛ

 

 

 

Ñèíèöà Äåíèñ, 7 êëàññ, 2011

Ïðîãðàììà:

Uses GraphAbc;
begin
SetwindowSize (380,380);
rectangle(40,20,340,360);
line(190,50,70,330);
line(190,50,310,330);
line(70,330,310,330);
floodfill(190,30,clblue);

setpenwidth(6);
line(120,280,90,320);
line(140,280,110,320);
line(160,280,130,320);
line(180,280,150,320);
line(200,280,170,320);
line(220,280,190,320);
line(240,280,210,320);
line(260,280,230,320);
line(280,280,250,320);
setpencolor(clred);
setpenwidth(6);
circle(190,130,20);

line(190,150,190,240);
line(190,180,160,200);
line(160,200,160,230);
line(190,200,220,230);
line(190,240,220,300);
line(190,240,160,300);
setpencolor(clblack);

end.

 

 

ÑÅÐÂÈÑ

Copyright © 2008 Ãèìíàçèÿ ¹1 èìåíè Ê.Êàëèíîâñêîãî ã.Ñâèñëî÷ü © Ñèíèöà À.À.