Задание 2. Составить программу, в результате работы которой будет нарисован дом....

0 голосов
24 просмотров

Задание 2. Составить программу, в результате работы которой будет нарисован дом. Размножьте рисунок в любом направлении: по вертикали, по горизонтали, по диагонали. На рисунке показан примерный результат выполнения. Программу писать с помощью цикла For. Прислать скрин рисунка на фоне программы


image

Информатика (14 баллов) | 24 просмотров
Дано ответов: 2
0 голосов

Ответ:рисуй по градуса 60, 120 и т. Д

Объяснение:

(18 баллов)
0 голосов

Ответ:

Смотри картинку

Объяснение:

uses graphabc;

var x,y,i:integer;

begin

x:=30;

y:=50;

for i:=1 to 5 do

begin

rectangle (x,y,x+100,y+100);

FloodFill(x+5,y+5,clyellow);

line (x,y,x+50,y-45);

line (x+50,y-45,x+100,y);

FloodFill(x+50,y-40,clblue);

rectangle (x+10,y+30,x+40,y+90);

FloodFill(x+15,y+35,clgreen);

rectangle (x+50,y+30,x+90,y+70);

FloodFill(x+55,y+35,clred);

x:=x+120;

end

end.


image
(2.2k баллов)