Нужно нарисовать дом с движущимся солнцем

@Rabbit1998 · Регистрация: 16.11.2017

Author24 — интернет-сервис помощи студентам

Нарисуйте домик, над которым светит солнышко. Солнышко движется по небу.

Нужно нарисовать дом с движущимся солнцем

@Puporev · 17.11.2017, 13:12

Pascal

uses graphABC;
var x,y,r,x0,y0:integer;
procedure dom;
begin
setpencolor(clBlack);
setbrushstyle(bsClear);
line(0,y0,700,y0);
rectangle(x0-50,y0-100,x0+50,y0);
rectangle(x0-20,y0-80,x0+20,y0-30);
line(x0-50,y0-100,x0,y0-150);
line(x0+50,y0-100,x0,y0-150);
end;
procedure solnce(x,y,r:integer);
begin
setbrushcolor(clYellow);
setpencolor(clYellow);
circle(x,y,r);
end;
begin
setwindowsize(700,300);
centerwindow;
x0:=350;
y0:=295;
r:=20;
x:=r;
y:=2*r;
dom;
solnce(x,y,r);
lockdrawing;
repeat
clearwindow;
dom;
solnce(x,y,r);
sleep(100);
x:=x+5;
redraw;
until x>700-r;
end.

@Rabbit1998 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 8
		1
	Нужно нарисовать дом с движущимся солнцем 16.11.2017, 22:55. Показов 4911. Ответов 1 Метки нет (Все метки) Нарисуйте домик, над которым светит солнышко. Солнышко движется по небу. 0

	17.11.2017, 13:12

Нужно нарисовать дом с движущимся солнцем

Решение