Предмет: Информатика,
автор: Карина178586
Помогите составить программу (решить систему уравнений) на Pascal
F(x)=sqr(x)-x, если 0<=x<=1;
F(x)=sqr(x)-sin(Pi)*sqr(x), если x>1 или x<0
Приложения:
![](https://files.topotvet.com/i/e6b/e6b229e8f5310b2120d3f8a9ab0f7614.jpg)
Ответы
Автор ответа:
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:
не поможете с блок-схемой?
Похожие вопросы
Предмет: Физика,
автор: AyaLee
Предмет: Английский язык,
автор: abdyrakmanovamaaa
Предмет: Русский язык,
автор: dedwvw
Предмет: Математика,
автор: Олег123893
Предмет: Информатика,
автор: Dasha3212008