Pascal - Graficzne

Domek – wersja numer 3

Domek – wersja numer 3
Pascal - Graficzne

Program: Rysunek domu. (wersja 3 z 3)

Wszystkie elementy domu pochodzą z kodu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program krajobraz;
uses graph,crt;
var ster,modul,i :integer;
begin
 	clrscr;
 	detectgraph(ster,modul);
 	initgraph(ster,modul,'C:/Progra~1/TP/BGI');
        begin
              	setcolor(white);
              	setcolor(brown);
              	setfillstyle(solidfill,brown);
              	bar(400,470,200,300);
       	end;
	setcolor(brown);
	pieslice(300,300,0,180,100);
	setcolor(8);
	setfillstyle(solidfill,8);
 	bar(350,400,250,470);
 	setcolor(white);
 	line(300,470,300,400);
 	setcolor(blue);
 	setfillstyle(solidfill,blue);
 	bar(220,320,270,360);
 	bar(330,320,380,360);
 	setcolor(white);
 	pieslice(300,335,0,360,10);
 	setcolor(8);
 	setfillstyle(solidfill,8);
 	bar(280,280,255,150);
 	readln;
 	closegraph;
end.