Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program biatlons_n;
- Uses GRAPH,CRT;
- var
- d,m:smallint;
- c:char;
- a,b,e:integer;
- point:array [1..3] of real;
- Procedure tree;
- var
- z,e,d:integer;
- begin
- randomize;
- for d:=1 to 100 do
- begin
- z:=random(100+860);
- e:=random(100)+660;
- rectangle(z,e,z,e);
- rectangle(z,z,z,z);
- end;
- end;
- procedure rep;
- var
- m:integer;
- begin
- SetFillStyle(1,16);
- setcolor(black);
- for m:=1 to 125 do
- begin
- setcolor(white);
- circle(450+m,175,20);
- setcolor(black);
- delay(1);
- circle(450+m,175,20);
- end;
- for m:=1 to 195 do
- begin
- setcolor(white);
- circle(575,175+m,20);
- setcolor(black);
- delay(1);
- circle(575,175+m,20);
- end;
- for m:=1 to 250 do
- begin
- setcolor(white);
- circle(575-m,375,20);
- setcolor(black);
- delay(1);
- circle(575-m,375,20);
- end;
- for m:=1 to 180 do
- begin
- setcolor(white);
- circle(325,370-m,20);
- setcolor(black);
- delay(1);
- circle(325,370-m,20);
- end;
- for m:=1 to 125 do
- begin
- setcolor(white);
- circle(325+m,175,20);
- setcolor(black);
- delay(1);
- circle(325+m,175,20);
- end;
- circle(450,175,20);
- end;
- begin
- Initgraph(d,m,'');
- SetFillStyle(1,15);
- line(200,200,300,200); //main
- line(300,200,300,400);
- line(300,400,600,400);
- line(600,400,600,200);
- line(600,200,800,200);
- line(800,200,800,600);
- line(800,600,200,600);
- line(200,600,200,200);
- line(350,200,350,350); //cube
- line(350,350,550,350);
- line(550,350,550,200);
- line(550,200,350,200);
- line(150,150,150,650); //external
- line(150,650,850,650);
- line(850,650,850,150);
- line(850,150,150,150);
- line(350,150,350,125); //extra
- line(350,125,550,125);
- line(550,125,550,150);
- circle(400,50,20); //target
- circle(450,50,20);
- circle(500,50,20);
- fillellipse(400,50,5,5);
- fillellipse(450,50,5,5);
- fillellipse(500,50,5,5);
- line(300,750,400,750); //house
- line(400,750,400,850);
- line(400,850,300,850);
- line(300,850,300,750);
- line(300,750,350,700);
- line(350,700,400,750);
- line(340,790,360,790); //window
- line(340,830,360,830);
- line(340,790,340,830);
- line(360,790,360,830);
- line(350,790,350,830);
- SetFillStyle(1,16); //anime
- setcolor(black);
- for b:=1 to 475 do
- begin
- setcolor(white);
- circle(650-b,625,20);
- setcolor(black);
- delay(1);
- circle(650-b, 625, 20);
- end;
- for b:=1 to 450 do
- begin
- setcolor(white);
- circle(175,625-b,20);
- setcolor(black);
- delay(1);
- circle(175,625-b,20);
- end;
- for b:=1 to 275 do
- begin
- setcolor(white);
- circle(175+b,175,20);
- setcolor(black);
- delay(1);
- circle(175+b,175,20);
- end;
- circle(450,175,20);
- for a:=1 to 3 do
- Begin
- writeln('Ievadi kordinatus X un Y');
- readln(e);
- readln(b);
- setcolor(red);
- circle(e,b,10);
- end;
- for b:=1 to 375 do
- begin
- setcolor(white);
- circle(450+b,175,20);
- setcolor(black);
- delay(1);
- circle(450+b,175,20);
- end;
- for b:=1 to 460 do
- begin
- setcolor(white);
- circle(825,175+b,20);
- setcolor(black);
- delay(1);
- circle(825,175+b,20);
- end;
- for b:=1 to 200 do
- begin
- setcolor(white);
- circle(825-b,625,20);
- setcolor(black);
- delay(1);
- circle(825-b,625,20);
- end;
- readln;
- closegraph;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement