спосибо я уже нашел вопрос всё таки как построить синусоиду с заданым периодом есть формула y = a + bsin(x + c) куда подставить период... ой пошла математика...
Автор: TarasBer 21.02.2007 21:44
Цитата(compiler @ 21.02.2007 17:20)
спосибо я уже нашел вопрос всё таки как построить синусоиду с заданым периодом есть формула y = a + bsin(x + c) куда подставить период... ой пошла математика...
Var grDriver : Integer; grMode : Integer; w:real; x,y:real;{extended;} i:integer; Begin w:=23.6884; grDriver:=Detect; InitGraph(grDriver, grMode, ''); for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY); for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);
x:=lgr; while x<=pgr do begin { readln(x);} y:=(sin(2*3/w)*x); if x<>2 then begin y:=abs(x/(x-2))-1; y:=(sin(2*3/w)*x); { writeln(y:1:8);} putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end; x:=x+shag; end; readkey; closegraph; end.
при этом не FP не TP не компилируют...
Добавлено через 10 мин. секундочку, кажется я понимаю ошибку...
Добавлено через 4 мин. некоторые ошибки в коде уже устранены, но...
Добавлено через 3 мин. помоему мои мозги не работают...
Добавлено через 3 мин. где ошибка?..
Автор: volvo 21.02.2007 22:19
Цитата
приступим к реализации..
Только сначала ВНИМАТЕЛЬНО прочитаем правила раздела.