График синусоиды

[Sour1]

Помогите изменить формулу программы. Нужно чтобы можно было задать длину волны и амплитуду

program sinus;
uses crt, grapH;
var X0,Y0,Y,X,K,A, gd,gm:integer;
begin
clrscr;
ReAD(K);
ReAD(A);
gd:=detect;
initgraph(gd, Gm,'X:\BP');
if graphresult <> gRok then
halt(1);
repeat
LINe((0),(240),(640),(240));
LINe((0),(0),(0),(480));
X0:=0;
Y0:=240;
FOR X:=0 TO 640 DO
BeGIN
Y:=TRUNC(K*SIN(A*(X/K)));
PUTPIXeL(X0+X,Y0-Y,GReeN);
eND;
until keypressed;
closegraph;
end.

[ViktorR]

Может это поможет:

Y:=TRUNC(K*SIN(A*2*pi*X/640)));

Данные для амплитуды и периода вводятся тут:

...
ReAD(K);
ReAD(A);
...

Как-то так, ...

[min@y™]

неужели мне настолько скучно?



Вы ещё программируете на турбопаскакале?
Тогда мы идём к вам!!!111

скачать.