Практические работы по информатике 10 класс (№65-67)

№65

const a=-pi/2;

b=pi/2;     

eps=0.0001;

function f1(x:real):real;

beginf1:=x*x;

end;

function f2(x:real):real;

beginf2:=4*cos(x);

end;

function f(x:real):real;

beginf:=f1(x)-f2(x);

end;

function

Bisec(xn,xk:real):real;

var x,c:real;beginrepeatc:=(xn+xk)/2;

if F(xn)*F(c)<0 then xk:=celse xn:=c;

until xk-xn<eps;Bisec:=(xn+xk)/2;

end;

var x,dx,x11,x12,x1,x2,h,s:real;   

n,i:integer;begindx:=0.1;

x:=a;i:=0;while x<=b do

begin 

x11:=x; 

x12:=x+dx; 

if F(x11)*F(x12)<0 then 

 begin   

inc(i);  

 if i=1 then x1:=Bisec(x11,x12)  

 else x2:=Bisec(x11,x12)  

end;  x:=x+dx;

end;

writeln('x1=',x1:0:3,' x2=',x2:0:3);

write('Число разбиений n=');

readln(n);

h:=(x2-x1)/n;x:=x1+h/2;

s:=0.0;for i:=1 to n do

begin  s:=s+f2(x)-f1(x); 

x:=x+h;

end;

s:=s*h;

write('Площадь = ',s:0:3);

end.

№66

program dihotom;

uses crt;

var x0,x1,e,x2,a,b,w:real;

i:integer;

begin

clrscr;

i:=0;

writeln(‘начало и конец отрезка’);

readln(x0);readln(x1);

writeln(‘точность');

read(e);

writeln('f(x)= -4*x-8*x^3+6*x^4');

repeat

i:=i+1;

x2:=(x0+x1)/2;

w:=-4*x2-8*power(x2,3)+6*power(x2,4);

a:=x2+e/2;

b:=x2-e/2;

write (i,'-ое деление ',' f(',x2:5:2,') = ',w:7:5,'  на интервале [',x0:5:2,',',x1:5:2,']');

writeln;

if ((-4*a-8*power(a,3)+6*power(a,4))-(-4*b-8*power(b,3)+6*power(b,4))>0)

then begin x0:=x0 ; x1:=x2; end else

if ((-4*a-8*power(a,3)+6*power(a,4))-(-4*b-8*power(b,3)+6*power(b,4))<0)

then begin x0:=x2;x1:=x1; end;

until (x1-x0)<e;

x2:=(x0+x1)/2;

writeln('min=',(-4*x2-8*power(x2,3)+6*power(x2,4)):7:5,' в точке,x2:7:5);

end.

№67

//V = (100 -2*h)*(100 -2*h)*h

const L = 100;

var V1, V2,h :real;

begin

v1:= 0;  v2:=1; h:=10;

while (v2 - v1) >0 do

begin

v1 := (100 - 2* h)* (100 - 2* h)*h;

h := h +0.5;

v2 := (100 - 2* h)* (100 - 2* h)*h;

writeln('Высота = ', h , ', Объем ', v1);

end;

writeln('Высота = ', h , ', Максимальный объем ', v1);

end.