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

Напишите программу, вычисляющую значение функции:
ПОМОГИТЕ ПОЖАЛУЙСТА

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

    Ответ:

    Объяснение:

    program funcY;

    uses math;

    const pi=3.14;

    const a=1.5;

    var x,y:real;

    begin

    repeat

    write('Введите х: ');

    readln(x);

    if x=0 then  writeln('Недопустимое значение х');

    until x<>0;

    if x<1.3 then y:=pi*sqr(x)-7/sqr(x)

    else if x-1.3<0.01 then y:=a*power(x,3)+7*sqrt(x)

    else y:=tan(x+7*sqrt(x));

    writeln('y(',x:4:2,')= ',y:4:2);

    readln;

    end.