Помогите составить программку (решить систему уравнений) на PascalF(x)=sqr(x)-x, если

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

F(x)=sqr(x)-x, если 0lt;=xlt;=1;
F(x)=sqr(x)-sin(Pi)*sqr(x), если xgt;1 либо xlt;0

Задать свой вопрос
1 ответ

var x,f: real;

begin

write('x = ');

readln(x);

if (xgt;=0)and(xlt;=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

Владислав Конобаев
не поможете с блок-схемой?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт