Составить программу табулирования функции - Pascal (81097)

Узнай цену своей работы

Формулировка задачи:

Составить программу табулирования функции y=f(x) на заданном промежутке xє[a:b] с заданным шагом h. Примечание. Символ означает нахождение сумы. Так, к примеру: Задание: a=1; b=4; h=0.15; , если ; , если .

Решение задачи: «Составить программу табулирования функции»

textual
Листинг программы
uses crt;
function f1(x:real):real;
begin
f1:=abs(sin(x)/3.12)+cos(sin(3*x)-0.3)
end;
function f2(x:real):real;
var n:integer;
    s:real;
begin
s:=0;
for n:=2 to 6 do
s:=s+(n+x)*(n*n-x*x);
f2:=s;
end;
var a,b,h,x,y:real;
begin
clrscr;
a:=1;
b:=4;
h:=0.15;
x:=a;
while x<b+h/2 do
 begin
  if x<3 then y:=f1(x)
  else y:=f2(x);
  writeln('x=',x:4:2,' y=',y:7:3);
  x:=x+h;
 end;
readln
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы