Вычислить сумму и произведение - Pascal ABC (12950)

Узнай цену своей работы

Формулировка задачи:

Вычислить сумму и произведение полученных значений функции. Составить три варианта программы – с операторами repeat, while, for.
V=ln(sin x5)ab 3≤x≤5; Δx=0.2; a=2.22; b=3

Решение задачи: «Вычислить сумму и произведение»

textual
Листинг программы
const
    EPS = 0.0001;
    XA = 3;
    XB = 5;
    DX = 0.2;
    A = 2.22;
    B = 3;
var
    x: Single;
    s, m, temp: Extended; //Double | Real
begin
    x := XA; s := 0; m := 1;
    while ((Abs(x - XB) < EPS) Or (x < XB)) do
    begin
        temp := Sin(x * Sqr(Sqr(x)));
        if (temp > EPS)
        then
        begin
            temp := Ln(temp) * A * B;
            s := s + temp;
            m := m * temp;
        end
        else
            WriteLn('Error with x=', x:0:2);
        x := x + DX;
    end;
    WriteLn('S=', s:0:2);
    WriteLn('M=', m:0:2);
end.

Оцени полезность:

7   голосов , оценка 3.571 из 5
Похожие ответы