Функция Y = SIN(5X)
1. Вычислите значения функции на интервале [-1; 1] с шагом 0,1. При вычислении сначала
преобразуйте значения Х в радианы с функции РАДИАНЫ(). Результаты представьте в
табличном виде.
2. Определите максимальное и минимальное из вычисленных значений функции на заданном интервале с встроенных функций МАКС и МИН.
3. Определите среднее значение на указанном интервале с функции СРЗНАЧ.
4. Постройте график заданной функции на указанном интервале. На графике должна быть сетка, на осях
— шкала значений.

ответ:

говоря о положительных факторах, благотворно повлиявших на весь уклад духовной жизни тогдашнего общества, нельзя обойти молчанием и некоторые отрицательные последствия реформации. серьезные люди учатся не только на положительных примерах, но и на ошибках. какие же несовершенные следы мы можем заметить в шлейфе реформацион-ных движений?  

 

принцип доступности священного писания и его свободного истолкования открыл дорогу для бесконечного дробления христианства и появления самых различных исповеданий и толков.  

 

крупные церковные общины в протестантском мире не замедлили установить крепкие связи с государственным аппаратом. эти связи доходили до того, что церковь оказывалась под пятой владетельных князей, становясь частью бюрократического . весьма показателен в этом отношении пример церкви, которая возникла по королевской инициативе, короли и королевы официально являются главами этой церкви.  

 

как естественный результат слияния церкви и государства, многие страны охватили так называемые религиозные войны, в которых под флагом религии шла борьба за политические и интересы. известна своим печальным опытом тридцатилетняя война, швейцарские войны, междоусобицы во франции, крестьянская война в германии.  

 

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.