Курсовая работа: Информатика Алгоритмизация и программирование

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;

К-во Просмотров: 545
Бесплатно скачать Курсовая работа: Информатика Алгоритмизация и программирование