10 вариант, пожалуйста

0 голосов
36 просмотров

10 вариант, пожалуйста


image

Информатика (25 баллов) | 36 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Код на haskell

n = 100
f(k) = k / ((k + 1) * (k + 1) + 3)
ks=[1, 2 ..n]
main = print(map f(ks))

Вывод
[0.14285714285714285,0.16666666666666666,0.15789473684210525,0.14285714285714285,0.1282051282051282,0.11538461538461539,0.1044776119402985,9.523809523809523e-2,8.737864077669903e-2,8.064516129032258e-2,7.482993197278912e-2,6.976744186046512e-2,6.532663316582915e-2,6.140350877192982e-2,5.791505791505792e-2,5.47945205479452e-2,5.198776758409786e-2,4.945054945054945e-2,4.714640198511166e-2,4.504504504504504e-2,4.3121149897330596e-2,4.1353383458646614e-2,3.9723661485319514e-2,3.821656050955414e-2,3.6818851251840944e-2,3.551912568306011e-2,3.430749682337993e-2,3.317535545023697e-2,3.211517165005537e-2,3.112033195020747e-2,3.018500486854917e-2,2.9304029304029304e-2,2.8472821397756688e-2,2.768729641693811e-2,2.6943802925327175e-2,2.6239067055393587e-2,2.5570145127850726e-2,2.4934383202099737e-2,2.4329382407985028e-2,2.3752969121140142e-2,2.320316921335597e-2,2.267818574514039e-2,2.21763795771016e-2,2.1696252465483234e-2,2.1236432279377066e-2,2.0795660036166366e-2,2.037277850021673e-2,1.9966722129783693e-2,1.9576508190171794e-2,1.9201228878648235e-2,1.884004432951607e-2,1.849217638691323e-2,1.815690304898938e-2,1.78335535006605e-2,1.752150366358713e-2,1.7220172201722016e-2,1.6929016929016927e-2,1.6647531572904706e-2,1.637524285317791e-2,1.611170784103115e-2,1.585651156745516e-2,1.5609264853977844e-2,1.5369602342034643e-2,1.5137180700094607e-2,1.4911676990135353e-2,1.4692787177203919e-2,1.4480224767668035e-2,1.4273719563392108e-2,1.4073016520497654e-2,1.387787470261697e-2,1.3688066319645267e-2,1.350337584396099e-2,1.3323599196933747e-2,1.3148542999289269e-2,1.2978023879563939e-2,1.2811867835468645e-2,1.2649909643502547e-2,1.2491992312620116e-2,1.2337966578166484e-2,1.218769043266301e-2,1.2041028690352312e-2,1.1897852582704585e-2,1.1758039382348774e-2,1.162147205312673e-2,1.1488038924178942e-2,1.1357633386159536e-2,1.1230153607848199e-2,1.110550227158001e-2,1.098358632605208e-2,1.0864316755190728e-2,1.0747608361875516e-2,1.06333795654184e-2,1.0521552211788665e-2,1.0412051395657953e-2,1.0304805293415771e-2,1.0199745006374841e-2,1.0096804413448526e-2,9.995920032639738e-3,9.89703089073278e-3,9.800078400627205e-3]


(53.1k баллов)
0

и конечно большенство из них будут не такие как у вас где-то там

0

помогите пожалуйста)))

0

телепаты в отпуске, пиши конкретно что тебе надо и в каком виде

0

вариант 10, программа паскальabc

0

вот так сразу и надо писать в задании

0

и желательно еще уточнять версию этого паскаля

0

var
k, n: integer;

begin
readln(n);
for k := 1 to n do
write((k / ((k + 1) * (k + 1) + 3)):10:6, ' ');
end.

0

это по моему неправильно

0

конкретные факты пожалуйста, опять таки телепатов нет

0

получилось, спасибо большое