64147 (Курсовая по информатике), страница 2
Описание файла
Документ из архива "Курсовая по информатике", который расположен в категории "". Всё это находится в предмете "компьютерные науки" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "компьютерные науки" в общих файлах.
Онлайн просмотр документа "64147"
Текст 2 страницы из документа "64147"
NEXT i
PRINT USING "##.####"; q(ii, j);
NEXT j
PRINT "Строка в которой разность стоящих рядом эл-тов наименьшая"
min = ABS(q(1, 1) - q(1, 2))
FOR i = 1 TO m
FOR j = 2 TO n
z = ABS(q(i, j - 1) - q(i, j))
NEXT j
IF z >= min THEN 33
min = z: kk = i
33 NEXT i
FOR i = 1 TO n
PRINT USING "##.#### "; q(kk, i);
NEXT i
s = 0
FOR i = 1 TO n
s = s + q(i, i)
NEXT i
k = 0
FOR i = 1 TO n
k = k + q(i + 1, i)
NEXT i
k(i) = k
PRINT "Эл-ты квадратной матрицы (n,n) с макс. суммой диагональных эл-тов"
max = s
FOR i = 1 TO n
FOR j = 1 TO n
IF k(i) >= s THEN PRINT USING " ##.#### "; q(i + 1, j);
IF k(i) < s THEN PRINT USING " ##.#### "; q(i, j);
NEXT j
NEXT i
Данные:
Число строк столбцов? 4,3
Результаты:
Исходная матрица
3.842 -0.373 0.367
-0.304 43.204 0.537
0.353 0.468 -0.708
0.201 -0.015 0.021
Строка с наибольшим средним значением
-0.303743.2038 0.5367
Строка в которой разность стоящих рядом эл-тов наименьшая
0.2005 -0.0149 0.0212
Эл-ты квадратной матрицы (n,n) с макс. суммой диагональных эл-тов
3.8424 -0.3729 0.3669
-0.3037 43.2038 0.5367
0.3530 0.4677 -0.7079
4. Составить таблицу значений определённого интеграла
b
(x*tg(x)/(1+x2))*dx при изменении верхнего предела в интервале [t1;t2]
a
c шагом s.
Интегрировать методом трапеций с заданной точностью. На печать выдать переменный предел, результат. Печать организовать оператором Print Using.
Текст программы:
CLS
OPEN "a:z4.txt" FOR OUTPUT AS #1
DEF fna (x) = (x * TAN(x)) / (1 + x ^ 2)
INPUT "Нижняя граница интеграла"; a
INPUT "Введите изменение верхнего предела интеграла, b"; t1, t2
INPUT "Введите шаг"; s
INPUT "Точность"; t
FOR b = t1 TO t2 STEP s
PRINT "Верхняя граница"; a; "Точность"; t
PRINT #1, "Верхняя граница"; a; "Точность"; t
GOSUB INT2
PRINT USING " b=####.##### INTEGR=####.#####"; b; IN1
PRINT #1, USING " b=####.##### INTEGR=####.#####"; b; IN1
NEXT b
END
INT1:
dx = (b - a) / (n - 1)
IN1 = (fna(a) + fna(b)) / 2
x = a
5 x = x + dx
IN1 = IN1 + fna(a + dx)
IF x < b THEN 5
IN1 = IN1 * dx
RETURN
INT2:
n = 100
45 GOSUB INT1: R = IN1
n = n + 20: GOSUB INT1
IF ABS(R - IN1) > t THEN 45
RETURN
Данные:
Нижняя граница интеграла? 2
Введите изменение верхнего предела интеграла, b? 3,5
Введите шаг? .9
Точность? .001
Результаты:
Верхняя граница 2 Точность .001
b= 3.00000 INTEGR= -0.86889
Верхняя граница 2 Точность .001
b= 3.90000 INTEGR= -1.64549
Верхняя граница 2 Точность .001
b= 4.80000 INTEGR= -2.32331