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

0 голосов
9 просмотров

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


image

Информатика (22 баллов) | 9 просмотров
Дан 1 ответ
0 голосов

Ответ:

Объяснение:

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)</p>

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

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

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

readln;

end.

(3.3k баллов)