3курс / синус

procedure grsinus;

var
H,W:integer;
k:integer;
posx,posy:integer;
begin
form1.WindowState:=wsmaximized;
form1.Image1.Width:=600;
form1.Image1.Height:=200;
with form1.Image1.Canvas do
begin
pen.Color:=clblue;
pen.Width:=2;
W:=form1.Image1.ClientWidth;
H:=form1.Image1.ClientHeight;
form1.label2.caption:='размеры '+inttostr(W)+chr(13)+inttostr(H);
moveto(0,H div 2);lineto(W,H div 2);
moveto(0,H div 2);

for k:= 0 to 600 do
begin
posx:=k;
posy:=round(h/2-90*sin(k/W*2*PI));
pen.color:=RGB(k div 2,100-k div 2,abs(200-k));
lineto(posx,posy);
end;

end;

end;