Все готовые лабы по паскалю (задание 1)

Посмотреть архив целиком

  • найти сумму ряда с точностью , общий член которого



      • Текст программы:

    var

    s,a:real;

    n:integer;

    begin

    s:=0;

    n:=0;

    a:=1;

    while abs(a)>0.02 do

    a:=(1+cos(sqr(n)))/(exp(n*Ln(2)));

    n:=n+1;

    s:=s+a;

    writeln('s=',s);

    readln; readln;

    end.


    • Результат: s= 2.8678489650E+00





  • Случайные файлы

    Файл
    166078.rtf
    gp.doc
    10354.rtf
    4595-1.rtf
    8728.rtf




    Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
    Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
    Это можно сделать совершенно бесплатно. Читайте подробности тут.