cxz

Delphi code posted
created at 10 Sep 22:36

Edit | Back
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program gwiazdy;
uses crt,graph;
const
sciezka='c:\progra~1\tp\bgi';
var
  d,m:integer;
procedure gwiazdka(a:integer);
var b:integer;
begin
          b:=round (a/2);
          linerel(a,0);
          linerel(-b,a);
          linerel(b,a);
          linerel(-a,0);
          linerel(-b,a);
          linerel(-b,-a);
          linerel(-a,0);
          linerel(b,-a);
          linerel(-b,-a);
          linerel(a,0);
          linerel(b,-a);
          linerel(b,a);
          end;
begin
          d:=detect;
          initgraph(d,m,sciezka);
          setcolor(yellow);
          moveto(200,200);
          gwiazdka(20);
          moveto(400,400);
          gwiazdka(30);
          repeat until keypressed;
closegraph;
end.
753 Bytes in 2 ms with coderay