Предмет: Информатика, автор: Карина178586

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

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

Приложения:

Ответы

Автор ответа: petyaGavrikov
1

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


Карина178586: не поможете с блок-схемой?
Похожие вопросы
Предмет: Английский язык, автор: abdyrakmanovamaaa
Предмет: Математика, автор: Олег123893