profile
Опубликовано 5 лет назад по предмету Информатика от Карина178586

Помогите составить программу (решить систему уравнений) на Pascal

F(x)=sqr(x)-x, если 0<=x<=1;
F(x)=sqr(x)-sin(Pi)*sqr(x), если x>1 или x<0

  1. Ответ
    Ответ дан petyaGavrikov

    var x,f: real;

    begin

    write('x = ');

    readln(x);

    if (x>=0)and(x<=1) then f:=sqr(x)-x

    else f:=sqr(x)-sin(pi*sqr(x));

    writeln('F = ',f:6:4);

    end.

    Пример:

    x = 0.5

    F = -0.2500

    1. Ответ
      Ответ дан Карина178586
      не поможете с блок-схемой?
Самые новые вопросы