PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var Y:=SeqGen(ReadInteger('n='),k->1/(k*(k+1)),1).Sum;
Writeln('Y=',Y);
end.
Пример
n= 20
Y=0.952380952380952
№2
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var z:=SeqGen(n,k->x**(k+1)/k,1).Aggregate(1.0,(p,q)->p*q);
Writeln('z=',z);
end.
Пример
n= 5
x= 1.184
z=0.244260252490087
№3
begin
SeqWhile(1.0,t->t+0.1,t->t<3.05)<br> .Foreach(x->Writeln(x:3:1,1/(x*x)*Sin(1/x):16:12))
end.
Результат
1.0 0.841470984808
1.1 0.652021043673
1.2 0.514011703608
1.3 0.411587451922
1.4 0.334223416928
1.5 0.274831023587
1.6 0.228553622242
1.7 0.192004772133
1.8 0.162782526473
1.9 0.139155444489
2.0 0.119856384651
2.1 0.103944853665
2.2 0.090713629742
2.3 0.079624432089
2.4 0.070262945063
2.5 0.062306934769
2.6 0.055503350302
2.7 0.049651675388
2.8 0.044591684711
2.9 0.040194342192
3.0 0.036354966311