Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия, Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки
Для каждого цвета K,что меняется в пределах от 0 до 15,высветить все точки экрана;используя для точки с координатами (i,j) цвет с номером, что ровняется остатку от деления
abs((i-50)^2 - (j-50)^3) / k+1
^ - степень
Смена цвета k и новое заполнение экрана должны начинаться после нажатия на любую клавишу!
Pavia
03.04.2009, 06:18
Алгоритм расписанн. Какие проблемы?
Тут три цикла. Формула тебе дана. Остается ее только запрограммировать.
sv2311
03.04.2009, 07:45
я не могу понять что присваивать этой формуле!!!типа какое то a(i,j) ?
Pavia
03.04.2009, 07:53
Код:
repeat for j:=0 to hieght-1 do for i:=0 to Width-1 do begin k:=GetPixel(i,j); SetPixel(i,j,abs(sqr(i-50) -sqr (j-50)*(j-50)) mod (k+1)); end; until ReadKey=#27;