Составить программу табулирования функции - 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.