Курсовая работа: Нахождение корней уравнений различными методами

x:=a;

for i:=1 to 2*n-1 do

begin

x:=x+h;

k:=3+c;

s:=s+k*y(x);

c:=-c;

end;

s:=s+y(a)+y(b);

s:=s*(h/3);

z:=p(b)-p(a);

writeln(‘vivod’,z);

end.

Задание 3.

Построить график функции.

Y=1/sqr(3sin(x)+2cos(x)).

Программа.

Program grafik;

uses Graph;

var x0,y0:Word;

сrdr,crm:integer;

x,y:real;

i,j:word;

begin

СrDr:=Detect;

InitGraph(GrDr,Grm,’C:\paskal\BGI’);

if GraphResult <> grok then

begin writeln(‘error graf’);Halt end;

x0:=40;