(I2, ffFixed, 10, t) + "A"; -> Caption = "I3 =" + FloatToStrF (I3, ffFixed, 10, t) + "A"; -> Caption = "I4 =" + FloatToStrF (I4, ffFixed, 10, t) + "A"; -> Caption = "I5 =" + FloatToStrF (I5, ffFixed, 10, t) + "A" ;; -> Caption = "I6 =" + FloatToStrF (I6, ffFixed, 10, t) + "A";
// Розрахунок балансу
// Висновок результату-> Caption = "Pіст =" + FloatToStrF (Pist, ffFixed, 10, t) + "Вт"; -> Caption = "Pнагр =" ; + FloatToStrF (Pn, ffFixed, 10, t) + "Вт"; -> Caption = "Є =" + FloatToStrF (fabs (Pist-Pn)/Pn * 100, ffFixed, 8, t) + "%";
} else {Form1-> Caption = "!! Некоректний введення даних!! "; -> Caption =" "; -> Caption =" "; -> Caption =" "; -> Caption =" " ;; -> Caption = ""; -> Caption = ""; -> Caption = ""; -> Caption = ""; -> Caption = "" ;;}
} Gauss (float z [10] [10], float y [10], int n)
{k, l, j, i; maxabs = 0, v; (i = 1; i <= n; i + +)
{= fabs (z [i] [i]); = i; (l = i +1; l <= n; l + +) (fabs (z [l] [i])> ; maxabs)
{= fabs (z [l] [i]); = l;
} (k! = i) (j = i; j <= n +1; j + +)
{= z [i] [j]; [i] [j] = z [k] [j]; [k] [j] = v;
} = z [i] [i]; (j = i; j <= n +1; j + +) [i] [j] = z [i] [j]/v; ( l = i +1; l <= n; l + +)
{= z [l] [i]; (j = i +1; j <= (n +1); j + +) [l] [j] = z [l] [j] - (z [i] [j] * v);
}
} [n] = z [n] [n +1]; (i = n-1; i> = 1; i -)
{[i] = z [i] [n +1]; (j = i +1; j <= n; j + +) [i] = y [i]-z [i] [j] * y [j];
}
}
// ---------------------------------------- -----------------------------------
// Побудова графіка I2 від I5__fastcall TForm1 :: Button3Click (TObject * Sender)
}
}
{int
{
// Матриця провідностей [1] [1] = 1/R1 +1/R2 +1/R5; G [1] [2] = -1/R5; G [1] [3 ] = -1/R1; G [1] [4] = -J2-E2/R2; [2] [1] = -1/R5; G [2] [2] = 1/R3 +1/R4 + 1/R5; G [2] [3] = -1/R3; G [2] [4] = J3; [3] [1] = -1/R1; G [3] [2] = -1/ R3; G [3] [3] = 1/R1 +1/R3 +1/R6; G [3] [4] = E2/R2 + J2;
// Визначаємо потенціали (G, Uk, 3);
// Визначаємо контурні струми = (Uk [2] + Uk [1])/R1;
I6 = (E2-Uk [2])/R6;
// Висновок струмів
Label11-> Caption = "I1 =" + FloatToStrF (I1, ffFixed, 10, t) + "A"; -> Caption = "I2 =" + FloatToStrF (I2, ffFixed, 10, t) + "A"; -> Caption = "I3 =" + FloatToStrF (I3, ffFixed, 10, t) + "A"; -> Caption = " I4 = "+ FloatToStrF (I4, ffFixed, 10, t) +" A "; -> Caption =" I5 = "+ FloatToStrF (I5, ffFixed, 10,...
