График функции больше напоминает набор точек. Можно ли его сгаладить?
uses Crt, Graph;
var
gd, gm, k,alpha,color: Integer;
i:real;
begin
randomize;
gd := Detect;
InitGraph(gd, gm, '');
repeat
i := 0;
k:=200;
alpha:=80;
color:=random(15);
while (i < GetMaxX) do
begin
PutPixel(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)), color);
Delay(300);
i:=i+0.1;
end;
until keypressed;
end.
uses Crt, Graph;?
var
gd, gm, k,alpha,color: Integer;
i:real;
begin
randomize;
gd := Detect;
InitGraph(gd, gm, '');
repeat
i := 0;
k:=200;
alpha:=80;
color:=random(15);
setcolor(color);
moveto(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)));
while (i < GetMaxX) do begin
LineTo(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)));
Delay(300);
i:=i+0.1;
end;
until keypressed;
end.
Хм... Я об этом не подумал. Спасибо, volvo.