2.3 Блок-схемы расчетных процедур

Блок-схема формирования массива А

r1:= SpinEdit2.Value;

r2:= SpinEdit3.Value;

да

нет

StringGrid1.Cells[i,j]:=

IntToStr(random(r2-r1+1) + r1);

Неправильно

Введён промежуток чисел

Рисунок 2

Блок – схема подсчета матрицы A^-1

.

StringGrid2.Cells[i,j]:=FloatToStr

(Round(1000*obr[j, i])/1000);

Рисунок 3

Блок – схема подсчета процедуры Obratis для нахождения матрицы A^-1.

if (i=k) and (j=k) then

if (i=k) and (j<>k) then

if (i<>k) and (j=k) then

if (i<>k) and (j<>k) then

for i:= 0 to kol - 1 do

for j:= 0 to kol - 1 do

obr[i, j]:= b[i, j];

Рисунок 4