Текст программы на языке Паскаль.
uses crt, graphABC;
function F(x:real):real; begin F:=2*sin(2*x)+0.5*sin(x) end;
const xn=0; xk=2*pi; shag=2*pi/36;
var x,y,mx,my:real; x1,y1:array[1..100] of real;
n,i,gd,gm,XO,YO: integer; st:string; a: boolean;
begin x:=xn; n:=0;
while x<=xk+shag/2 do begin
y:=F(x); n:=n+1; x1[n]:=x; y1[n]:=y; x:=x+shag;
If (x1[n]>=pi) And (x1[n]<=1.5*pi) And (y1[n]<0) then y1[n]:=0.5; end;
writeln('Значение функции x:');
for i:= 1 to n do
write(x1[i]:8:2); writeln;
writeln('Значение функции y:');
for i:= 1 to n do
write(y1[i]:8:2); writeln;
write('Press to Enter'); readln; clearwindow;
XO:=40; mx:=(Windowwidth-60)/(xk-xn); YO:=windowheight div 2; my:=50;
line(20,y0,Windowwidth-20,YO); textout(Windowwidth-15,y0-15,'X');
line(x0,windowheight-20,x0,20); textout(XO-15,10,'Y');
moveto(XO+round(x1[1]*mx),YO-round(y1[1]*my));
for i:=1 to round(xk)+1 do begin
line(XO+round(i*mx),YO+3,XO+round(i*mx),YO-3);
line(XO-round(i*mx),YO+3,XO-round(i*mx),YO-3);
line(XO+3,YO+round(i*my),XO-3,YO+round(i*my));
line(XO+3,YO-round(i*my),XO-3,YO-round(i*my)); str(i,st);
textout(XO+round(i*mx),YO+10,st); textout(XO-round(i*mx),YO+10,'-'+st);
textout(XO-20,YO-round(i*my),st); textout(XO-20,YO+round(i*my),'-'+st);
end;
for i:= 1 to n do begin
setpencolor(RGB(255,50,50)); lineto(XO+round(x1[i]*mx),YO-round(y1[i]*my)); end;
end.
Полученные значения функции и график функции.
Рис. 2. Значения переменных, полученные в Pascal.
Рис. 3. График, полученный в Pascal.
Значения и график функции, выполненные в ms Exсel.
Рис. 4. Значения переменных, полученные в Exel.
Рис. 5. График, полученный в Exel.
Макросы.
Рис. 5. Результат выполнения первого задания.
Рис. 6. Результат выполнения второго задания.
Рис. 7. Результат выполнения третьего задания.
Рис. 8. Результат выполнения четвёртого задания.
Рис. 9. Результат выполнения пятого задания.
Рис. 10. Результат выполнения шестого задания.
Рис. 11. Результат выполнения седьмого задания.
Рис. 12. Результат выполнения восьмого задания.