Версия для печати темы

Автор: Slayer 10.05.2007 16:28

Здравствуйте!

Мне на графике нужно построить 3 фигуры:
Гипоциклоида, Ромашка, и Затухающие колебания

(смотрите приложенный файл jpg)

и поместить их в нижеследующие процедурs^

Procedure risgraph1;
 var k,x,x1,dx:extended;
  begin
  ClearScrin;
  Setcolor(11);
  Rectangle(170,20,610,380);
  setviewport(170,20,610,380,ClipOn);
  Rectangle(0,0,440,360);
  Moveto(0,220);
  k:=3;
  x1:=0;
  x:=-8;
  dx:=16/44000;
  while x<16 do
  begin
  PutPixel(Round(x1),180-Round(x*x*x),2);
  x1:=x1+0.01;
  x:=x+dx;
  end;
  setviewport(0,0,639,419,Clipon);
end;

Помогите пожалуйто. Мне их нужно завтра сдать :-)





Эскизы прикрепленных изображений