Разработать программу табулирования функций для произвольного диапазона изменения независимого параметра или аргумента.Выполнить расчет для использованных исходных значений: х=1-2*cos(a*y)+ln(y), a=log2(y),y є [П;2*П] ∆y=П/4. Результаты вывести в следующем виде:Значение аргумента,значение вспомогательной функции и результата.В программу включить ввод исходных данных и проверку диапазона от -100 до 100.Начальное значение меньше конечного, шаг разности от начального и конечного — Pascal(Паскаль)

Program Ex_7;
uses crt;
var a,y,x,yy:real;
begin clrscr;
 
writeln(' [y_1;y_2] ');
write('y_1');   readln(y);
write('y_2');   readln(yy);
 
   writeln('y    ','  a   ','  x');
  while (y<=yy) do
    begin
    a:=ln(y)/ln(2);
    x:=1-2*cos(a*y)+ln(y);
    writeln(y:5:1,a:5:1,x:5:1);
    y:=y+Pi/4;
    end;
 
  readln
end.

Похожие записи/страницы:

Leave a Comment

4 + 2 =