TURBO PASCAL |
Новости |
Практическое задание N 1. 13
Провести численную проверку неравенств
Чебышева : 1.
( a1+a2+. . . +aN ) * ( b1+b2+.
. . +bN )/N2 ³
( a1*b1+ a2*b2+
. . . + aN*bN )/N ; 2.
( a12+ a22+. . .+aN2
) * ( b12 +b22+. . .+bN2
)/N2 ³
( ( a1*b1 )2 +(
a2*b2 )2+ . . .+( aN*bN
)2 )/N; для 0 < a1 £ a2
£ a3 £
. . . £
aN, b1
³
b2 ³ b3
³ . . . ³
bN > 0, в
частном случае трех пар целых чисел в
диапазоне от 1 до 10.
Начальные и конечные значения
параметров циклов могут определяться из
условий задачи, например,
для расчета количества "k"
повторений цифры "N" в целых двузначных
числах можно использовать операторы: k:= 0; for i:= 1 to 9
do
for j:= 0 to 9 do begin
if i = n
then k:= k+1;
if j = n
then k:= k+1 end; Здесь первая цифра числа
может принимать значение от 1 до 9,
а вторая - от 0 до 9, |
(с) Все права защищены. По всем интересующим вопросам прошу писать электронный адрес |