Курсовая работа: Информатика Алгоритмизация и программирование
x(i) = a
f(i) = 0.1 * Tan(0.1 * x(i) + 0.025 * x(i) ^ 2)
f1(i) = f(i)
s(i) = h * f(i)
For i = 2 To n
x(i) = x(i - 1) + h
f(i) = 0.1 * Tan(0.1 * x(i) + 0.025 * x(i) ^ 2)
f1(i) = f1(i - 1) + f(i)
s(i) = h * f1(i)
Next
For i = 1 To n
Print " s="; s(i)
Next
If Abs(s(n) - s(n - 1)) < e Then Print " удвойте n"
End Sub
Private Sub Form_Load()
End Sub
Задача 5.
Дана прямоугольная матрица Ci , j , , размером . Если данная матрица является квадратной, найти сумму элементов главной диагонали, в противном случае найти сумму всех членов матрицы.
РЕШЕНИЕ
Составим схему алгоритма.
![]() |
Program Lab_5;
uses crt;
var
i,j,m,n:integer;
b,a : array[1..10,1..10] of real;
s : real;
begin
clrscr;