Задать вопрос
2 мая, 23:10

вычислить число пи через разложение в ряд

взяв 500 слагаемых

+3
Ответы (1)
  1. 2 мая, 23:53
    0
    Если power изучали, то можно так:

    var

    k:integer;

    p:real;

    begin

    for k:=1 to 500 do

    p:=p+power (-1, k+1) / (2*k-1) ;

    writeln ('Pi/4 = ', p)

    end.

    Если не изучали, пиши, сделаю по-другому.

    Версия для Турбо:

    program rd;

    var

    k, z:integer;

    p:real;

    begin

    z:=1;

    for k:=1 to 500 do

    begin

    p:=p+z / (2*k-1) ;

    z:=-z

    end;

    writeln ('Pi/4 = ', p)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «вычислить число пи через разложение в ряд взяв 500 слагаемых ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы