Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу. В задании не сказано точно, как определять условие окончания суммирования. Примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е. |aₓ| ≤ ε.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (ai1,eps,s,i):=(3/2,0.001,3/2,2); while true do begin var a:=3/(4*i-2)*ai1; if Abs(a)>eps then begin i+=1; s+=a; ai1:=a end else Break end; Writeln('S = ',s:0:3) end.
![Скласти програму мовою Паскаль для табулювання функції у(х) на проміжку [-5;4] з кроком, який визнач](/tpl/images/4365/2321/dbd9d.jpg)
В задании не сказано точно, как определять условие окончания суммирования. Примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е.
|aₓ| ≤ ε.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (ai1,eps,s,i):=(3/2,0.001,3/2,2);
while true do begin
var a:=3/(4*i-2)*ai1;
if Abs(a)>eps then begin i+=1; s+=a; ai1:=a end
else Break
end;
Writeln('S = ',s:0:3)
end.
Результат
S = 2.532
Объяснение:
C++Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
void main()
{
setlocale(0, "rus");
int mas[5][5];
srand(time(NULL));
cout << "Первоначальный массив" << endl;
for (int i = 0; i<5; i++){
cout << endl;
for (int j = 0; j<5; j++){
mas[i][j] = rand() % 10;
cout << mas[i][j] << " ";
}
cout << endl;
}
cout << "Полученный массив" << endl;
for (int i = 0; i<5; i++){
int tmp = mas[i][i];
mas[i][i] = mas[i][5 - i - 1];
mas[i][5 - i - 1] = tmp;
}
cout << endl;
for (int i = 0; i<5; i++){
cout << endl;
for (int j = 0; j<5; j++){
cout << mas[i][j] << " ";
}
cout << endl;
}
}
0