|
Задачи по информатике
a, b, c, d определяется в интервале с функцией
a1 = RND(100) a = 0: b = 110 cor = (x1 + x2) / 2: y = fnf(cor) + k *
x NEXT k 200
: p = fnf(x) * f(x + s) pod2: 'уточнение корня' IF
ABS(x2 - x1) > t THEN 10 точка
пересечения точка пересечения точка пересечения точка пересечения точка пересечения Известны
координаты вершин четырехугольника . Найти точку пересечения
его диагоналей и наибольший радиус окружности, которая имеет центр в этой точке
и полностью лежит внутри этого четырехугольника. Координаты точек расположить на
гибком диске. REM и наибольшего радиуса окружности
лежащей в нем. INPUT #1, x1, y1, x2, y2, x3, y3, x4, y4 - y1) *
(x3 - x2) - (y3 - y2) * (x4 - x1)) r(1) = ABS((x2 - x1) * y - (y2 - y1) * x + x1 * y2 - y1 * x2) / SQR((x2 -
x1) ^ 2 + (y3 - y2) ^ 2) r(4)
= ABS((x1 - x4) * y - (y1 - y4) * x + x4 * y1 - y4 * x1) / SQR((x1 - x4) ^ 2 + (y3 - y1) ^ 2) FOR i
= 2 TO 6 PRINT "Точка пересечения диагоналей O ("; x; ","; y; ")" PRINT #2, "Точка пересечения
диагоналей O ("; x; ","; y; ")" 1,1 2,1 1,2
2,2 Радиус окружности лежащей в 4-х угольнике ABCD, R=
.5 - если номер строки
i > j, то Q(i, j)=Rnd*Q(j,i). - строку с наибольшим средним значением элементов, c максимальной суммой диагональных
элементов. PRINT "Число строк должно быть больше
числа столбцов": GOTO 2 IF i = j THEN q(i, j) = LOG(10
* RND) / SIN(RND) PRINT USING "##.### "; q(i, j); NEXT j: s(i) = f / n IF s(i) >= max THEN max = s(i): ii = i PRINT "Строка в которой разность стоящих
рядом эл-тов наименьшая" IF z >= min THEN
33 FOR i = 1 TO n PRINT "Эл-ты квадратной матрицы (n,n) с макс. суммой диагональных
эл-тов" IF k(i) < s THEN PRINT USING " ##.#### ";
q(i, j); 3.842 -0.373 0.367 -0.303743.2038 0.5367 Эл-ты
квадратной матрицы (n,n) с макс. суммой диагональных эл-тов
Составить таблицу значений определённого интеграла [t1;t2] Интегрировать
методом трапеций с заданной точностью. На печать выдать переменный предел,
результат. Печать организовать оператором DEF fna (x) = (x *
TAN(x)) / (1 + x ^ 2) INPUT "Введите шаг";
s PRINT #1, "Верхняя граница"; a; "Точность"; t PRINT #1, USING "
b=####.##### INTEGR=####.#####"; b; IN1 IN1 = IN1 +
fna(a + dx) n = n + 20: GOSUB INT1 Введите
изменение верхнего предела интеграла, b? 3,5 b= 3.00000
INTEGR= -0.86889 b= 4.80000 INTEGR= -
2.32331
| |
