Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)>eps do
begin
i:=i+1;
f:=f*i;
xi:=xi*x;
an:=xi/f;
s:=s+an;
end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.
Пример:
0.9
<span>s = 2.4595 e^0.9 = 2.4596</span>
Держи, если надо больше объяснений - напиши мне:
begin
var a, b:integer; //Объявляем a и b
readln(a,b); //Считываем их
for var i := 1 to 5 do write(random(b - a) + a, ' '); //Выводим рандомные числа от a до b
writeln; //Переносим строку
end.
...
Если не сложно нажми "Спасибо" ;)
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
lambda:=Sqr(Tan(x*a/2*pi));
y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
Writeln('x=',x,' y=',y);
x+=delta
until x>x2
end.
<u><em>Тестовое решение</em></u>
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126
737^10-2,16≈4,72797•10^28