Const h=1.5; var c,m,x,l:real; i,n:integer; begin write('C='); readln(c); write('M='); readln(m); x:=c-h; n:=round((m-c)/h)+1; writeln(' x L'); for i:=1 to n do begin x:=x+h; if x<-1 then l:=sin(x)*sin(x)+abs(x) else if x<=5 then l:=100 else l:=(x+x*x+x*x*x)/10; writeln(x:4:1,' ',l:7:3); end; end.
Answers & Comments
Verified answer
Const h=1.5;var c,m,x,l:real; i,n:integer;
begin
write('C='); readln(c);
write('M='); readln(m);
x:=c-h;
n:=round((m-c)/h)+1;
writeln(' x L');
for i:=1 to n do
begin
x:=x+h;
if x<-1
then l:=sin(x)*sin(x)+abs(x)
else if x<=5 then l:=100 else l:=(x+x*x+x*x*x)/10;
writeln(x:4:1,' ',l:7:3);
end;
end.
Пример:
C=-3
M=9
x L
-3.0 3.020
-1.5 2.495
0.0 100.000
1.5 100.000
3.0 100.000
4.5 100.000
6.0 25.800
7.5 48.563
9.0 81.900