70 баллов. Вычислить значения функции Pascal
70 баллов. Вычислить значения функции Pascal
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы