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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Рисование графиков

Автор: ammaximus 23.12.2006 19:47

График функции больше напоминает набор точек. Можно ли его сгаладить?

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.

Автор: volvo 23.12.2006 19:57

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.

?

Автор: ammaximus 23.12.2006 20:01

Хм... blink.gif Я об этом не подумал. smile.gif Спасибо, volvo.