Вопрос по информатике:
Составьте программу выводящуюю любой рисунок на экран."Желательно какой нибудь домик с деревьями"
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.07.2016 17:41
- Информатика
- remove_red_eye 767
- thumb_up 30
Ответы и объяснения 1
Program drawFigure;
uses graph;
var
gD,gR:integer;
procedure drawHouse(x,y:word);
const
wallSide=70;
windowSide=20;
var
houseRoof:array[1..4] of pointtype;
begin
setFillStyle(1,10);
bar(x,y-wallSide,x+wallSide,y); rectangle(x,y-wallSide,x+wallSide,y);
setFillStyle(1,1);
bar(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); rectangle(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide);
setFillStyle(1,2);
houseRoof[1].x:=x; houseRoof[1].y:=y-wallSide; houseRoof[2].x:=x+wallSide;
houseRoof[2].y:=y-wallSide;
houseRoof[3].x:=x+wallSide div 2; houseRoof[3].y:=y-wallSide-wallSide div 2;
houseRoof[4].x:=x; houseRoof[4].y:=y-wallSide;
fillPoly(4,houseRoof);
end;
procedure drawTree(x,y:word);
const
treeFH=90;
treeFW=8;
var
ci:byte;
branchFH,branchFW:byte;
begin
setFillStyle(1,6);
bar(x,y-treeFH,x+treeFW,y);
for ci:=1 to 6 do
begin
branchFH:=random(5)+1; branchFW:=random(8)+10;
bar(x-branchFW,y-treeFH+ci*10,x,y-treeFH+ci*10+branchFH);
bar(x+treeFW,y-treeFH+ci*10,x+treeFW+branchFW,y-treeFH+ci*10+branchFH);
end;
end;
begin
randomize;
initgraph(gD,gR,'');
drawHouse(100,280); drawHouse(230,270); drawHouse(430,290); drawHouse(330,180);
drawTree(195,278); drawTree(325,275); drawTree(265,350); drawTree(360,290); drawTree(400,240); drawTree(580,285); drawTree(110,370);
readln; closeGraph;
end.
- 21.07.2016 06:55
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.