Kód: Vybrať všetko
program vlajka;
uses graph;
var gm,gd:integer;
Begin
detectgraph(gm,gd);
initgraph(gm,gd,'');
Cleardevice;
rectangle(100,50,500,300);
line(250,175,500,175);
line(100,50,250,175);
line(100,300,250,175);
line(100,50,100,300);
Readln;
Closegraph;
End.
Kód: Vybrať všetko
program Kruh;
uses graph;
var gm,gd:integer;
Begin
detectgraph(gm,gd);
initgraph(gm,gd,'');
Cleardevice;
setcolor(red);
setfillstyle(1,red);
circle(150,300,50);
floodfill(150,300,red);
Readln;
Closegraph;
End.
Kód: Vybrať všetko
program vlajka;
uses graph;
var gm,gd:integer;
Begin
detectgraph(gm,gd);
initgraph(gm,gd,'');
Cleardevice;
setcolor(white);
setfillstyle(1,white);
rectangle(0,0,500,300);
floodfill(125,200,white);
setcolor(red);
setfillstyle(1,red);
line(200,150,500,150);
line(200,150,0,300);
rectangle(0,150,500,300);
floodfill(250,155,red);
setcolor(blue);
setfillstyle(1,blue);
line(200,150,0,0);
line(200,150,0,300);
floodfill(50,100,blue);
Readln;
Closegraph;
End.