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

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

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

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

@SuPeR XaKer · 25.10.2010, 18:08

https://www.cyberforum.ru/pascal/thread181355.html
а это что?

@Puporev · 25.10.2010, 18:13

Pascal

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

Добавлено через 16 секунд
SuPeR XaKer, Там чуть по другому...

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

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	25.10.2010, 18:08	2
	https://www.cyberforum.ru/pascal/thread181355.html а это что? 0

	25.10.2010, 18:13

Опции темы

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

Решение