Задания для самостоятельного выполнения.

1.

Интервал [ 1, 11 ]; Δx = 0,5.

2.

Интервал [ -1, 1 ]; Δx = 0,1.

3.

Интервал [ 0, 8 ]; Δx = 0,5.

Значение ‘ b‘ ввести с клавиатуры.

4.

Интервал [ 0, 6 ]; Δx = 0,4.

Значения ‘a’, ‘ b’, ‘u’, ‘t’ ввести с клавиатуры.

5.

Интервал [ 0, 4 ]; Δx = 0,5.

Значение ‘ a‘ ввести с клавиатуры.

6.

Интервал [ 0,7; 2,5 ]; Δx = 0,2.

Значение ‘ a‘ ввести с клавиатуры.

7

Интервал [ 1; 12 ]; Δi = 1.

Значения ‘a’, ‘ b’, ‘c’ ввести с клавиатуры.

8.

Интервал [ 1; 10 ]; Δi = 1.

Значения ‘a’, ‘ n’ ввести с клавиатуры.

9.

Интервал [ -1; 1 ]; Δt = 0,2.

Значения ‘a’, ‘ b’ ввести с клавиатуры.

10.

Интервал [ 1; 5 ]; Δx = 0,5.

Значение ‘a’ ввести с клавиатуры.

11.

Интервал [ 0,8; 2 ]; Δx = 0,1.

Значение ‘a’ ввести с клавиатуры.

12.

Интервал [ 0,2; 2,8 ]; Δx = 0,2.

Значение ‘a’ ввести с клавиатуры.

13.

Интервал [ 1; 2 ]; Δx = 0,05.

Значения ‘a’, ‘b’, ‘c’ ввести с клавиатуры.

14.

Интервал [ 0; 7 ]; Δx = 0,5.

Значения ‘a’, ‘b’ ввести с клавиатуры.

15.

Интервал [ 0,8; 2 ]; Δx = 0,2.

Значение ‘a’ ввести с клавиатуры.

16.

Интервал [ 2; 5 ]; Δx = 0,25.

17.

Интервал [ 0,2; 2 ]; Δx = 0,1.

Значение ‘t’ ввести с клавиатуры.

18.

Интервал [ 0,2; 2 ]; Δx = 0,2.

Значение ‘b’ ввести с клавиатуры.

19.

Интервал [ 0,5; 2 ]; Δx = 0,1.

Значение ‘a’ ввести с клавиатуры.

20.

Интервал [ 0; 2,4 ]; Δt = 0,15.

Значения ‘a’, ‘b’ ввести с клавиатуры.

21.

Интервал [ 1,5; 3 ]; Δx = 0,2.

22.

Интервал [ 0,5; 3 ]; Δx = 0,25.

23.

Интервал [ 1; 4 ]; Δx = 0,25.

Значения ’ a ’, ’ в ’ ,’ c’ ввести с клавиатуры.

24.

Интервал [ 1; 3 ]; Δx = 0,25.

Значения ’ a ’,’ в ’,’ c ’ ввести с клавиатуры.

Тема 4. Сумма ряда.

Составить блок - схему алгоритма и программу для вычисления суммы ряда. Для заданий с конечным рядом на экран монитора вывести значение суммы ряда. Для заданий с бесконечным рядом с клавиатуры ввести значение точности суммирования, а на экран монитора вывести значения точности, количества просуммированных членов ряда и суммы ряда.

Пример 1. Найти сумму 28 членов ряда

; ;

Количество членов ряда известно, поэтому испоьзуем арифметический оператор цикла с параметром.

Program pr4_1;

uses crt;

var a, s: real; i: byte;

const n = 27;

begin clrscr;

s:= 1./8;

for i:= 2 to n do begin

a:= 1 / exp(3*ln(i+1));

s:= s + a end;

writeln(‘ s = ‘, s:8:5);

readkey

end.

Пример 2. Найти сумму ряда

; ;

с заданной точностью ε.

Количество суммируемых членов ряда неизвестно, поэтому используем оператор цикла с предусловием.

Program pr4_2;

uses crt;

var a, eps, s: real;

i: longint;

begin clrscr;

write(‘Введите точность eps -> ‘);

readln(eps);

a:= 0.5; i:= 1; s:= a;

while abs(a) > eps do begin

inc(i);

a:= i / (1+sqr(i));

s:= s + a

end;

writeln(‘eps = ‘,eps:12:6,’ i = ‘, i:8, ‘ s = ‘, s:12:6);

readkey

end.