TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

   Практическое задание 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,

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz