Нижний треугольник экрана заполнить разными линиями

@Лекси · Регистрация: 14.04.2011

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

помогите пожалуйста!

нужно 2 программы написать((

1) нужно левый нижний треугольник экрана (поидее под главной диагональю) заполнить разными линиями (разного размера и направления) до нажатия любой клавиши заполнять! там как то через if надо. сравнивать с функцией y=f(x) этой диагональю что ли... чтобы за нее не выезжало.

2) там тоже самое, только там круг и нужно его внутренность заполнить таким же образом что и треугольник!

@Puporev · 29.04.2011, 09:11

1.

Pascal

uses graphABC,crt;
var w,x1,y1,x2,y2,c:integer;
begin
hidecursor;
setwindowsize(500,500);
w:=windowwidth;
repeat
c:=RGB(random(256),random(256),random(256));
setpencolor(c);
y1:=random(w);
x1:=random(y1);
y2:=random(w);
x2:=random(y2);
line(x1,y1,x2,y2);
sleep(100);
until keypressed;
end.

2.

Pascal

uses graphABC,crt;
var w,xc,yc,r,c,dx,dy,d,x1,y1,x2,y2:integer;
begin
hidecursor;
setwindowsize(500,500);
xc:=windowwidth div 2;
yc:=xc;
r:=xc-30;
circle(xc,yc,r);
repeat
c:=RGB(random(256),random(256),random(256));
setpencolor(c);
dy:=random(2*r)-r;
y1:=yc-dy;
d:=round(sqrt(r*r-dy*dy));
dx:=random(2*d)-d;
x1:=xc+dx;
dy:=random(2*r)-r;
y2:=yc-dy;
d:=round(sqrt(r*r-dy*dy));
dx:=random(2*d)-d;
x2:=xc+dx;
line(x1,y1,x2,y2);
sleep(100);
until keypressed;
end.

@Лекси 0 / 0 / 1 Регистрация: 14.04.2011 Сообщений: 27
		1
	Нижний треугольник экрана заполнить разными линиями 28.04.2011, 22:02. Показов 1970. Ответов 1 Метки нет (Все метки) помогите пожалуйста! нужно 2 программы написать(( 1) нужно левый нижний треугольник экрана (поидее под главной диагональю) заполнить разными линиями (разного размера и направления) до нажатия любой клавиши заполнять! там как то через if надо. сравнивать с функцией y=f(x) этой диагональю что ли... чтобы за нее не выезжало. 2) там тоже самое, только там круг и нужно его внутренность заполнить таким же образом что и треугольник! 0

	29.04.2011, 09:11

Нижний треугольник экрана заполнить разными линиями

Решение