Рік | Сума, крб. | Сума, крб. | К0 | t | Кз

1987 | 2085 | 1120,5 | 1,86 | 193,47 | 0,54

1988 | 2099 | 1230,6 | 1,71 | 211,06 | 0,59

1989 | 3100 | 1400,7 | 2,21 | 162,66 | 0,45

Т= | 360

044-66 ст.28

Кінцеве значення | в2 = | -1

Число відрізків | m = | 10

Крок інтегрування | h = | 0,30

Початок відрізку | с = | -1

Кінець відрізку | d = | 2

i | Точки розбиття Хі | Ті | Значення функції Fi

0 | -2 | -1 | -3,63

1 | -1,70 | -0,70 | -2,39

2 | -1,40 | -0,40 | -1,29

3 | -1,1 | -0,1 | -0,31

4 | -0,80 | 0,20 | 0,58

5 | -0,50 | 0,50 | 1,40

6 | -0,2 | 0,8 | 2,19

7 | 0,10 | 1,10 | 2,99

8 | 0,40 | 1,40 | 3,90

9 | 0,7 | 1,7 | 4,98

10 | 1,00 | 2,00 | 6,39

Обчислення інтегралів A:

Обчислити значення інтегралу від функції F1 (x) = cos^2*x^2 за формулою трапеції

Початкове значення | а1 = | 0

Кінцеве значення | в1 = | ПИ

Число відрізків | n = | 20

Крок інтегрування | h = | 0,16

i | Точки розбиття Хi | Значення функції f i | Значення інтегралу

0 | 0 | 1,00 | U = | 1,74

1 | 0,16 | 1,00

2 | 0,31 | 0,99

3 | 0,47 | 0,95

4 | 0,63 | 0,85

5 | 0,79 | 0,67

6 | 0,94 | 0,40

7 | 1,10 | 0,13

8 | 1,26 | 0,00

9 | 1,41 | 0,17

10 | 1,57 | 0,61

11 | 1,73 | 0,98

12 | 1,88 | 0,84

13 | 2,04 | 0,27

14 | 2,20 | 0,02

15 | 2,36 | 0,55

16 | 2,51 | 1,00

17 | 2,67 | 0,44

18 | 2,83 | 0,02

19 | 2,98 | 0,76

20 | 3,14 | 0,81

Побудуваатии діаграми і графікии

044-84 ст.47

044-66 ст.32

Побудова графіків двох функцій

Початкове значення | а = | -6,283185307 | Функція1 | COS |x|

Кінцеве значення | b = | 6,283185307 | Функція2 | SIN |x|

Кількість позицій | n = | 50

Крок інтегрування | h = | 0,25

i | Точки розбиття Хі | Значення функції 1 | Значення функції 2

0 | -6,28 | 1,00 | ?

1 | -6,03 | 0,97 | ?

2 | -5,78 | 0,88 | ?

3 | -5,53 | 0,73 | ?

4 | -5,28 | 0,54 | ?

5 | -5,03 | 0,31 | ?

6 | -4,78 | 0,06 | ?

7 | -4,52 | -0,19 | ?

8 | -4,27 | -0,43 | ?

9 | -4,02 | -0,64 | ?

10 | -3,77 | -0,81 | ?

11 | -3,52 | -0,93 | ?

12 | -3,27 | -0,99 | ?

13 | -3,02 | -0,99 | 1,25E-01

14 | -2,76 | -0,93 | 3,68E-01

15 | -2,51 | -0,81 | 5,88E-01

16 | -2,26 | -0,64 | 7,71E-01

17 | -2,01 | -0,43 | 9,05E-01

18 | -1,76 | -0,19 | 9,82E-01

19 | -1,51 | 0,06 | 9,98E-01

20 | -1,26 | 0,31 | 9,51E-01

21 | -1,01 | 0,54 | 8,44E-01

22 | -0,75 | 0,73 | 6,85E-01

23 | -0,50 | 0,88 | 4,82E-01

24 | -0,25 | 0,97 | 2,49E-01

25 | 0,00 | 1,00 | 0,00E+00

26 | 0,25 | 0,97 | 2,49E-01

27 | 0,50 | 0,88 | 4,82E-01

28 | 0,75 | 0,73 | 6,85E-01

29 | 1,01 | 0,54 | 8,44E-01

30 | 1,26 | 0,31 | 9,51E-01

31 | 1,51 | 0,06 | 9,98E-01

32 | 1,76 | -0,19 | 9,82E-01

33 | 2,01 | -0,43 | 9,05E-01

34 | 2,26 | -0,64 | 7,71E-01

35 | 2,51 | -0,81 | 5,88E-01

36 | 2,76 | -0,93 | 3,68E-01

37 | 3,02 | -0,99 | 1,25E-01

38 | 3,27 | -0,99 | ?

39 | 3,52 | -0,93 | ?

40 | 3,77 | -0,81 | ?

41 | 4,02 | -0,64 | ?

42 | 4,27 | -0,43 | ?

43 | 4,52 | -0,19 | ?

44 | 4,78 | 0,06 | ?

45 | 5,03 | 0,31 | ?

46 | 5,28 | 0,54 | ?

47 | 5,53 | 0,73 | ?

48 | 5,78 | 0,88 | ?

49 | 6,03 | 0,97 | ?

50 | 6,28 | 1,00 | 1,53E-15

Робота в Pascal

044-95 cт.8

Дано масив А(n) а) Знайти елементи які слідують за останнім додатнім

Елементом, їх кількість та суму

Б) Відсортувати вхідний масив по зростанню

А) program elem;

var a:array [1..10] of real;

i,k:integer;

s:real;

begin

writeln ('введiть елементи серед яких є вiд''ємнi');

for i:=1 to 10 do

readln (a[i]);

for i:=1 to 10 do

if a[i]>0 then k:=i;

for i:=k+1 to 10 do

s:=a[i]+s;

writeln ('сума ',s,' кiлькiсть',10-k);

readln

end.

Б) program elem;

var a:array [1..10] of real;

i,k:integer;

s:real;

begin

writeln ('введiть елементи серед яких у вiд''умнi');

for i:=1 to 10 do

readln (a[i]);

for i:=1 to 10 do

if a[i]>0 then k:=i;

for i:=k+1 to 10 do

s:=a[i]+s;

writeln ('сума ',s,' кiлькiсть',10-k);

readln

end.

044-95 ст.9

Серед внутрішніх елементів матриці, знайти максимальний по модулю

елемент не рівний “0”,та помножити на нього всі елементи.

program matruca;

var a:array [1..4,1..4] of real;

i,j:integer;

max:real;

begin

writeln ('введiть елементи матрицi');

for i:=1 to 4 do

for j:=1 to 4 do

readln (a[i,j]);

for i:=2 to 3 do

for j:=2 to 3 do

if (max<abs(a[i,j]))and(a[i,j]<>0) then max:=a[i,j];

writeln ('максимальний елемент', max:4:2);

for i:=1 to