profile
Опубликовано 4 года назад по предмету Информатика от Vlad_ent

Составить программу на языке паскаль абс. нет.
Для нахождения произведения модулей отрицательных значений функции: у= sin2x-0.5
где х∈[0,10]
Δx=0,1
и суммы ее положительных значений.

  1. Ответ
    Ответ дан Alexandr
    var
    x: real = 0;
    p: real = 1;
    s: real = 0;
    y: real;

    begin
    while x <= 10 do
    begin
    y := sin(2 * x) - 0.5;
    if y < 0 then
    p := p * -y
    else
    s := s + y;
    x := x + 0.1;
    end;
    writeln(p);
    writeln(s);
    end.