Составить программу табулирования функции - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д