Практическое задание N 1. 11
1. Рассчитать
значения функции y
= sin(x)/(x+a)2 при изменении
аргумента "x" в диапазоне от 0 до Pi/2
с шагом Pi/80
и при изменении параметра "A" в
диапазоне от 1 до 2
с шагом 0, 2.
2. Рассчитать
значения функции y
= xa/a3 при изменении
аргумента "x" в диапазоне от 1
до 10 с шагом 0, 2 и при изменении параметра "A"
в диапазоне от 1 до
5 с шагом 1.
Составим программу
численной проверки неравенства Коши:
Ö(a1
* a2 *. . . * aN) £
( a1 + a2 +. . . + aN )/N;
где
a1, a2, . . . , aN > 0,
в частном случае двух целых
чисел в диапазоне от 1 до 250.
Примечание: погрешности в вычислениях
могут привести к неверному выводу,
поэтому формулы преобразованы для
расчета целых чисел!
Program TEOREMA;
{проверка теоремы о ср. арифметическом и
ср. геометрическом }
var a1, a2,
N1, s,
g: longint; bb:
boolean;
Begin
bb:= true; Writeln
('Процесс пошел, ждите!');
N1:= 250;
For a1:= 1 to N1 do
{
внешний
цикл
}
For a2:= 1 to N1 do begin {
вложенный цикл }
S:= (a1+a2)*(a1+a2);
G:= 4*a1*a2;
if S < G then bb:= false end;
If bb = true
then Writeln ('Теорема
верна')
else
Writeln ('Теорема не верна');
Writeln('Нажми Enter'); readln
End.
