Напишите программу в QBasic Решите уравнения AX=B для 10 пар значений A и B, заданных в виде двух массивов A(10) и B(10). Результат поместить в массив X(10). (при составлении программы учесть ,что среди A(1) могут быть нулевые ...
Напишите программу в QBasic
Решите уравнения AX=B для
10 пар значений A и B, заданных в виде двух массивов A(10) и B(10). Результат поместить в массив X(10). (при составлении программы учесть ,что среди A(1) могут быть нулевые элементы, т.е. исключить деление на ноль). И напишите результату))))
Гость
Ответ(ы) на вопрос:
ГостьOPTION BASE 1
DIM a(10) AS SINGLE, b(10) AS SINGLE, x(10) AS SINGLE
RANDOMIZE TIMER
FOR i = 1 TO 10
a(i) = 30 * RND - 15
NEXT i
FOR i = 1 TO 10
b(i) = 40 * RND - 20
NEXT i
CLS
PRINT "A", "B", "X"
FOR i = 1 TO 10
IF a(i) = 0 THEN
x(i) = 1E+10
ELSE
x(i) = b(i) / a(i)
END IF
PRINT a(i), b(i), x(i)
NEXT i
Тестовое решение:
A B X
-5.504717 19.41665 -3.527274
-5.233851 -11.24631 2.148764
-5.154725 2.927625 -.5679499
5.057724 -8.649354 -1.710128
-6.304109 -19.25289 3.054023
-1.920151 6.061134 -3.156593
-10.34241 17.10881 -1.654238
13.86053 .4965448 3.582438E-02
-4.931755 8.241055 -1.671019
8.120502 8.78438 1.081753
Не нашли ответ?
Похожие вопросы