Откройте тетради и проверим домашнее задание. Напомню задачу: «Построить график функции y=sin(x) на интервале (-2п;2п)». Посмотрите на экран монитора. Верно? У вас так? (в задаче намерено допущено несколько ошибок, необходимо вместе найти их, исправить)
Program _;
var dr, mo, gx,gy: integer;
x,y: real;
begin
initGraph(dr, mo, 'd:\bp\bgi');
Line(GetMaxX div 2,0,GetMaxX div 2, getMaxY);
Line(0,GetMaxY div 2,getMaxX, GetMaxY div 2);
x:=-2*pi;
while x<=2*pi do
begin
y:=sin(x);
PutPixel(x,y,6);
x:=x+0.001;
end;
readln;
end.
Program _;
uses graph;
var dr, mo, gx,gy: integer;
x,y: real;
begin
dr:=detect; initGraph(dr, mo, 'd:\bp\bgi');
Line(GetMaxX div 2,0,GetMaxX div 2, getMaxY);
Line(0,GetMaxY div 2,getMaxX, GetMaxY div 2);
x:=-2*pi;
while x<=2*pi do
begin
y:=sin(x);
gx:=round(x*(getMaxX/(4*pi))+GetMaxX div 2);
gy:=round(-y*(getMaxy/8)+GetMaxY div 2);
PutPixel(gx,gy,6);
x:=x+0.001;
end;
readln;
closeGraph;
end.
Есть вопросы по задаче?
Записали новую тему:
