Вопрос по информатике:
Помогите нарисовать в паскале ABC забор, раскрашенный в любой цвет, желательно 5 досок. Кто сможет скиньте код.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.09.2015 19:34
- Информатика
- remove_red_eye 800
- thumb_up 44
Ответы и объяснения 1
uses GraphABC;
var
x, y, i, j, k, p, a: integer;
begin
x := 400;
y := 150;
Window.Init(0, 0, 1280, 720, clwhite);
Window.IsFixedSize := true;
Pen.Width := 4;
Pen.Color := clSaddleBrown;
for a := 1 to 5 do
begin
x := x + 80;
line(x, y, x, y + 400);
line(x + 75, y, x + 75, y + 400);
line(x, y + 400, x + 75, y + 400);
for i := 3 to 72 do
begin
for j := 2 to 397 do
begin
setpixel(x + i, y + j, clBurlyWood);
end;
end;
p := 1;
for i := 3 to 36 do
begin
for j := 1 to 50 do
begin if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p + 1;
end;
p := 38;
for i := 36 to 72 do
begin
for j := 1 to 50 do
begin if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p - 1;
if(j mod 15 = 0) then p := p - 1;
end;
Pen.Width := 5;
line(x, y, x + 38, y - 38);
line(x + 75, y, x + 38, y - 38);
Pen.Width := 4;
end;
end.
- 19.09.2015 10:07
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.