Нарисовать фрагмент синусоиды, сотоящй из 100 разноцветных окружностей одного радиуса.

@Sanya Black1993 · Регистрация: 12.05.2012

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

Ребята помогите пожалуйста решить задачу по языку Pascal !!! Помогите решить как-можно быстрее так как время поджимает. ( По Graph ABC я полный 0)

Модуль Graph ABC
23. Нарисовать фрагмент синусоиды, сотоящй из 100 разноцветных окружностей одного радиуса.

@Puporev · 18.05.2012, 15:15

Pascal

uses graphABC;
var  yc,i,x,r,y:integer;
begin
randomize;
yc:=windowheight div 2;
r:=windowwidth div 200;
x:=r;
for i:=1 to 100 do
 begin
  y:=yc-round(sin(x*pi/180)*100);
  setpencolor(random($ffffff));
  circle(x,y,r);
  x:=x+2*r;
 end;
end.

@Sanya Black1993 2 / 0 / 7 Регистрация: 12.05.2012 Сообщений: 173
		1
	Нарисовать фрагмент синусоиды, сотоящй из 100 разноцветных окружностей одного радиуса. 18.05.2012, 10:07. Показов 1901. Ответов 1 Метки нет (Все метки) Ребята помогите пожалуйста решить задачу по языку Pascal !!! Помогите решить как-можно быстрее так как время поджимает. ( По Graph ABC я полный 0) Модуль Graph ABC 23. Нарисовать фрагмент синусоиды, сотоящй из 100 разноцветных окружностей одного радиуса. 0

	18.05.2012, 15:15

Нарисовать фрагмент синусоиды, сотоящй из 100 разноцветных окружностей одного радиуса.

Решение