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

№62

1.       const eps = 0.0001;

2.       var x, delta: real;

3.       function f(x: real): real;

4.       begin

5.       f := (x*x*x) + (3*x*x) - (9*x) - 20 + (8*sin(x)) - (8*cos(x));

6.       end;

7.       begin

8.       x := -5;

9.       delta := 1;

10.   while f(x) * f(x + delta) > 0 do

11.   x := x + delta;

12.   Writeln('x = ',(x+(delta/2)):6:3);

13.   delta := 2 * eps;

14.   while f(x) * f(x + delta) > 0 do

15.   x := x + delta;

16.   writeln((x+eps):6:3);

17.   end.

№63

const eps = 0.0001;

var x, delta: real;

function f(x: real): real;

begin    

f := (x*x*x) + (3*x*x) - (9*x) - 20 + (8*sin(x)) - (8*cos(x));

end;

beginx := -5;delta := 1;

while f(x) * f(x + delta) > 0 do     

x := x + delta;

Writeln('x = ',(x+(delta/2)):6:3);

delta := 2 * eps;

while f(x) * f(x + delta) > 0 dox := x + delta;writeln((x+eps):6:3);

end.

№64

var  s,s1: real; 

begin

var v:= ReadLnReal('Введите скорость полета шарика: ');

var t:= ReadLnReal('Введите время полета шарика: ');

var g1:= ReadLnReal('Введите первый угол полета шарика: ');

s1:= t*v*cos(g1);

var g2:= ReadLnReal('Введите второй угол полета шарика: ');

s1:= t*v*cos(g2);

if s > s1then writeln('Первая длина траектории движения шарика больше второй')else if s < s1then writeln('Первая длина траектории движения шарика меньше второй')else writeln('Длины траекторий движения шарика равны')

end.