1 ответ
Эвелина Немущенко
// PascalABC.NET 3.3, сборка 1623 от 16.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
for var x1:=0 to 12 do begin
var x:=x1/10;
if Абс(x)lt;0.5 then begin
var (y,s,a):=((x+3)/(x*x+4),0.0,1.0);
for var n:=1 to 10 do begin a*=(2*x+1); s+=a/(2*n+1) end;
y*=s;
Writeln('x = ',x:3:1,', Y = ',y)
end
else begin
var (y,p,a):=((x+1)/5,1.0,1.0);
for var n:=1 to 8 do begin a*=(x+1); p*=1+a/(n+1) end;
y*=p;
Writeln('x = ',x:3:1,', Y = ',y)
end;
end
end.
Итог
x = 0.0, Y = 0.885655933333952
x = 0.1, Y = 2.07134133017373
x = 0.2, Y = 5.37135178910962
x = 0.3, Y = 14.3385122904036
x = 0.4, Y = 37.2591296972574
x = 0.5, Y = 244.826467104353
x = 0.6, Y = 1171.45928887289
x = 0.7, Y = 5902.01341262292
x = 0.8, Y = 30197.4497576749
x = 0.9, Y = 153052.875303788
x = 1.0, Y = 756279.377777778
x = 1.1, Y = 3608294.82269368
x = 1.2, Y = 16533102.0129557
// Внимание! Если программа не работает, обновите версию!
begin
for var x1:=0 to 12 do begin
var x:=x1/10;
if Абс(x)lt;0.5 then begin
var (y,s,a):=((x+3)/(x*x+4),0.0,1.0);
for var n:=1 to 10 do begin a*=(2*x+1); s+=a/(2*n+1) end;
y*=s;
Writeln('x = ',x:3:1,', Y = ',y)
end
else begin
var (y,p,a):=((x+1)/5,1.0,1.0);
for var n:=1 to 8 do begin a*=(x+1); p*=1+a/(n+1) end;
y*=p;
Writeln('x = ',x:3:1,', Y = ',y)
end;
end
end.
Итог
x = 0.0, Y = 0.885655933333952
x = 0.1, Y = 2.07134133017373
x = 0.2, Y = 5.37135178910962
x = 0.3, Y = 14.3385122904036
x = 0.4, Y = 37.2591296972574
x = 0.5, Y = 244.826467104353
x = 0.6, Y = 1171.45928887289
x = 0.7, Y = 5902.01341262292
x = 0.8, Y = 30197.4497576749
x = 0.9, Y = 153052.875303788
x = 1.0, Y = 756279.377777778
x = 1.1, Y = 3608294.82269368
x = 1.2, Y = 16533102.0129557
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов