Программирование в среде Турбо Паскаль. Закутский С.Н - 53 стр.

UptoLike

53
Вариант 2
Найти корни уравнения ax
2
+bx+c = 0, где a длина вектора f = {f
1
, f
2
,
f
3
, f
4
, f
5
}; b длина вектора h = {h
1
, h
2
, h
3
, h
4
}; c длина вектора g = {g
1
, g
2
,
g
3
}. Длина вектора вычисляется по формуле:
2
1
n
i
i
dd
=
=
, где d
i
состав-
ляющие вектора . Вычисление длины вектора и корней квадратного урав-
нения оформить в виде подпрограммы-функции.
При отладке программы рекомендуется использовать следующие ис -
ходные данные: f = {1, 2, 3, 4, 5}; h = {42, 75, 16, 34}; g = {1.2, 0.75, 1.9}.
Вариант 3
Заданы две матрицы
111213111213
212223212223
313233313233
aaabbb
aaabbb
aaabbb


==



AB
Произведением двух матриц называется новая матрица , определенная
по правилу:
1
,
где 1,2,...,;1,2,...,;1,2,...,.
N
ijikkj
k
CABiMjLkN
=
====
Произведение матриц называется перестановочным, если выполняется
условие : A·B = B·A.
Составить программу, проверяющую перестановочность задаваемых
матриц. В случае положительного ответа на печать вывести сообщение
AB = BA
; в противном случае на экран вывести текст
“Произведение мат-
риц не перестановочно”
.
Вычисление произведения матриц оформить в виде подпрограммы.
При отладке программы в качестве исходных рекомендуется использовать
следующие данные:
1.253123
2.712;5.147.
46.32689


==−



AB
.
Вариант 4
Заданы два вектора X = {x
1
, x
2
, x
3
, }; Y = {y
1
, y
2
, y
3
, }. Логической
переменной a присвоить значение
true,
если длина X
больше длины Y, и
false
в противном случае.
Для вычисления длины вектора составить подпрограмму, пользуясь
правилом:
2
1
,
N
i
i
f
=
=
f
где f
i
компоненты вектора f.