Цитата:
Сообщение от <=M@}{IMUM=>
Мужики выручайте.нужен рисунок в паскале. Всё обыскал не могу найти. Надо типа там дом,небо,облака ,ну чёнибудь простенькое.Помогите кто чем может.
|
Тут пирамида(типа домик)), звёздное небо, луна.
Могут быть ошибки и не совсем в орфографии так сказать, сильно за это меня не пинать
Цитата:
Program picture;
uses crt, graph;
var gd,gm,i:integer;
Begin
gd:=VGA; gm:=VGAHi;
InitGraph(gd,gm,"); {пирамида фиолетовая}
setcolor(5);
for i:=0 to 11 do
rectangle(50+i*10.450-i*15.300-i*10.450-i*15+15);{вершинка пирамиды(зелёная)}
setcolor(10);
ellipse(175,260,0,360,10,25);{звёздное небо из 5000 случайно разбросанных серых звёзд}
for i:=1 to 5000 do
putpixel(random(640),random(200),7);{жёлтая луна}
setcolor(14);
ellipse(500,80,270,90,30,40);
ellipse(500,80,270,90,30,40);
sefillstyle(1,14); floodfill(535,80,14);
readkey;
CloseGraph;
end.
|