Компьютерная графика

@Iliabobr · Регистрация: 04.11.2009

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

В графике я пока не силён но пытаюсь учиться)).
Буду благодарен если поможете
1).Изобразить прямоугольник с длиной онования L и высотой H, перемещающийся по главной диагонали монитора.
2).По заданным значениям координат центра окружности и числа N ,построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N закрашенных разных цветом секторов.

@Давид · 16.11.2009, 22:45

Iliabobr,

но пытаюсь учиться

А где ваши попытки???выкладывайте то что наработали - я посмотрю!

@Iliabobr · 17.11.2009, 18:15 **[ТС]**

Пытаюсь я в смысле что нифига не знаю и хочу научиться))

@Iliabobr · 19.11.2009, 17:55 **[ТС]**

Блин ну помогите))

@Puporev · 19.11.2009, 19:42

1.

Pascal

uses crt,graph;
var gd,gm,x,y,x1,y1,L,h:integer;
begin
clrscr;
repeat
writeln('dlina ot 10 do 320 L=');
readln(L);
until (L>=10)and(L<=320);
repeat
writeln('vysota ot 10 do 240 L=');
readln(h);
until (h>=10)and(h<=240);
gd:=0;
initgraph(gd,gm,'');
x:=1;y:=1;
repeat
setcolor(12);
rectangle(x,y,x+L,y+h);
delay(100);
setcolor(0);
rectangle(x,y,x+L,y+h);
x:=x+round(12*getmaxX/getmaxY);
y:=y+round(16*getmaxY/getmaxX);
until (x>getmaxX-L-20)or(y>getmaxY-h-10);
setcolor(12);
rectangle(x,y,x+L,y+h);
delay(1000);
closegraph;
end.

Добавлено через 37 минут
2.

Pascal

uses crt,graph;
var gd,gm,n,x,y,r,i,h,a,b:integer;
begin
clrscr;
write('n=');readln(n);
{вводим координаты, в пределах экрана}
repeat
write('x ot 10 do 620 =');readln(x);
write('y ot 10 do 460 =');readln(y);
until(x>=10)and(x<=620)and(y>=10)and(y<=460);
r:=x;{ищем минимальное расстояние до края экрана=максимальный радиус}
if 640-x<r then r:=640-x;
if y<r then r:=y;
if 480-y<r then r:=480-y;
gd:=0;
InitGraph(gd,gm,'');
h:=round(360/n);{центральный угол сектора}
for i:=1 to n-1 do{рисуем n-1 сектор}
 begin
   a:=h*(i-1);{начальный угол}
   b:=h*i;{конечный угол}
   Setfillstyle(1,i);{закрашивание цветом по номеру}
   PieSlice(x,y,a,b,r);{рисование суктора}
 end;
Setfillstyle(1,n);{рисуем последний сектор, подбирая все погрешности округления}
PieSlice(x,y,b,360,r);
readln;
CloseGraph;
End.

@Iliabobr 3 / 3 / 3 Регистрация: 04.11.2009 Сообщений: 98
		1
	Компьютерная графика 16.11.2009, 22:21. Показов 1897. Ответов 4 Метки нет (Все метки) В графике я пока не силён но пытаюсь учиться)). Буду благодарен если поможете 1).Изобразить прямоугольник с длиной онования L и высотой H, перемещающийся по главной диагонали монитора. 2).По заданным значениям координат центра окружности и числа N ,построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N закрашенных разных цветом секторов. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	16.11.2009, 22:45	2
	Iliabobr, но пытаюсь учиться А где ваши попытки???выкладывайте то что наработали - я посмотрю! 0

@Iliabobr 3 / 3 / 3 Регистрация: 04.11.2009 Сообщений: 98
	17.11.2009, 18:15 [ТС]	3
	Пытаюсь я в смысле что нифига не знаю и хочу научиться)) 0

@Iliabobr 3 / 3 / 3 Регистрация: 04.11.2009 Сообщений: 98
	19.11.2009, 17:55 [ТС]	4
	Блин ну помогите)) 0

	19.11.2009, 19:42