70 баллов. Вычислить значения функции Pascal

Question

70 баллов. Вычислить значения функции Pascal

---

Comments

const h=1.5; var x,L,c,m: real; begin write('C = '); readln(c); write('M = '); readln(m); writeln(' X L(x) '); x:=c; repeat if x>5 then L:=(x+sqr(x)+sqr(x)*x)/10; if x<-1 then L:=sqr(sin(x))+abs(x); if (x>=-1) and (x<=5) then L:=100; writeln(x:8:3,L:10:3); x:=x+h; until x>m; end.

Answer 1

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 <br>   then l:=sin(x)*sin(x)+abs(x) 
   else if x<=5 then l:=100 else l:=(x+x*x+x*x*x)/10;<br> 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