Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии

@Afonia · Регистрация: 24.10.2010

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

Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии, причем длина каждого последующего отрезка должна уменьшаться на 5 пикселей. Картинку нарисовать с использованием конструкции цикла и одной процедуры рисования линии.(Турбо Паскаль)

@Puporev · 25.10.2010, 17:52

Pascal

uses graph;
const n=10;
procedure Linya(x,y,d,c:integer);
begin
setcolor(c);
line(x,y,x,y+d);
end;
var xc,yc,d,w,i:integer;
begin
xc:=0;
initgraph(xc,yc,'');
w:=getmaxX div (n+1);
d:=getmaxY-60;
xc:=w;
yc:=30;
for i:=1 to n do
Linya(xc+(i-1)*w,yc,yc+d-5*(i-1),i+1);
readln
end.

@Afonia 0 / 0 / 0 Регистрация: 24.10.2010 Сообщений: 7
		1
	Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии 25.10.2010, 16:55. Показов 1864. Ответов 1 Метки нет (Все метки) Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии, причем длина каждого последующего отрезка должна уменьшаться на 5 пикселей. Картинку нарисовать с использованием конструкции цикла и одной процедуры рисования линии.(Турбо Паскаль) 0

	25.10.2010, 17:52

Опции темы

Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии

Решение